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
