由于本站目前只有一個博客，于是從博客上入手。
思路很簡單，獲取當前瀏覽頁面的域名，如果是需要轉向的域名，再替換域名部分，做為新地址來301轉向。
代碼如下：
復制代碼代碼如下:
<%
Dim toDomain,fromDomain,curDomain,q,p,url
toDomain=www.companysz.com
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中包含此文件，搞定。
