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