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(
相关文档：
ASP如何连接数据源？(系统DSN)中建立的数据源？
ASP怎么建立连接，不是OLEDB方式，用ODBC中的“用户DSN”建立的数据源进行连接？如何操作？
问题补充：我的是ODBC中的“用户DSN”不是“系统DSN”，“用户DSN”怎么连接？而且我的数据库有密码。
提问者：匿名
最佳答案
Set co ......
asp连接access和mssql的万能代码：
'解决了ACCESS数据库路径的问题！
'采用DBType=0或DBType=1来区分AC库还是MSSQL库
'具体采用AC库时应注意的事项，请看程序说明
-----------------------------------------------
Dim DBType,Conn,StrConn
DBType=0 '0为Access数据库，1为MSSQL数据库
If(DBType=0) Then
......
代码如下：
Function RemoveHTML(strText)
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
RemoveHTML = replace(RemoveHTML," "," ")
End Function
这是最基本的正则替换，有某些特殊字符还没过滤，可自行添加 ......
与ASP相比，ASP.NET在很多方面有了显著的改进，这些方面包括：性能、状态管理、可缩放性、配置、部署、安全性、输出缓存控制、网络场支持和XML Web services结构等。
如果您具有ASP 开发技能，则新的 ASP.NET 编程 ......
<%
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 ......
