ASP IP 动网

问题描述：

<%
set conn = Server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data/ip.mdb")
conn.Open connstr
%>

<!--#include file="../inc/guolv_2ji.inc" -->

<%

dim ip2,ip3

if ip="" then
ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
else
If ip = "" Then
ip = Request.ServerVariables("REMOTE_ADDR")
end if
end if

ip2=Split(ip,".") （（（（23行）））

ip3=Cint(ip2(0))*16777216 + Cint(ip2(1))*65536 + Cint(ip2(2))*256 + Cint(ip2(3))（（（（24行）））

Set rsIP = Server.CreateObject ("ADODB.Recordset")
sqlIP="select * from address where ip1<="&ip3&" AND ip2>="&ip3
rsIP.Open sqlIP,conn,1,1
if rsIP.eof or rsIP.bof then
response.Write "对不起,地理位置不确定!"'未找到
Else
response.write country
end if%>

<%'关闭数据库
rsIP.close
Set rsIP = Nothing%>

dim ip2,ip3

错误类型：
Microsoft VBScript 运行时错误 (0x800A0009)
下标越界: '[number: 0]'
/ip.asp, 第 24 行

dim ip2(4),ip3

错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配
/ip.asp, 第 23 行

那里有错？
请高手门指点一下 谢谢了！！！

问题解答：

ASP IP 动网这个旅游问答期待您的解答，请登录账号或关注微信公众号回答这个问题。