ASP实现同一虚拟主机空间安放多个网站的方法
ASP实现同一虚拟主机空间安放多个网站的方法
现在的域名很便宜，不少朋友手里多少都有几个，如果您想用手中的几个域名做多个网站的话，并不用同时购买多个虚拟主机，您只要先将您所有的域名绑定到您的虚拟主机上，然后将虚拟主机根目录中的index.asp（首页文件）里加入下列代码就可以了：
<%
sn=lcase(Request.ServerVariables("SERVER_NAME")) '用于获取用户是通过哪个域名访问的，并转换成小写
if sn="www.zhongxun.net" or sn=" zhongxun.net" then server.Transfer("default1.asp")
if sn="www.37dns.com" or sn="37dns.com" then server.Transfer("index.html")
%>
看明白了吧，如果访问者输入的域名是[url]www.zhongxun.net[/url]或zhongxun.net的话，就访问default1.asp页面，如果是用37dns.com或[url]www.37dns.net[/url] 的话就调用index.html文件。
网上还有一些教程是让您用response.redirect来实现转向，但在这里，我建议您使用server.Transfer("")来实现这个功能，好处有以下几个方面：
１、不会出现页面跳转，直接输入网址后，网址后不会带任何文件，访问者不会看出你的两个网站是放在同一虚拟主机上。
２、server.Transfer("")不会阻挡搜索引擎对你的网站的收录，而response.redirect可不一定。
=========================================================================
=========================================================================
如果一个空间放多个网站，一般是在域名解析里面使用URL转发，但是这样会在输入域名后，地址栏上面显示A记录域名的地址。
例如：www.cunyu.cn 已做A记录绑定空间，如果我将www.k2climb.cn做URL转发到下面地址http://www.cunyu.cn/k2climb，在浏览器地址栏输入www.k2climb.cn就会跳转到www.cunyu.cn/k2climb这个地址。
下面这个方法可以实现多个域名共用一个空间，而看上去象是都做了A记录，值得推荐。
用server.Transfer("")来实现一个空间多个站的方法：
您先将您所有的域名绑定到您的虚拟主机上（请酌情考虑，本人使用的万网域名支持10条A记录绑定，超出会收取费用），然后将虚拟主机根目录中的index.asp（首页文件）里加入下列代码就可以了：
<%
sn=lcase(Request.ServerVariables("SERVER_NAME")) '用于获取用户是通过哪个域名访问的，并转换成小写
if sn="www.cunyu.cn" or sn="cunyu.cn" then server.Transfer(
相关文档：
代码如下：
Function RemoveHTML(strText)
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
RemoveHTML = replace(RemoveHTML," "," ")
End Function
这是最基本的正则替换，有某些特殊字符还没过滤，可自行添加 ......
一、 环境设置
服务器端的环境设置从参考数据上看，微软系列的设置应该都行，即：
1．Win9x+PWS+Office
2．Win2000 Professional+PWS+Office
3．Win2000 Server+IIS+Office
目前笔者测试成功的环境是后二者。Office的版本没有特别需求，考虑到客户机设置的不确定性和下兼容特性，建议服务器端Of ......
<%
Class Cls_FSO
Public objFSO
Private Sub Class_Initialize()
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
End Sub
Private Sub class_terminate()
Set objFSO = Nothing
End Sub
'=======文件操作========
'取文件大小
Public Function GetFileSize(FileName)
Dim f ......
<%
'*******************************************************
'作 用: 得到文件扩展名
'函数名: GetFileExt(fileTrue)
'参 数: sFileName 文件名
......
<%
yourip=Request.ServerVariables("REMOTE_ADDR")
if yourip="111.111.111.111" then
Response.Redirect ("http://www.baidu.com")
end if
%>
Dim UserIP
UserIP = Request.ServerVariables("Http_X_Forwarded_For")
If UserIP = "" Then UserIP = Request.ServerVariables("Remote_Addr") : User ......
