设为首页 | 收藏本站欢迎来到杭州23seo团队!
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.23wzb.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.23wzb.com”
else
Response.AddHeader “Location”,”http://www.23wzb.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.23wzb.com/”
 
end if
%>
 
注意:以上代码都是在asp动态程序下实现的,如果是生成静态页面的,则不能使用。