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