如何判断某网页是从哪个网页链接来的?

[woshihuzi]

我的test.asp位于c:\inetpub\wwwroot\test目录下，
该目录下还有一个1.asp，我只想让test.asp网页通过同目录下的1.asp链接才能打开，现在该怎么办？
我知道HTTP_REFERER这个环境变量可以用，但具体如何比较就不知道了。
请高手指点啊。

[jianice]

帮顶

[king_shadow]

ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER")))
if ComeUrl="" then
response.write "不允许从外部链接地址访问本页面"
response.end
else
cUrl=trim("http://" & Request.ServerVariables("SERVER_NAME"))
if mid(ComeUrl,len(cUrl)+1,1)=":" then
cUrl=cUrl & ":" & Request.ServerVariables("SERVER_PORT")
end if
cUrl=lcase(cUrl & request.ServerVariables("SCRIPT_NAME"))
if lcase(left(ComeUrl,instrrev(ComeUrl,"/")))<>lcase(left(cUrl,instrrev(cUrl,"/"))) then
response.write "不允许从外部链接地址访问本页面"
response.end
end if
end if

[woshihuzi]

我像这样做：
用如下函数获取本网页的完整URL:
Function getFullSelfURL()
Dim temp,ServerUrl
Temp = Split(Request.servervariables("SERVER_PROTOCOL"),"/")
ServerUrl = Temp(0)& "://" & Request.ServerVariables("Server_name") &_
Request.ServerVariables("Script_name")
getFullSelfURL = ServerUrl
End Function
用ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER")))
获取请求页的完整URL

我要是能再写一个函数，来比较getFullSelfURL()和ComeUrl这两个URL是否来自同一个站点，那就具有很高的通用性了。
哪位高手能帮忙写一个？

[woshihuzi]

自己顶，等待高手

[ailincn]

我曾经在我自己的程序里面用过一个办法，在自己的每个页面中用一个session记录本网页在网站中的相对地址，在需要判断的页面取值判断就可以了

[woshihuzi]

嗬嗬，ailincn(怕怕虎)这一招不错，不过，具体是如何实现的，能否举个小例子？

[thinkbar]

我举怕怕虎的例子吧？
第一个页面里：session("thispage")=0
第二个页面里：
if not session("thispage")=0 then
response.redirect"1.asp"
end if
这不就ok了？
呵呵

[woshihuzi]

第一次：
打开第二个页面，发现session("thispage")=0这个条件不成立，
于是会自动转向第一个页面，从而session("thispage")=0成立了。


第二次：打开第二个页面，发现session("thispage")=0是对的，那么，
不再转向第一个页面，就可以直接显示第二个页面；


第三次：打开第二个页面，也可以直接显示；
第四次：打开第二个页面，也可以直接显示；
第五次：……
第六次：……

[woshihuzi]

顶一下

[yancey]

ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER")))