一段Asp301重定向过程代码
作者：雨哲 发布时间：2010-05-04 16:38:00
现在的域名提供已经取消免费的url转发功能，而且我们一般主要用的是带www的域名，以前不带www的域名一般是做url转发跳转到带www的域名上的。现在域名提供取消了这项免费功能，如果不使用这项功能有时候又影响网站访问访问，因为我们并不知道用户输入的是带www的还是不带www的域名。
为了更方便用户访问，所以我们还是得考虑到两种情况都有可能出现，所以仍然还是需要两个域名（带www的和不带www，如aspxhome.com和www.aspxhome.com）都能正常访问。而且一般如果两个域名都绑定到一个网站上，这样相对于收录又可能存在权重问题。所以最好的方法还是用301重定向功能来实现自动跳转，而且搜索引擎也能识别到。
网站asp的301重定向代码很好找的，我这里写成一个过程可以直接调用。下面的代码只是实现不带www的域名跳转到带www的域名，包括参数。注意，伪静态的路径无法识别。
Sub Location301(iLocationDomain) 'iLocationDomain-是要跳转的不带www的域名，我这样写是方便不同用户的不同域名直接调用不用修改代码。
Dim NowHostDomain, ScriptAddress, RQueryString, LocationUrl
NowHostDomain = Trim(Request.ServerVariables("HTTP_HOST"))
If NowHostDomain = iLocationDomain Then
ScriptAddress = Trim(Trim(Request.ServerVariables("SCRIPT_NAME"))) '路径及文件名
'ScriptAddress = "/" '手动设置文件名或目录路径
RQueryString = Trim(Request.QueryString) '参数
LocationUrl = "http://www." & iLocationDomain & ScriptAddress
If RQueryString <> "" Then LocationUrl = LocationUrl & "?" & RQueryString '路径及文件名+参数
Response.Status = "301 Moved Permanently"
Response.AddHeader "Location", LocationUrl
Response.End
End If
End Sub
'调用 Call Location301("aspxhome.com")
0
投稿猜你喜欢
插件下载：blueideasearch.xpi首先第一步 说一下怎么样查看firefox插件的源码, 就我上边写的那个东西,把它下载下来.将- 最近在改个程序用到了在js中设置css的float属性，以为和平常的写法一样，原来不是，只好去请教google，原来...首先大家先来看一下
- 给静态网页加密的方法有很多，有的简单有的复杂。前两天看见有人问静态网页加密问题，就写了这个代码思路：加密时：先把用户的密钥A用md5加密为B
- 代理服务是一种复杂的技术，具有很多可配置的移动组件。详细信息如下：信息信息是指在服务代理应用程序中调用的基本信息单元。对于服务代理来说，信息
- 如今大部分网站仍然采用表格嵌套内容的方式来制作网站，虽然此方法对于我们来说比较熟悉、比较上手；但是，它却阻碍了一种更好的、更有亲和力的、更灵
- 在近日的写Web程序时用到了Access的模糊查询,在Acces里写代码怎么也找不到记录后来才起来原来Acess和SqlServer的模糊查
- 在网站建设中，分类算法的应用非常的普遍。在设计一个电子商店时，要涉及到商品分类；在设计发布系统时，要涉及到栏目或者频道分类；在设计软件下载这
- 使用ENUM代替字符串类型有时候， 可以通过使用ENUM来代理常规的字符串类型。一个ENUM列能够存储65535个不同的字符串值，MySQL
- 在实际的数据库应用中，我们经常遇到这样一个问题，连接到Oracle数据库的用户在作了一次操作后，再也没有后续操作，但却长时间没有和数据库断开
- *注意：本文的内容涉及到修改NTFS磁盘权限和设置安全策略，请务必在确认您了解操作可能的后果之后再动手进行任何的修改。文中提及的权限都是在原
- CSS重设就是由于各种浏览器解释CSS样式的初始值有所不同，导致设计师在没有定义某个CSS属性时，不同的浏览器会按照自己的默认值来为没有定义
- 一、新手常犯的错误在论坛看到很多帖子代码中都有一个共同的基本错误，字段类型错误。程序和数据库是紧紧相连的，数据库字段文本型或时间型的都使用单
- 本文将演示如何使用SQL 7.0服务器的Enterprise Manager创建、配置一个示例数据库。我们还会演示如何增加具有合适权限的用户
- 我们可以通过更改注册表来解决这个问题： 打开注册表，进入到[HKEY_USERS\.DEFAULT\Control Panel\Intern
- 今天好不容易闲下来半天，所以和大家分享一下我之前总结的一套Web UI 设计命名规范，也就是网站用户界面设计(俗称网页设计)命名规范。这套规
- 感谢 Dawn CSS Reset 的尝试和建议。针对字体的写法，觉得需要说明一下：body,button, input, select,
- 使用Access数据库生成申报数据与读入数据的实例方法：示例：Sub Mwrite()On Error GoTo thiserrDim rs
- 不久之前，笔者一个在企业中从事网管工作的朋友向我求助关于SQL Server服务器内存升级后遇到的问题。原来，他们企业准备上一个企业邮箱系统
- 对于outerHTML这个DOM属性，在IE/Opera/google Chorme等浏览器中都是可以使用的，但唯独Firefox是不支持的
- 本文讲解了一个使用XML技术上传文件的例子，使用该方法没有传统方法中的种种限制。 这个例子讲述了如何使用MSXML3.0和ADO Strea
