0
人
已閱讀
已閱讀
ASP程序的301跳轉代碼
作者：未知?? ?? 來源：杭州SEO?? ?? 發布時間：2016-10-19
做SEO的都知道，URL的唯一性，多個域名指向同一個網站，我們需要將其他的域名都301重定向到首選域上。一般情況下，網站具有兩個域名，帶www和不帶www，這個時候我們就需要做好301的重定向工作，當然還有一個方法：徹底禁止搜索引擎收錄非首選域名的方法,此方法針對新站比較好 ，運用該方法，也需要做好301。下面是關于asp程序的301跳轉代碼大集合。
1、使用服務器進行重定向：Internet信息服務管理器->虛擬目錄->重定向到URL，輸入需要轉向的目標URL，并選擇“資源的永久重定向”。
2、asp程序301：
不帶www跳轉到帶www的域名:
<%
Dim Ysb_Host,Ysb_Url,Ysb_Domain,Ysb_Parameter
Ysb_Host = LCase(Request.ServerVariables(“SERVER_NAME”)) ’取得進入所輸入的域名
Ysb_Url = LCase(Request.ServerVariables(“SCRIPT_NAME”)) ’判斷地址后面部分
Ysb_Parameter=Request.QueryString
IF instr(Ysb_Host,”www.”)=0 then
Ysb_Domain=”http://www.”&Ysb_Host&Ysb_Url
IF Ysb_Parameter<>”" Then Ysb_Domain=Ysb_Domain&”?”&Ysb_Parameter
IF Ysb_Domain=(“http://www.”&Ysb_Host&”/index.asp”) Then
Ysb_Domain=”http://www.”&Ysb_Host
End IF
Response.Status=”301 Moved Permanently”
Response.AddHeader ”Location”,”"&Ysb_Domain&”"
Response.End
End IF
%>
通用性的調整，不管是什么類型的域名都可以跳轉：
<%
if request.ServerVariables(“HTTP_HOST”)<>”www.thehandsomediaries.com” then
Response.Status=”301 Moved Permanently”
if Request.ServerVariables(“QUERY_STRING”)<>”" then p=”?” end if
if Request.ServerVariables(“SCRIPT_NAME”)=”/” then
Response.AddHeader “Location”,”http://www.thehandsomediaries.com”
else
Response.AddHeader “Location”,”http://www.thehandsomediaries.com“&Request.ServerVariables(“SCRIPT_NAME”)&p&Request.ServerVariables(“QUERY_STRING”)
end if
Response.End
end if
%>
注：以上兩段代碼是實現整站的跳轉，需要將代碼加入到程序的公用文件下，如：conn。
首頁301跳轉：
如果您只需要做首頁的301跳轉代碼如下：
<%
website=request.ServerVariables(“Server_name”)
if website=”ln-office.com” then
Response.Status=”301 Moved Permanently”
Response.AddHeader “Location”,”http://www.thehandsomediaries.com/”
end if
%>
注意：以上代碼都是在asp動態程序下實現的，如果是生成靜態頁面的，則不能使用。
