<%
dim url
url=Request.ServerVariables("HTTP_HOST")
select case url
case "www.pifoo.com" ''要转发的域名
urla = "http://www.xx.com/bbs/" ''转发的目标地址
response.Write"<frameset rows=*><frame scrolling=auto src="&urla&"></frameset>"
case "www.lunji.com" ''要转发的域名
urlb = "http://www.xx.com/music/" ''转发的目标地址
response.Write"<frameset rows=*><frame scrolling=auto src="&urlb&"></frameset>"
end select
%>
将以上的代码放到站点首页文件的顶部就可以了
二、
<%
select case Trim(Request.ServerVariables("SERVER_NAME"))
case "www.fmufo.com"
response.redirect "radio"
case "fmufo.com"
response.redirect "radio"
case "800830.com"
response.redirect "http://www.pifoo.com/index.html"
case else
response.redirect "http://www.pifoo.com/index.html"
end select
%>