301重定向代码 | 301重定向设置 |
您的位置: 首页 > 免费教程 >

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

作者:免费空间 发布时间:2019-06-10 [手机版]
摘要: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这个地址只是一个地址的举例,用户可以根据的需要改成任何地址。

标签: 301重定向代码 301重定向设置
相关推荐
免费空间声明:
(一) 由于各方面情况的调整与变化,本网所提供的考试信息仅供参考,敬请以权威部门公布的正式信息为准。
(二) 本网注明来源为其他媒体的稿件均为转载稿,免费转载出于非商业性学习目的,版权归原作者所有。如有内容、版权等问题请在30日内与本网联系。联系方式:邮件 jiansou123#126.com
最近更新

网站地图 | XML地图 | 手机版
版权所有 © 2005-2022 www.jiansou123.com 免费空间 All Rights Reserved
本网站所有信息全是来源于互联网,如有侵权请来电