<% CheckDomain Sub CheckDomain() dim sDomain sDomain = Request.ServerVariables("HTTP_HOST") If Instr(sDomain,"a.xxx.com")>0 then Response.Redirect "a/" End Sub %>
同一空間多綁二個域名
復制代碼 代碼如下:
<% CheckDomain Sub CheckDomain() dim sDomain sDomain = Request.ServerVariables("HTTP_HOST")
If Instr(sDomain,"a.xxx.com")>0 then Response.Redirect "a/" Elseif Instr(sDomain,"b.xxx.com")>0 then Response.Redirect "b/" End If End Sub %>
同一空間多綁三個域名
復制代碼 代碼如下:
<% CheckDomain Sub CheckDomain() dim sDomain sDomain = Request.ServerVariables("HTTP_HOST")
If Instr(sDomain,"a.xxx.com")>0 then Response.Redirect "a/" Elseif Instr(sDomain,"b.xxx.com")>0 then Response.Redirect "b/" Elseif Instr(sDomain,"c.xxx.com")>0 then Response.Redirect "c/" End If End Sub %>
