ASP實現多域名自動永久301重定向到指定域名

下载贵州十一选五 www.hwxge.icu

根據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 ="//"&str&ScriptAddress &"?"&qs
else
Url ="//"&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關于編碼的幾個有用的函數



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

时时彩后一万能码6码 腾讯分分分后三包胆 刘伯温正版四肖不像 快彩计划软件 mg4355电子游戏线路检测 pk10最牛稳赚5码公式王 英超积分榜 幸运飞艇滚七码雪球计划群 时时彩大底 pk10一天稳赚5000图片 秒速时时分析软件 快三大小单双稳赚技巧必胜技巧 飞艇冠军二期四码计划软件 玩龙虎合怎么稳赚 欢乐生肖开奖 21点规则