您当前的位置:天天ASP(学习网)ASP编程进阶技巧 → 文章内容

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

作者:本站  来源:本站整理  发布时间:2013-12-13 17:09:35

当前页面地址:

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地址,不包括www. 及 / 
jh_url1="13rtys.com,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
%>

文章评论 (评论内容只代表网友观点,与本站立场无关!)

用户名: 查看更多评论

分 值:100分 85分 70分 55分 40分 25分 10分 0分

内 容:

         (注“”为必填内容。)