asp程序获取ip地址再转换ip成对应的地理位置（急啊```````````）

asp程序获取ip地址再转换ip成对应的地理位置（急啊```````````）

jdzcrf
shasha
等级:

发表于：2008-05-12 11:37:01 楼主

各位高手我是个ASP新手请多指教了，在此谢过了！

我要做的是个一个WEB日志统计分析系统中的一个客户位置模块

我首先要从数据库（我的数据库是lg）中统计出所有的客户IP地址并用记录集保存所有的IP，然后再把这些ip作为一个函数的参数传递并把这些IP转换成十进制形式的IP，最后再根据数据库中IP表对应的地理位置显示出地区（如：北京，江苏等）
我具体的代码是这样的但都有错误做不出来，请大家多指教。

sql="select c_ip from lg"
set rs=server.CreateObject("adodb.recordset")
rs.Open sql,conn,3,3
以上我自己的意思是读取所有客户的ip并保存在记录集里面
下面的是把所有的ip地址作为参数给一个函数把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)-1
end function

最后根据cip的范围从数据库ip表查询对应的地理位置
ipnow=cip(sip)
sql="select addj from ip where (onip <=" & ipnow & " and offip>=" & ipnow & ")
set rs=server.CreateObject("adodb.recordset")
Rs.Open Sql,Conn,3,3
do while not rs.eof
请问以上有哪些错误？要实现我先从数据库读取ip再转换成地理位置的程序具体怎么实现？

问题点数：50 回复次数：5 修改删除举报引用回复