ASP实现多域名自动永久301重定向到指定域名

根据Google提供的信息,重定向最好的方法是使用301重定向,而不是简单地用Response.Redirect来完成。

根据网络上的一些资料,我写了一个ASP函数来实现多域名自动永久301重定向。

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

使用时,只需要在页面顶部加入一句代码即可:

AutoRedirect("主域名")

如:

AutoRedirect("www.modulelabs.com")


下一条:ASP隐藏文件地址,并在下载时替换文件名,上一条:ASP关于编码的几个有用的函数



龙脉动态 建站套餐 网站备案 优化技巧 优化案例 帮助中心