if Instr(Request.ServerVariables("HTTP_REFERER"),")=0 then

 response.write "警告非法来路访问被拒绝"

  response.end

End IF

恩，谢谢，已经生效。但是又出现一个问题，

就是我通过可以成功进入本站了。但是我在本站的链接上点返回首页，又出现
"警告非法来路访问被拒绝"

还需要加一段代码，忘版主赐教。

你的返回首页的链接是怎么写的？那段代码限制必须域名内包含才能进入。

返回首页就是直接<a  href="/">首页</a>

我想达到的目的是通过进入我网站后。

在我网站里面的任何操作都不会再跳出错误。

进入我网站后其他页面都OK了

就是再次访问主页的时候。又会去检测这个域名。所以跳错了。

主页的URL是什么？在判断里添加语句。

你说的是这个吗

主页是

添加到什么位置


就这样添加上去，不就可以直接访问了吗？

办法一
if Instr(Request.ServerVariables("HTTP_REFERER"),")=0 And Instr(Request.ServerVariables("HTTP_REFERER"),")=0 then

response.write "警告非法来路访问被拒绝"

  response.end

End IF

办法二
'过滤URL数组
Dim FilterURL(2),f
FilterURL(0)="
FilterURL(1)="
For f=0 To Ubound(FilterURL)
    if FilterURL(i)<>"" And Instr(Request.ServerVariables("HTTP_REFERER"),FilterURL(i))=0 then
       response.write "警告非法来路访问被拒绝"
       response.end
    End IF   
Next
推荐办法二，办法二可以过滤很多非法URL地址


[ 本帖最后由 yms123 于 2010-3-16 13:18 编辑 ]

谢谢斑竹，。，

办法一 ：  试了有效果。。

办法二：   没有用，

是不是漏了一些代码

我也来看看