Un nombre de dominio más está vinculado al mismo espacio
La copia del código es la siguiente:
<%
Checkdomain
Subcheckdomain ()
dimsdoma
sdomain = request.ServerVariables ("http_host")
Ifinstr (sdomain, "a.xxx.com")> 0thenResponse.redirect "a/"
Endsub
%>
Dos nombres de dominio más están vinculados en el mismo espacio
La copia del código es la siguiente:
<%
Checkdomain
Subcheckdomain ()
dimsdoma
sdomain = request.ServerVariables ("http_host")
Ifinstr (sdomain, "a.xxx.com")> 0then
Respuesta.Redirect "A/"
Elseifinstr (Sdomain, "b.xxx.com")> 0then
Respuesta. Redirect "B/"
Endif
Endsub
%>
Tres nombres de dominio más están obligados en el mismo espacio
La copia del código es la siguiente:
<%
Checkdomain
Subcheckdomain ()
dimsdoma
sdomain = request.ServerVariables ("http_host")
Ifinstr (sdomain, "a.xxx.com")> 0then
Respuesta.Redirect "A/"
Elseifinstr (Sdomain, "b.xxx.com")> 0then
Respuesta. Redirect "B/"
Elseifinstr (Sdomain, "C.xxx.com")> 0Then
Respuesta. Redirect "C/"
Endif
Endsub
%>