實用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中包含此文件，搞定。