实用301转向到另一域名相应页面的asp代码
来源：asp之家 发布时间：2011-04-18 10:42:00
标签：301,转向,asp
前几天，为了增强本站的SEO，着手把另一个域名：www.aspxhome.com下的所有页面301转向到www.cidianwang.com下。
由于本站目前只有一个博客，于是从博客上入手。
思路很简单，获取当前浏览页面的域名，如果是需要转向的域名，再替换域名部分，做为新地址来301转向。
代码如下:
<％
Dim toDomain,fromDomain,curDomain,q,p,url
toDomain=www.cidianwang.com
fromDomain="aspxhome.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=aspxhome.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中包含此文件，搞定。
0
投稿猜你喜欢
- 现在主流的cms或者blog等系统中，都内置的有插件系统，但是层层深入、剖析实现的方式，其实都是最简单的钩子的复杂化的实现。前言钩子是插件执
- MySQL支持的两种主要表存储格式MyISAM，InnoDB，上个月做个项目时，先使用了InnoDB，结果速度特别慢，1秒钟只能插入10几条
- 使用方法和步骤如下：step1检测是否已经启用ServiceBroker，检测方法：SelectDATABASEpRoPERTYEX(
- MooTools 1.2的整理排序类Sortables原文地址：30 Days of Mootools 1.2 Tutorials - Da
阅读上一篇：FrontPage2002简明教程七：HTML在FrontPage中的应用 FrontPage 2002比起以前版本的FronP- 看到论坛上有人模仿alert，自己也写了一个。本来想模仿winapi里的MessageBox ；但可惜js 不支持，阻塞模式。返回值只能用异
- 公布到网页上的Email经常会被一些工具自动提取，一些非法用户就会利用所提取的Email大肆发送垃圾邮件。这些工具大多都是查找链接中“mai
- 排序是个很泛的概念，而且根据被排序的数据量排序方法和侧重又有很大的不同。因此一直没想到从何着手。今天把玩iphone的时候突然又想到这个问题
- 1005：创建表失败1006：创建数据库失败1007：数据库已存在，创建数据库失败1008：数据库不存在，删除数据库失败1009：不能删除数
- 存储过程的优缺点： 存储过程优点： 1.由于应用程序随着时间推移会不断更改，增删功能，T－SQL过程代码会变得更复杂，StoredProce
- 在设计网页之前，客户或产品经理会提出对网页视觉风格设计的期望：活跃、大气、稳重、信赖、都市化….. 设计师一听到关键词或许很自然地在心里蹦出
- <!-- -----------[test]表生成脚本---------------
- 当产品走到HTML Coding这块，多浏览器的测试是很重要，也很麻烦的一个环节。现在大家主要是保证IE6，7及Firefox的一致。bro
- Sample:http://www.happyshow.org/sample/20060613/nav/nav.html<!DOCTY
- 利用MySQLfs这个工具，我么可以在MySQL关系数据库中存储文件系统。MySQLfs将文件系统中文件的字节内容分解成数据库中的元组，而数
- 【译者的话】 作为一家非盈利性的防止青少年 * 的机构， Five Alive 希望拥有一个独特的标志来配合机构的宣传。他们决定在网站上通过竞
- 一、ASPJPEG文字水印对图片描边：程序代码： <％ Set Jpeg = Se
- 正则表达式（Regular Expression）为字符串模式匹配提供了一种高效、方便的方法。几乎所有高级语言都提供了对正则表达式的支持，或
- 第一步：安装SQL200，并启动SQL2000。到网上下载SQL2000，并安装完毕。（ * 作系统是XP，装的是SQL个人版），按照下面所示
- 第一招、mysql服务的启动和停止net stop mysqlnet start mysql第二招、登陆mysql语法如下： mysql -
