[原创][ASP] 域名泛解析后实现无限制任意级域名

  默认站点，主机头为空

  这样任何指向你服务器IP的域名都能访问该站点

  然后在首页判断域名，根据域名不同给出不同路径即可

  Dim Domain   Domain=Request.ServerVariables("http_host")

  Select Case Domain   Case "Ai169.Com"        response.redirect   "Www.Ai169.Com"   Case "123.Ai169.Com"    response.redirect   "123/Index.html"   Case "asp.Ai169.Com"    response.redirect   "asp.html"   Case "Home.Ai169.Com"   server.transfer   "Index.html"   Case "219.133.197.221"  server.transfer   "HTTP404/403.htm"   End  Select