ASP实现多域名自动永久301重定向到指定域名|帮助中心|知识学堂|石家庄网站建设_石家庄网站优化

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")