求助如何限制用户必须从某个入口页面访问的本网站 - 编程论坛

#2

sky2222010-03-15 15:11

在线等。。....................

#3

sunfishy2010-03-15 15:26

Request.ServerVariables("HTTP_REFERER") '链接.

=====

if Request.ServerVariables("HTTP_REFERER")="http://*/ " then

response.write "警告"

response.end

else

.....

#4

sky2222010-03-15 15:40

这个段代码直接写到，index.asp 的最上面吗？？？

#5

sunfishy2010-03-15 15:43

写在开头.进行判断..若非的话就不让其往下执行代码.并弹出提示返回前一页.

#6

sky2222010-03-15 15:44

给完整点好吗，提示缺少语句

在======这里要写什么？

#7

sky2222010-03-15 15:45

以下是引用sunfishy在2010-3-15 15:43:01的发言：

写在开头.进行判断..若非的话就不让其往下执行代码.并弹出提示返回前一页.

恩，我是写在的开头，提示缺少语句

#8

sky2222010-03-15 15:53

楼上的朋友，出来解释一下

#9

aspic2010-03-15 16:08

判断来路

#10

sunfishy2010-03-15 16:12

不然你就直接写在session里吧.

然后在sky456里判断

#11

yms1232010-03-15 17:00

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

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

response.end

End IF

#12

sky2222010-03-16 10:17

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

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

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

#13

yms1232010-03-16 11:05

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

#14

sky2222010-03-16 11:17

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

#15

sky2222010-03-16 11:21

以下是引用sky222在2010-3-16 10:17:28的发言：

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

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

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

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

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

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

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

#16

yms1232010-03-16 11:25

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

#17

sky2222010-03-16 11:35

你说的是这个吗

主页是

添加到什么位置

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

#18

yms1232010-03-16 13:16

办法一
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 编辑 ]

#19

sky2222010-03-16 13:47

谢谢斑竹，。，

办法一：试了有效果。。

办法二：没有用，

是不是漏了一些代码

#20

zhuyunshen2010-03-16 14:03

我也来看看

#21

yms1232010-03-16 14:36

Dim FilterURL(2),f,RefURL
FilterURL(0)="
FilterURL(1)="
RefURL=Request.ServerVariables("HTTP_REFERER")
For f=0 To Ubound(FilterURL)
    if Instr(RefURL,FilterURL(i))=0 then
       response.write "警告非法来路访问被拒绝"
       response.end
    End IF
Next
再试试

#22

sky2222010-03-16 14:58

还是一样。点击首页还是跳出"警告非法来路访问被拒绝"

#23

sky2222010-03-17 10:03

斑竹，再出来说说

#24

yms1232010-03-17 10:47

那你可以先用方法1