同一空间多绑一个域名

复制代码 代码如下:

<%

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

%>