当前位置: 首页 > 图文教程 > 网络编程 > ASP > 实用301转向到另一域名相应页面的asp代码

ASP
飞云写的防CC攻击的ASP程序插件 打包下载
随机调用n条数据的方法分析
一个强健 实用的asp+ajax二级联动菜单(有演示和附源程序打包下载)
asp 读取 utf-8格式文档并生成utf-8格式文档的乱码问题
实现纯真IP txt转mdb数据库的方法
用实现ASP批量删除目录及文件的代码
[ASP]RegExp对象提供简单的正则表达式支持功能使用说明
用ASP生成UTF-8网页文件的两种方法
asp利用fso给文件夹和文件改名的代码
asp 采集实战代码
解决采集时出现msxml3.dll 错误的方法
asp实现二进制字符串转换为Unicode字符串
asp 用InStr查找特定字符串的代码
[推荐]ASP编程通用函数收藏大全
去除HTML代码中所有标签的两种方法
asp Chr 函数 数字转字母的方法
asp快速开发方法之数据操作实例代码
asp去除所有的超级链接的两种方法 替换与正则
asp下实现截取字符串特定部分内容函数
asp下取得客户端IP地址函数 转换IP地址函数

ASP 中的 实用301转向到另一域名相应页面的asp代码


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-13   浏览: 54 ::
收藏到网摘: n/a

据说,多域名同网站会被认为内容重复,不利于搜索引擎中的排名。比较好的做法是,指定一个主域名,其它域名都转向到此域名。 前几天,为了增强本站的SEO,着手把另一个域名:www.kanshule.com下的所有页面301转向到www.ruanchen.com下。
  由于本站目前只有一个博客,于是从博客上入手。
  思路很简单,获取当前浏览页面的域名,如果是需要转向的域名,再替换域名部分,做为新地址来301转向。
  代码如下:
复制代码 代码如下:

<%
Dim toDomain,fromDomain,curDomain,q,p,url
toDomain=www.ruanchen.com
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中包含此文件,搞定。