程序代码
*************开始此行不用***********************
<%if Request.ServerVariables("SERVER_NAME")="www.abseo.cn" then
response.redirect "zkj"
else
response.redirect "i.htm"
end if%>
****************结束此行不用*********************
第二个
程序代码
*************开始此行不用***********************
<%
select case request.servervariables("http_host")
case "www.abseo.cn" '1
Server.Transfer("v3.htm")
case "www.sina.cn" '2
Server.Transfer("i.htm")
case "www.163.com" '3
Server.Transfer("yyjs.htm")
...... 继续添加 ......
end select
%>
****************结束此行不用*********************
第三个
程序代码
*************开始此行不用***********************
<%if instr(Request.ServerVariables
("SERVER_NAME"),"abseo.cn")>0 then
response.redirect "index.asp"
else if instr(Request.ServerVariables
("SERVER_NAME"),"163.com")>0 then
response.redirect "x/index.asp"
else if instr(Request.ServerVariables
("SERVER_NAME"),"sina.com")>0 thenr
esponse.redirect "index3.asp"
end if
end if
end if%>
****************结束此行不用*********************
第四个
程序代码
*************开始此行不用***********************
<%if Request.ServerVariables("SERVER_NAME")="www.abseo.cn" then
response.redirect "index1.asp"
else if Request.ServerVariables("SERVER_NAME")="www.cg8.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%>
****************结束此行不用*********************
<%
select case request.servervariables("http_host")
case www.gusuxiang.net ’域名1
Server.Transfer("/show/index.asp")
case "512la.gusuxiang.net" ’域名2
Server.Transfer("blog/index.asp")
case www.gusuxiang.net ’域名3
Server.Transfer("bbs/index.asp")
’...... 继续添加 ......
case else ’域名N
Server.Transfer("XXX/index.asp")
end select
%>