多個綁定多域名的ASP代碼_ASP教程

2024-05-04 11:03:28

字體：大中小

來源：轉載

供稿：網友

推薦：ASP錯誤代碼說明
錯誤代碼錯誤消息說明 ASP0100Out of memory 內存不足（不能分配要求的內存ASP0101 Unexpected error 意外錯誤 ASP0102Expecting string input 缺少字符串輸入 ASP0103 Expe

第一種方法：

如果有有一個ASP空間，而你又想放置多個多個站點，這些代碼可以幫到你:

以下為引用的內容：
第一個
<%if Request.ServerVariables("SERVER_NAME")="www.netbei.com" then
response.redirect "zkj"
else
response.redirect "i.htm"
end if%>

第二個
<%
select case request.servervariables("http_host")
case "www.netbei.com" '1
Server.Transfer("v3.htm")
case "www.aspcn.net" '2
Server.Transfer("i.htm")
case "www.netbei.cn" '3
Server.Transfer("netbei.htm")
...... 繼續添加 ......
end select
%>

第三個
<%if instr(Request.ServerVariables
("SERVER_NAME"),"kekexi.com")>0 then
response.redirect "index.asp"
else if instr(Request.ServerVariables
("SERVER_NAME"),"4668.com")>0 then
response.redirect "x/index.asp"
else if instr(Request.ServerVariables
("SERVER_NAME"),"web315.com")>0 thenr
esponse.redirect "index3.asp"
end if
end if
end if%>

第四個
<%if Request.ServerVariables("SERVER_NAME")="www.netbei.com" then
response.redirect "index1.asp"
else if Request.ServerVariables("SERVER_NAME")="www.ce.org.cn" then
response.redirect "index2.asp"
else if Request.ServerVariables("SERVER_NAME")="www.163.com" then
response.redirect "index3.asp"
end if
end if
end if%>

以下為引用的內容：

第二種方法：

<%
dim domainname,result
domainname=Request.ServerVariables("SERVER_NAME")
result=right(domainname,12)
if result="my.netbei.com" then
%>

<%
Elseif result="rtisancn.com" then
%>

<%
Elseif result="gn.netbei.com" then
%>

<%
Elseif result=".forwest.com" then
%>

<%
Else
%>

<%
End if
%>