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