asp下同一空间多绑多哥域名的方法

发布：dxy 字体：[增加减小] 类型：转载

同一空间多绑一个域名

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

同一空间多绑二个域名

[复制此代码]CODE:

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

同一空间多绑三个域名

[复制此代码]CODE:

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