asp下同一空間多綁多哥域名的方法
更新時間:2007年03月03日 00:00:00 作者:
同一空間多綁一個域名
<%
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
%>
復(fù)制代碼 代碼如下:
<%
CheckDomain
Sub CheckDomain()
dim sDomain
sDomain = Request.ServerVariables("HTTP_HOST")
If Instr(sDomain,"a.xxx.com")>0 then Response.Redirect "a/"
End Sub
%>
同一空間多綁二個域名
復(fù)制代碼 代碼如下:
<%
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
%>
同一空間多綁三個域名
復(fù)制代碼 代碼如下:
<%
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
%>
您可能感興趣的文章:
相關(guān)文章
完美解決ASP 不能更新。數(shù)據(jù)庫或?qū)ο鬄橹蛔x。
完美解決ASP 不能更新。數(shù)據(jù)庫或?qū)ο鬄橹蛔x。...2006-12-12asp中Request.ServerVariables的參數(shù)集合
這篇文章主要介紹了asp中Request.ServerVariables的參數(shù)集合,需要的朋友可以參考下2020-02-02ASP文章系統(tǒng)解決方案實現(xiàn)上一頁下一頁
ASP文章系統(tǒng)解決方案實現(xiàn)上一頁下一頁...2007-01-01javascript asp教程More About Recordsets
javascript asp教程More About Recordsets...2007-03-03