对于专于注册域名的人来说，空间变得更显可贵，但不可能每个域名都注册一个空间吧，下来说说一个空间绑定多个域名，各个域名互不干扰的方法。
首先要做的，当然是将各个域名解析到空间的IP上来，然后在空间控制面板上绑定这些域名，设置默认首页为index.asp，下来来看代码。
<%
'首先获得当前访问的是什么域名
domainname=Request.ServerVariables("SERVER_NAME")'Request.ServerVariables("HTTP_REFERER")
'分析域名，并转向指定页面
if instr(domainname,"www.guonet.com") then
'此方法适用于绑定域名，将之前的论坛首页改成wwwindex.asp，如果域名是[url]www.guonet.com[/url]，则会引入之前的首页
%>
<!--#include file="wwwindex.asp"-->
<%
elseif instr(domainname,"domain.guonet.com") then
'URL转向，此方法适用于URL转向，不隐藏真实URL
response.redirect "http://www.guonet.com/domain"
elseif instr(domainname,"pr.guonet.com")then
'URL转向，此方法适用于URL转向，隐藏真实URL，可代替域名提供商的URL转发功能，而且速度快
%>
<html><head><title>网站名称</title><body>
<iframe src="http://www.guonet.com/pr" height="100%" width="100%" marginwidth="0" marginheight="0" hspace="0" vspace="0" frameborder="0" scrolling="yes"></iframe>
</body></html>
<%
end if
%>
上面的方法将各个域名绑定到一个空间上实现了，但是散乱的目录结构会使你分不清哪些文件是属于哪些文件的，所以在制作网站的时候，要给自己的程序分门别类，最好是给文件加前缀，或是不要将不重要的文件放在根目录下面。
\程序实现单根目录多站跳转 ------------------------------------------------------------------
程序实现单根目录多站跳转 ----------------------------------------------------------- <% ------------------------------------------------------------- js实现这种功能: <script language=vbscript>
d域名
If instr(d_name,"www.
.cn")<>0 then
现在很多虚拟主机系统已经可以实现子目录绑定，但还有部分虚拟主机提供商不支持多个网站共享一个根目录：
例如 你想在一个虚拟主机空间中放两个站或多个站
此时可以通过ASP程序进行判断实现
方法如下：
<%
Dim d_name
d_name=Request.servervariables("server_name")
'获取用户访问的域名
If instr(d_name,"www.7wap.cn")<>0 then
Response.redirect("/www/index.asp")
'请求www.7wap.cn，跳转至WWW子目录
esleif instr(d_name,"www1.7wap.cn") then
Response.Redirect("/www1/index.asp")
'请求www1.7wap.cn，跳转至WWW1子目录
'也可以通过IFRAME来实现隐藏真实路径
elseif instr(d_name,"www3.7wap.cn") then
%>
<iframe src="/www2/index.asp" height="100%" width="100%" marginwidth="0" marginheight="0" hspace="0" vspace="0" frameborder="0" scrolling="yes" ></iframe>
<%
End If
%>
现在很多虚拟主机系统已经可以实现子目录绑定，但还有部分虚拟主机提供商不支持多个网站共享一个根目录：
例如 你想在一个虚拟主机空间中放两个站或多个站
此时可以通过ASP程序进行判断实现
方法如下：
<%
Dim d_name
d_name=Request.servervariables("server_name")
'获取用户访问的域名
If instr(d_name,www.guonet.com)<>0 then
Response.redirect("/www/index.asp")
'请求www.guonet.com，跳转至WWW子目录
esleif instr(d_name,"www.guonet.com") then
Response.Redirect("/www1/index.asp")
'请求www1.guonet.com，跳转至WWW1子目录
'也可以通过IFRAME来实现隐藏真实路径
elseif instr(d_name,"www3.guonet.com") then
%>
<iframe src="/www2/index.asp" height="100%" width="100%" marginwidth="0" marginheight="0" hspace="0" vspace="0" frameborder="0" scrolling="yes" ></iframe>
<%
End If
%>
Dim iURL
iURL = Split(Request.ServerVariables("SERVER_NAME"),".")
If Lcase(iURL(1))="aaa" or Lcase(iURL(0))="aaa" Then
response.redirect ("http://www.guonet.com/aaa/")
ElseIf Lcase(iURL(1))="bbb" or Lcase(iURL(0))="bbb" Then
response.redirect ("http://www.guonet.com/bbb/")
End If
%>
if instr(lcase(location.href),"lvhen.com")>0 then
location.href="/blog/"
end if
</script>
Response.redirect("/www/index.asp")
'请求www.7wap.cn，跳转至WWW子目录
esleif instr(d_name,"www1.7wap.cn") then
Response.Redirect("/www1/index.asp")
'请求www1.7wap.cn，跳转至WWW1子目录
'也可以通过IFRAME来实现隐藏真实路径
elseif instr(d_name,"www3.7wap.cn") then
%>
<iframe src="/www2/index.asp" height="100%" width="100%" marginwidth="0" marginheight="0" hspace="0" vspace="0" frameborder="0" scrolling="yes" ></iframe>
<%
End If
%>
