程序代码
<%
select case request.servervariables("http_host")
case www.SMbey0nd.com ’域名1
Server.Transfer("index.asp")
case "blog.SMbey0nd.com" ’域名2
Server.Transfer("blog/index.asp")
case "www.SMbey0ndBBS.com" ’域名3
Server.Transfer("BBS/index.asp")
'...... 继续添加 ......
case else ’域名N
Server.Transfer("XXX/index.asp")
end select
%>