<%
dim userip,ipk,gotourlip
userip=Request.ServerVariables("REMOTE_ADDR")
ipk=split(userip,".",-1,1)
gotourlip=ipk(0)&"."&ipk(1)
if gotourlip="60.21" Then 如果是城市1
Response.Redirect "http://baidu.com"
Elseif gotourlip="172.16" then 如果是城市2
Response.Redirect "http://www.sina.com"
end If
Response.Redirect "http://www.lobcom.com/quanyi" 其他用户,则导向出错页面
%>