用程序的方式实现url转发功能

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