<% dim url url=Request.ServerVariables("HTTP_HOST") select case url case "www.xhxly.com" urla = "http://www.hutouwan.com/xhxly/"; response.Write"" case "www.xhxly.com" ' urlb = "http://www.hutouwan.com/xhxly"; response.Write"" end select %>