同一空間多綁一個域名
複製代碼代碼如下:
<%
CheckDomain
SubCheckDomain()
dimsDomain
sDomain=Request.ServerVariables("HTTP_HOST")
IfInstr(sDomain,"a.xxx.com")>0thenResponse.Redirect"a/"
EndSub
%>
同一空間多綁二個域名
複製代碼代碼如下:
<%
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
%>
同一空間多綁三個域名
複製代碼代碼如下:
<%
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
%>