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

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