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动态程序下实现的,如果是生成静态页面的,则不能使用。