實用301轉向到另一網域名稱相應頁面的asp代碼

前幾天，為了增強本站的SEO，著手把另一個網域名稱：www.kanshule.com下的所有頁面301轉向到www.jb51.net下。

　　由於本站目前只有一個部落格，於是從部落格上入手。

　　思路很簡單，擷取當前瀏覽頁面的網域名稱，如果是需要轉向的網域名稱，再替換網域名稱部分，做為新地址來301轉向。

　　代碼如下：
複製代碼 代碼如下:<%

Dim toDomain,fromDomain,curDomain,q,p,url

toDomain=www.jb51.net

fromDomain="kanshule.com"

curDomain=Request.ServerVariables("HTTP_HOST")

if instr(curDomain,fromDomain)>0 then

q=Request.ServerVariables("QUERY_STRING")

p=Request.ServerVariables("URL")

url="http://"&toDomain&p&"?furl=kanshule.com"

if q<>"" then url=url&"&"&q

Response.Status="301 Moved Permanently"

Response.AddHeader "Location",url

Response.end()

End If

%>

特意在url上加了個參數，是為了記錄有多少個訪問是從這個網域名稱訪問的。

　　將此檔案儲存成asp檔案，包含任一要跳轉的ASP頁面中即可。

　　部落格中，都有調用公用資料庫連接檔案conn.asp，我就在conn.asp中包含此檔案，搞定。