<% dim conn,connstr,rs,temp,sql Set Conn=Server.CreateObject("ADODB.Connection") Connstr="DBQ="+server.mappath("db2.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;" Conn.Open connstr Set rs=Server.CreateObject("ADODB.RecordSet") sql="SELECT * FROM sheet1 order by 字段1" rs.Open sql,conn,3,2 mark="" dim M for M=1 to 35 do if rs("字段2")=M then if not rs.eof then rs.movenext end if if len(rs("字段2"))=1 then mark=mark & "0" & rs("字段2") & " " if len(rs("字段2"))=2 then mark=mark & rs("字段2") & " " end if if not rs.eof then rs.movenext loop until rs.eof response.write mark & "<BR>" next %>
其中 if rs("字段2")=M then 中的M换成具体的数字就不会出错!
我主要是想显示大乐透第一个数字分别是1到35时,统一显示下一期开的号.
我想实现的就是显示"大乐透"第一位号码在分别开01...35后,接着的那一期开的号码,统一显示出来.(注意:是接着的后一期号码,不是当前期!!!)
哥们你把错误信息放出来啊。
错误 '80020009'
/cai/index2.asp,行 18
怀疑是指针的问题!因为我已经到了eof,再do loop,就出错!但我强制移动指针,也不行!
我想实现的就是显示"大乐透"第一位号码在分别开01...35后,接着的那一期开的号码,统一显示出来.(注意:是接着的后一期号码,不是当前期!!!)