% dim url url=Request.ServerVariables("HTTP_HOST") select case url case "baidianfeng15.cn" ''要转发的域名 urla = "http://www." & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL") ''转发的目标地址 response.Redirect(urla) case "baidianfeng15.cn" ''要转发的域名 urla = "http://www." & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL") ''转发的目标地址 response.Redirect(urla) end select %>