一个空间绑定多域名的ASP代码

第一种方法：

如果有有一个ASP空间，而你又想放置多个多个站点，这些代码可以帮到你:
以下为引用的内容：
第一个 
<%if Request.ServerVariables("SERVER_NAME")="www.baoluowanxiang.com" then
response.redirect "zkj"
else
response.redirect "i.htm"
end if%> 
第二个
<%
select case request.servervariables("http_host")
case "www.baoluowanxiang.com" '1
Server.Transfer("v3.htm")
case "baoluowanxiang.com" '2
Server.Transfer("i.htm") 
case "http://www.baoluowanxiang.com" '3
Server.Transfer("netbei.htm")
...... 继续添加 ......
end select
%>

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

第四个
<%if Request.ServerVariables("SERVER_NAME")="www.baoluowanxiang.com" then
response.redirect "index1.asp"
else if Request.ServerVariables("SERVER_NAME")="www.baoluowanxiang.com" then
response.redirect "index2.asp"
else if Request.ServerVariables("SERVER_NAME")="www.baoluowanxiang.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="www.baoluowanxiang.com" then 
%>
<!--#include file=artisan.asp -->
<%
Elseif result="www.baoluowanxiang.com" then 
%>
<!--#include file=web.asp -->
<%
Elseif result=".forwest.com" then 
%>
<!--#include file=forwest_com.asp -->
<%
Else 
%>
<!--#include file=netbei.asp -->
<%
End if
%>
网站自己换成自己想弄的就行了
 

本文转自 ☆★ 包罗万象网 ★☆ - http://www.baoluowanxiang.com 转载请注明出处，侵权必究！
原文链接：http://www.baoluowanxiang.com/a/website/web-based/2010/0726/1249.html