用程序的方式实现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
%>
将以上的代码放到站点首页文件的顶部就可以了