One more domain name is tied to the same space
The code copy is as follows:
<%
CheckDomain
SubCheckDomain()
dimsDomain
sDomain=Request.ServerVariables("HTTP_HOST")
IfInstr(sDomain,"a.xxx.com")>0thenResponse.Redirect"a/"
EndSub
%>
Two more domain names are bound in the same space
The code copy is as follows:
<%
CheckDomain
SubCheckDomain()
dimsDomain
sDomain=Request.ServerVariables("HTTP_HOST")
IfInstr(sDomain,"a.xxx.com")>0then
Response.Redirect"a/"
ElseifInstr(sDomain,"b.xxx.com")>0then
Response.Redirect"b/"
EndIf
EndSub
%>
Three more domain names are bound in the same space
The code copy is as follows:
<%
CheckDomain
SubCheckDomain()
dimsDomain
sDomain=Request.ServerVariables("HTTP_HOST")
IfInstr(sDomain,"a.xxx.com")>0then
Response.Redirect"a/"
ElseifInstr(sDomain,"b.xxx.com")>0then
Response.Redirect"b/"
ElseifInstr(sDomain,"c.xxx.com")>0then
Response.Redirect"c/"
EndIf
EndSub
%>