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(
相关文档：
http://www.w3school.com.cn/asp/met_mappath.asp
定义和用法
MapPath 方法可把指定的路径影射到服务器上相应的物理路径上。
注释：此方法不能用于 Session.OnEnd 和 Application.OnEnd 中。
实例
实例 1
举例，文件 test.asp 位于 C:\Inetpub\wwwroot\Script。
文件 Test.asp (位于 C:\Inetpub\wwwroot\Script) 包� ......
一、conn.asp
<%
'@Language="VBSCRIPT" CODEPAGE=65001
'meta http-equiv="Content-Type" content="text/html; charset=gb2312"
' 936 utf-8
class TDB
function qry(byval sqlquery)
& ......
HTML:
<META HTTP-EQUIV="pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache, must-revalidate">
<META HTTP-EQUIV="expires" CONTENT="Wed, 26 Feb 1997 08:21:57 GMT">
<META HTTP-EQUIV="expires" CONTENT="0">
PHP：
header("Expires: Mon, 26 Jul 1997 ......
Using the global.asa to schedule ASP code execution.
Have you ever had some asp code that needed to execute every once in a while but, you just didn't know how ......
<%
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 ......
