在【免费空间】中如何用ASP来编写301重定向代码-128sj免费资源网
1G全能免费空间 | 2GB免费全能空间 | 1G免费全能空间 | 免费试用云服务器 | 国内1G免费空间 | 免费空间 | 免费空间申请
您的位置:首页 > 免费教程

在【免费空间】中如何用ASP来编写301重定向代码

作者:免费空间 发布时间:2019-03-08 09:57:26 [手机版]

一、什么是301重定向,301重定向是什么意思

       301重定向是一种非常重要的“自动转向”技术。网址重定向最为可行的一种办法。当用户或搜索引擎向网站服务器发出浏览请求时,服务器返回的HTTP数据流中头信息(header)中的状态码的一种,表示本网页永久性转移到另一个地址。

301重定向代码

二、如何用ASP来编写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 ="http://"& Servername & ScriptAddress &"?"&qs

else

GetUrl ="http://"& Servername & ScriptAddress

end if

End Function

dim urlstr,a,b,oldurl,c

urlstr=GetUrl

oldurl=GetUrl

urlstr=replace(urlstr,"http://","")

a=instr(urlstr,"/")

if a>0 then

urlstr=left(urlstr,a)

end if

urlstr=replace(urlstr,"/","")

b=lcase(urlstr)

if b<>"www.128sj.com" then

c=replace(oldurl,"http://" & b,"")

response.redirect "http://www.128sj.com" & c

end if

%>

     以上代码其实并不难看懂,Function GetUrl()这个过程是获取用户所访问的当前URL地址,下面是对URL进行判断,如果不是www.128sj.com域名下的地址,就把url中的域名改成www.128sj.com,如果是的话,就终止这段代码!www.128sj.com这个地址只是一个地址的举例,用户可以根据的需要改成任何地址。



标签:   301重定向代码 301重定向
相关推荐
免费空间声明:
(一) 由于各方面情况的调整与变化,本网所提供的考试信息仅供参考,敬请以权威部门公布的正式信息为准。
(二) 本网注明来源为其他媒体的稿件均为转载稿,免费转载出于非商业性学习目的,版权归原作者所有。如有内容、版权等问题请在30日内与本网联系。联系方式:邮件 jiansou123@126.com
最近更新
网站地图 | XML地图 | 手机版
版权所有 © 2005-2022 www.128sj.com 免费空间 All Rights Reserved
本网站所有信息全是来源于互联网,如有侵权请来电咨询! 粤ICP备16040413号-1