ASP/Visual Basic代码
<%
sn=lcase(Request.ServerVariables("SERVER_NAME")) '用于获取用户是通过哪个域名访问的,并转换成小写
if sn="www.abc.net" or sn="yuxicn.net" then server.Transfer("default1.asp")
if sn="www.def.net" or sn="zxks.net" then server.Transfer("index.html")
《%
host=lcase(request.servervariables("HTTP_HOST"))
SELECT CASE host
CASE "xishui.info"
response.redirect "blog/"
CASE "www.xishui.info"
response.redirect "asp.asp"
CASE ELSE
response.redirect "index.htm"
END SELECT
%》
ASP代码格式二:
《%
Dim StrDomain
StrDomain=Request.ServerVariables("SERVER_NAME")
'获得包含域名的字符串
select case StrDomain
case "www.aaa.com"
Response.redirect "http://www.aaa.com/aaa/index.asp"
case "www.bbb.com"
Response.redirect "http://www.bbb.com/bbb/index.asp"
case else
Response.write "未知错误"
end select
%》
ASP代码格式三:
把所有域名都指向根目录 然后在index.asp使用跳转
<%
host=lcase(request.servervariables("HTTP_HOST"))
SELECT CASE host
CASE "www.it000.com"
response.redirect "01/"
CASE "bbs.it000.com"
response.redirect "02/"
CASE ELSE
response.redirect "03/"
END SELECT
%>