Mais um nome de domínio está ligado ao mesmo espaço
A cópia do código é a seguinte:
<%
CheckDomain
SubcheckDomain ()
DimsDomain
sDomain = request.Servervariables ("http_host")
Ifinstr (SDOMAIN, "A.XXX.COM")> 0THENRESPONSE.REDIRECT "A/"
Endsub
%>
Mais dois nomes de domínio estão ligados no mesmo espaço
A cópia do código é a seguinte:
<%
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
%>
Mais três nomes de domínio estão ligados no mesmo espaço
A cópia do código é a seguinte:
<%
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
%>