建站代码网

热门标签

获得当前页面地址和来路地址

当前页面地址:

html="http://"
html=html&Request.ServerVariables("Server_Name")
html=html&Request.ServerVariables("URL")

if request.ServerVariables("QUERY_STRING")<>"" then 
html = html &"?"& Request.ServerVariables("QUERY_STRING")
end if
 
 session("curl")=html

来路地址:

<%@ LANGUAGE=VBscript codepage ="936" %>
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
 
’说明 index1.asp 为原始网站首页 ,index2.asp 为需要判断域名转入的首页。
jh_url=lcase(trim(Request.ServerVariables("HTTP_REFERER")))
if jh_url="" then
server.transfer "main.asp"
else
’这里是要判断的jh_url地址,不包括,77links.info"
jh_url2=split(jh_url1,",")
jh_isok=false
for i=0 to ubound(jh_url2)
if instr(jh_url,jh_url2(i))<>0 then
jh_isok=true
exit for
end if
next
if jh_isok=true then
server.transfer "main.html"
else
server.transfer "main.asp"
end if
end if
%>

X