同一空間多綁一個(gè)域名

復(fù)制代碼代碼如下:

<%  
CheckDomain  
Sub CheckDomain() 
dim sDomain 
sDomain = Request.ServerVariables("HTTP_HOST") 
If Instr(sDomain,"a.xxx.com")>0 then Response.Redirect "a/" 
End Sub 
%>  

同一空間多綁二個(gè)域名 

復(fù)制代碼代碼如下:

<%  
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 
%> 

同一空間多綁三個(gè)域名 

復(fù)制代碼代碼如下:

<%  
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 
%>