实用301转向到另一域名相应页面的asp代码
网络编程 2021-07-05 10:58www.168986.cn编程入门
据说，多域名同网站会被认为内容重复，不利于搜索引擎中的排名。比较好的做法是，指定一个主域名，其它域名都转向到此域名。
前几天，为了增强本站的SEO，着手把另一个域名：.kanshule.下的所有页面301转向到.jb51.下。
由于本站目前只有一个博客，于是从博客上入手。
思路很简单，获取当前浏览页面的域名，如果是需要转向的域名，再替换域名部分，做为新地址来301转向。
代码如下：
<%
Dim toDomain,fromDomain,curDomain,q,p,url
toDomain=.jb51.
fromDomain="kanshule."
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."
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=.jb51.
fromDomain="kanshule."
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."
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中包含此文件，搞定。
上一篇：asp伪继承初探_实例代码
下一篇：asp生成带有样式的word文件方法
编程语言
- 机械手焊接机器人编程 机械手焊接设备编程
- vb数据库编程实例，vb做数据库
- tiobe世界编程语言排行榜，全球编程语言排行
- 成都java编程培训 成都it编程培训中心
- 编程基础培训，编程基础知识培训
- flash游戏编程基础教程，flash游戏开发教程
- 不会英语能学编程吗 不会英语可以学程序员吗
- 爱心代码编程C语言 爱心代码编程c语言公式
- c语言编程学习入门 c语言编程快速入门
- 西门子plc编程培训 西门子plc编程培训班
- 哪里可以学编程 台州哪里可以学编程
- 少儿编程哪个好 少儿编程哪个品牌好
- 编程是什么意思，图形编程是什么意思
- c语言编程软件下载，c语言编程软件在哪下载
- java编程软件下载，java编程下载手机版
- ug编程培训学校，ug编程培训教程