建站资讯

ASP代码实现整站301重定向

在我们网站建设中,时常会遇到需要网页重定向的情况:像网站调整,改变了网站的目录结构,网页被移到一个新地址。或者网页扩展名改变,抑或把net0515.com转发到www.net0515.com,可以有效的转移权重并且得到搜索引擎的亲睐。在这些情况下,如果不做重定向,则用户收藏夹或搜索引擎数据库中旧地址只能让访问客户得到一个404页面错误信息,访问流量白白丧失。又比如某些注册了多个域名的网站,也需要通过重定向让访问这些域名的用户自动跳转到主站点,等等。

网上有了许多其他语言的301重定向代码,但是找不到比较完美的ASP语言的301整站重定向,下面放出一段完美的ASP的代码供大家使用:


AutoRedirect("www.net0515.com")
Sub AutoRedirect(str)
Dim ScriptAddress,Servername,qs,Url
Servername = CStr(Request.ServerVariables("Server_Name"))
If str<>Servername Then
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))
qs=Request.QueryString
if qs<>"" then
Url ="http://"&str&ScriptAddress &"?"&qs
else
Url ="http://"&str&ScriptAddress
end if
Response.Status="301 Moved Permanently"
Response.AddHeader "Location", Url
Response.End
End If
End Sub


把开头的www.site.com替换为自己的网址即可。

chinady.top

返回上一页

 
×