免费空间-免费资源分享网站移动版

首页 > 免费教程 >

ASP编程301重定向代码-301重定向设置

ASP编程301重定向代码-301重定向设置,由免费空间小编给大家整理,详细信息如下:

将以下代码放在每个asp页面的头部即可。
 
<% Function GetUrl()
Dim ScriptAddress,Servername,qs
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))
Servername = CStr(Request.ServerVariables("Server_Name"))
qs=Request.QueryString
if qs<>"" then
GetUrl ="https://"& Servername & ScriptAddress &"?"&qs
else
GetUrl ="https://"& Servername & ScriptAddress
end if
End Function
dim urlstr,a,b,oldurl,c
urlstr=GetUrl
oldurl=GetUrl
urlstr=replace(urlstr,"https://","")
a=instr(urlstr,"/")
if a>0 then
urlstr=left(urlstr,a)
end if
urlstr=replace(urlstr,"/","")
b=lcase(urlstr)
if b<>"www.jiansou123.com" then
c=replace(oldurl,"https://" & b,"")
response.redirect "https://www.jiansou123.com" & c
end if
%>
 
这段代码其实并不难看懂,Function GetUrl()这个过程是获取用户所访问的当前URL地址,下面是对URL进行判断,如果不是www.jiansou123.com域名下的地址,就把url中的域名改成www.jiansou123.com,如果是的话,就终止这段代码!www.jiansou123.com这个地址只是一个地址的举例,用户可以根据的需要改成任何地址。