ip=request.servervariables("REMOTE_ADDR")
select case left(ip,instr(ip,"."))
case "10."
reponse.redirect(index1.htm)
case "202."
reponse.redirect(index2.htm)
case else
reponse.redirect(index3.htm)
end select
〈%
' 获得调用者的域名
theDNS=request.servervariables("server_name")
' 然后进行“翻译”和 URL 转向
Select case theDNS
case "www001.mydom.com.cn"
Response.redirect "www001"
case "www002.mydom.com.cn"
Response.redirect "www002"
case "www003.mydom.com.cn"
Response.redirect "www003"
case else
Response.write("Please use Domain Name visiting our web_site.〈br〉")
End select
%〉
应该还要考虑代理服务器:
Dim userip,userip2
strIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
userip2 = Request.ServerVariables("REMOTE_ADDR")
if userip = "" then
If Left(strIP,3)="10." Then
Response.Redirect index1.htm
ElseIf Left(strIP,7)="202.206" Then
Response.Redirect index2.htm
Else
End If
else
If Left(userip2,3)="10." Then
Response.Redirect index1.htm
ElseIf Left(userip2,7)="202.206" Then
Response.Redirect index2.htm
Else