同一空间多绑一个域名
复制代码 代码如下:
<%
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
%>