Satu nama domain lagi terikat ke ruang yang sama
Salinan kode adalah sebagai berikut:
<%
Checkdomain
Subcheckdomain ()
DimsDomain
sdomain = request.serverVariable ("http_host")
Ifinstr (sdomain, "a.xxx.com")> 0thenresponse.redirect "a/"
Endsub
%>
Dua nama domain lagi terikat di ruang yang sama
Salinan kode adalah sebagai berikut:
<%
Checkdomain
Subcheckdomain ()
DimsDomain
sdomain = request.serverVariable ("http_host")
Ifinstr (sdomain, "a.xxx.com")> 0then
Response.redirect "a/"
Elseifinstr (sdomain, "b.xxx.com")> 0then
Response.redirect "b/"
Endif
Endsub
%>
Tiga nama domain lagi terikat di ruang yang sama
Salinan kode adalah sebagai berikut:
<%
Checkdomain
Subcheckdomain ()
DimsDomain
sdomain = request.serverVariable ("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
%>