一个空间绑定多个域名各个域名互不干扰简易实现方法

对于专于注册域名的人来说,空间变得更显可贵,但不可能每个域名都注册一个空间吧,下来说说一个空间绑定多个域名,各个域名互不干扰的方法。

首先要做的,当然是将各个域名解析到空间的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
%>

上面的方法将各个域名绑定到一个空间上实现了,但是散乱的目录结构会使你分不清哪些文件是属于哪些文件的,所以在制作网站的时候,要给自己的程序分门别类,最好是给文件加前缀,或是不要将不重要的文件放在根目录下面。

 


d域名
If instr(d_name,"www.

\程序实现单根目录多站跳转

现在很多虚拟主机系统已经可以实现子目录绑定,但还有部分虚拟主机提供商不支持多个网站共享一个根目录:

例如 你想在一个虚拟主机空间中放两个站或多个站
此时可以通过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
%>

-------------------------------------------------------------

js实现这种功能:

<script language=vbscript>
if instr(lcase(location.href),"lvhen.com")>0 then
   location.href="/blog/"
end if
</script>

.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
%>