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