问题描述:
<%
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 动网这个旅游问答期待您的解答,请登录账号或关注微信公众号回答这个问题。