实用301转向到另一域名相应页面的asp代码
作者:
据说,多域名同网站会被认为内容重复,不利于搜索引擎中的排名。比较好的做法是,指定一个主域名,其它域名都转向到此域名。
前几天,为了增强本站的SEO,着手把另一个域名:www.kanshule.com下的所有页面301转向到www.jb51.net下。
由于本站目前只有一个博客,于是从博客上入手。
思路很简单,获取当前浏览页面的域名,如果是需要转向的域名,再替换域名部分,做为新地址来301转向。
代码如下:
<%
Dim toDomain,fromDomain,curDomain,q,p,url
toDomain=www.jb51.net
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中包含此文件,搞定。
由于本站目前只有一个博客,于是从博客上入手。
思路很简单,获取当前浏览页面的域名,如果是需要转向的域名,再替换域名部分,做为新地址来301转向。
代码如下:
复制代码 代码如下:
<%
Dim toDomain,fromDomain,curDomain,q,p,url
toDomain=www.jb51.net
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中包含此文件,搞定。
您可能感兴趣的文章:
- Nginx下301重定向域名的方法小结
- 使用ISAPI_Rewrite做简单实用的301重定向
- linux URL的301重定向代码分析
- 301重定向实现方法,及对网站优化的作用
- 解析网站301重定向的实现方法,包括iis,apache,asp,php的方法
- 比较详细的win2003 IIS6.0 301重定向带参数的问题解决方法
- 站长必备的最齐全的301转向代码合集
- asp,asp.net,php,jsp下的301转向代码
- php 301转向实现代码
- ASP.NET中的跳转 200, 301, 302转向实现代码
- efang设置出现读取Serv-U路径失败330101的解决方法
- iis 301转向和网址规范化总结分析
- iis下设置301 Redirect 永久重定向的方法
- asp.net php asp jsp 301重定向的代码(集合)