为什么这个 do....loop只循环一次就结束了?

来源:百度知道 编辑:UC知道 时间:2024/05/17 07:51:03
<%do while not rs.eof%>
<%dim tip,sip1,sip2,sip3,sip4,ip

sip=rs("IP_ls")
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))
ip=cint(sip1)*256*256*256+cint(sip2)*256*256+cint(sip3)*256+cint(sip4)
<!--查询来访IP地址-->
dim rs,sql
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 1 ip_b,ip_c from ip where (ip_s<=" & ip & " and ip_e>=" & ip & ")"
rs.Open sql,Conn,1,1
if rs.eof or rs.bof then
Response.Write"未知IP"
Else
Response.Write"来访者的IP号码是:"&sip&"地址在:"
Response.Write rs(0)&"|"&rs(


<%do while not rs.eof%>
<%dim tip,sip1,sip2,sip3,sip4,ip

sip=rs("IP_ls")
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))
ip=cint(sip1)*256*256*256+cint(sip2)*256*256+cint(sip3)*256+cint(sip4)

放在
<!--查询来访IP地址-->
dim rs,sql
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 1 ip_b,ip_c from ip where (ip_s<=" & ip & " and ip_e>=" & ip & ")"
rs.Open sql,Conn,1,1

的下方

因为只有一条记录