根据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
%>