The method of multi-binding Togo domain name in the same space under ASP _asp Foundation

The same space to bind a domain name more

Copy Code code as follows:

<%
Checkdomain
Sub Checkdomain ()
Dim Sdomain
Sdomain = Request.ServerVariables ("Http_host")
If Instr (Sdomain, "a.xxx.com") >0 then Response.Redirect "A/"
End Sub
%>

Two more domains in the same space

Copy Code code as follows:

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

Three more domains in the same space

Copy Code code as follows:

<%
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 "/"
End If
End Sub
%>