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關于編碼的幾個有用的函數



龍脈動態 建站套餐 網站備案 優化技巧 優化案例 幫助中心

腾讯麻将作弊器免费 彩凤凰时时彩计划软件 2012年奥运会足球直播 江苏快3 最全的北京pk10 龙王捕鱼下载 风采18选7 3d开机号今天查询彩宝网 足球比分推荐 内蒙古快三开奖 山西泳坛夺金客户端 河北11选5 北京快三形态走势图一定牛 重庆快乐10分苹果版 球探比分直播即时比分直播 特别苦但是能赚钱的工作 北京赛车pk10缩水软件