asp下同一空间多绑多哥域名的方法
时间：2021-07-31 08:04:43|栏目：ASP代码|点击： 次
同一空间多绑一个域名
<%
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
%>
复制代码 代码如下:
<%
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编程入门进阶（十八）：FSO组件之文件操作（上）
本文标题：asp下同一空间多绑多哥域名的方法
本文地址：http://www.codeinn.net/misctech/163033.html
