asp下同一空間多綁多哥域名的方法

同一空間多綁一個域名
復制代碼 代碼如下:
<% 
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
%>