根据IP显示不同网页

<%
function cip(sip)
 tip=cstr(sip)
 sip1=left(tip,cint(instr(tip,".")-1))
 tip=mid(tip,cint(instr(tip,".")+1))
 sip2=left(tip,cint(instr(tip,".")-1))
 tip=mid(tip,cint(instr(tip,".")+1))
 sip3=left(tip,cint(instr(tip,".")-1))
 sip4=mid(tip,cint(instr(tip,".")+1))
 cip=cint(sip1)*256*256*256+cint(sip2)*256*256+cint(sip3)*256+cint(sip4)
end function
ipconnpath = "count/ip.mdb"
vip=Request.servervariables("REMOTE_ADDR")

%><%
set connip=server.createobject("adodb.connection")
DBPath = Server.MapPath(ipconnpath)
connip.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

ipnow=cip(vip)

Set rsip = Server.CreateObject("ADODB.Recordset")
sql="select * from ip where (onip<=" & ipnow & " and offip>=" & ipnow & ")"
rsip.Open sql,connip,1,1

vwhere=left(rsip("addj"),2)
rsip.Close
set rsip=nothing
connip.Close
set connip=nothing%>

<%
select case vwhere
case "湖南"
Response.Redirect "web/"
case "河南"
Response.Redirect "home/"
case else
Response.Redirect "main/"
end select
%>