刘益民中文网

营业时间:8:00 - 22:00

虚拟主机实现二级域名绑定的ASP代码

四月 20, 2007, Posted by cike at 8:09 下午

如果有有一个ASP空间,而你又想放置多个多个站点或DOMAIN,这些代码可以帮到你
第一个
<%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”
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 6
response.redirect “index.asp”
else if instr(Request.ServerVariables
(“SERVER_NAME”),”4668.com”)>0
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.cike.org” 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
%>
<!–#include file=mynetbei.asp –>
<%
Elseif result=”rtisancn.com” then
%>
<!–#include file=artisan.asp –>
<%
Elseif result=”gn.netbei.com” then
%>
<!–#include file=web.asp –>
<%
Elseif result=”.forwest.com” then
%>
<!–#include file=forwest_com.asp –>
<%
Else
%>
<!–#include file=netbei.asp –>
<%
End if
%>

No comment yet.

Leave a Reply








Scroll to the top