aspの下で同じ空間でトーゴのドメイン名を多く縛る方法

1407 ワード

同じ空間に複数のドメイン名を接続する


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

。

どのように簡単なチャットプログラムを作成しますか？

なぜある伝言帳にはデータベースが必要ないのですか？