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关于编码的几个有用的函数



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