简介:同一空间多绑一个域名 复制代码 代码如下: % CheckDomain SubCheckDomain() dimsDomain sDomain=Request.ServerVariables("HTTP_HOST") IfInstr(sDomain,"a.xxx.com")0thenResponse.Redirect"a/" EndSub % 同一空间多绑二个域名 复制代码 代码如下: % CheckD……
同一空间多绑一个域名
<%
CheckDomain
Sub CheckDomain()
dim sDomain
sDomain = Request.ServerVariables("HTTP_HOST")
If Instr(sDomain,"a.xxx.com")>0 then Response.Redirect "a/"
End Sub
%>
同一空间多绑二个域名
<%
CheckDomain
Sub CheckDomain()
dim sDomain
sDomain = Request.ServerVariables("HTTP_HOST")
If Instr(sDomain,"a.xxx.com")>0 then
Response.Redirect "a/"
Elseif Instr(sDomain,"b.xxx.com")>0 then
Response.Redirect "b/"
End If
End Sub
%>
同一空间多绑三个域名
<%
CheckDomain
Sub CheckDomain()
dim sDomain
sDomain = Request.ServerVariables("HTTP_HOST")
If Instr(sDomain,"a.xxx.com")>0 then
Response.Redirect "a/"
Elseif Instr(sDomain,"b.xxx.com")>0 then
Response.Redirect "b/"
Elseif Instr(sDomain,"c.xxx.com")>0 then
Response.Redirect "c/"
End If
End Sub
%>
原文链接:https://m.jb51.net/article/7482.htm
本站部分内容转载于网络,版权归原作者所有,转载之目的在于传播更多优秀技术内容,如有侵权请联系QQ/微信:153890879删除,谢谢!