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("")来实现这个功能,好处有以下几个方面:
1、不会出现页面跳转,直接输入网址后,网址后不会带任何文件,访问者不会看出你的两个网站是放在同一虚拟主机上。
2、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 ......
IIS无法访问asp!
解决办法!今天打开电脑发现IIS无法访问asp页面。
提示:Server Application Error 然后就有了下面的一段话。
The server has encountered an error while loading an application during the processing of your request. Please refer to the event log for more detail information. Please contact ......
一、 环境设置
服务器端的环境设置从参考数据上看,微软系列的设置应该都行,即:
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 ......
<%
'*******************************************************
'函数名:CreateFolder(sPath)
'作 用: 创建目录
'参 数:sPath : 创建的相对目录路径
& ......