[转]单空间绑定多域名代码大全

时间：2009-5-6 0:16:44 点击：578

ASP空间，泛解析也是支持的，当然主机头需要留空而你又想放置多个站点，

第一个

程序代码
<%
if Request.ServerVariables("SERVER_NAME")="www.zzec.cn" then
response.redirect "/help/"
else
response.redirect "/blog/"
end if
%>

第二个

程序代码
<%
select case request.servervariables("http_host")
case "www.zzec.cn"
Server.Transfer("/help/")
case "bbs.dlstu.cn"
Server.Transfer("/help/")
case "blog.dlstu.cn"
Server.Transfer("/blog/")
...... 继续添加 ......
end select
%>

第三个

程序代码
<%
if instr(Request.ServerVariables("SERVER_NAME"),"dlstu.cn")>0 then
response.redirect "/help/"
elseif instr(Request.ServerVariables("SERVER_NAME"),"dlstu.com")>0 then
response.redirect "/help/"
elseif instr(Request.ServerVariables("SERVER_NAME"),"h11.cn")>0 then
response.redirect "bbs/"
end if
%>

第四个

程序代码
<%
if Request.ServerVariables("SERVER_NAME")="www.zzec.cn" then
response.redirect "/help/index.asp"
elseif Request.ServerVariables("SERVER_NAME")="www.dlstu.com" then
response.redirect "/help/index.asp"
elseif Request.ServerVariables("SERVER_NAME")="bbs.163.com" then
response.redirect "/help/index.asp"
end if
%>

第五个

程序代码
<%
'取得HTTP输入的值并付值到HTOST中
dim host
host=lcase(request.servervariables("HTTP_HOST"))
‘开始条件跳转
Select CASE host
' 如果HOST的值是www.zzec.cn就选择事件case www.zzec.cn的命令
CASE www.zzec.cn
'直接跳转
response.redirect "/help/"
CASE www.dlstu.com
response.redirect "/blog/"
'其它域名跳转
CASE ELSE
response.redirect "/blog/"
END Select
%>

第六个

程序代码
<%
from=lcase(Request.ServerVariables("HTTP_HOST"))
if left(from,4)="www." then
Response.redirect("index.asp") '此处为网站首页地址
else
response.Write( "/help/")
end if
%>

这个呢～～也是支持多域名绑定的，非主机头绑定，当然，也是某个域名泛解析到服务器最好的选择：）Oblog用的就是这种跳转。

第七个
用JS实现泛玉米解析

location对象有以下几个属性：

hash 设置或获取 href 属性中在井号“#”后面的分段。
host 设置或获取 location 或 URL 的 hostname 和 port 号码。
hostname 设置或获取 location 或 URL 的主机名称部分。
href 设置或获取整个 URL 为字符串。
pathname 设置或获取对象指定的文件名或路径。
port 设置或获取与 URL 关联的端口号码。
protocol 设置或获取 URL 的协议部分。
search 设置或获取 href 属性中跟在问号后面的部分。

因此。我们就可以根据玉米的不同实现跳转不同的目录，具体代码：

程序代码

<script language="javascript">
switch (window.location.hostname) {
case "test" ://确定玉米为TEST
window.location.pathname="1"//跳转到1目录
break;
case "127.0.0.1" ://确定玉米为127.0.0.1
window.location.pathname="2"//跳转到2目录
break;
//依次类推写下去
default ://如果没有找到该玉米
window.location.pathname="3"//跳转到3目录
}
</script>

不支持泛解析虚拟主机绑定多域名的ASP代码

如果有有一个ASP空间，而你又想放置多个多个站点或DOMAIN，这些代码可以帮到你

第一个
<%if Request.ServerVariables("SERVER_NAME")="www.netbei.com" then
response.redirect "zkj"
else
response.redirect "i.htm"
end if%>

第二个
<%
select case request.servervariables("http_host")
case "www.netbei.com"
Server.Transfer("v3.htm")
case "www.aspcn.net" '2
Server.Transfer("i.htm")
case "www.netbei.cn" '3
Server.Transfer("netbei.htm")
'...... 继续添加 ......
end select
%>

第三个
<%if instr(Request.ServerVariables
("SERVER_NAME"),"kekexi.com")>0 then 6
response.redirect "index.asp"
else if instr(Request.ServerVariables
("SERVER_NAME"),"4668.com")>0
response.redirect "x/index.asp"
else if instr(Request.ServerVariables
("SERVER_NAME"),"web315.com")>0 thenr
esponse.redirect "index3.asp"
end if
end if
end if%>

第四个
<%if Request.ServerVariables("SERVER_NAME")="www.netbei.com" then
response.redirect "index1.asp"
else if Request.ServerVariables("SERVER_NAME")="www.cike.org" then
response.redirect "index2.asp"
else if Request.ServerVariables("SERVER_NAME")="www.163.com" then
response.redirect "index3.asp"
end if
end if
end if%>

第二种方法：
<%
dim domainname,result
domainname=Request.ServerVariables("SERVER_NAME")
result=right(domainname,12)
if result="my.netbei.com" then
%>
<!--#include file=mynetbei.asp -->
<%
Elseif result="rtisancn.com" then
%>
<!--#include file=artisan.asp -->
<%
Elseif result="gn.netbei.com" then
%>
<!--#include file=web.asp -->
<%
Elseif result=".forwest.com" then
%>
<!--#include file=forwest_com.asp -->
<%
Else
%>
<!--#include file=netbei.asp -->
<%
End if
%>