asp下同一空间多绑多哥域名的方法

(编辑：jimmy 日期: 2024/9/22 浏览：2)

同一空间多绑一个域名
复制代码代码如下:
<%
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
%>

上一篇：asp下实现替换远程文件为本地文件并保存远程文件的代码

下一篇：用ASP打开远端MDB文件的方法