% Set Conn=Server.CreateObject("ADODB.Connection") Connstr="DBQ="+server.mappath("cont.asp.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" Conn.Open Connstr SQL="SELECT * FROM tab order by -dat,-id" dim rs Set rs=Server.CreateObject("ADODB.RecordSet") rs.Open sql,conn,1,1 csi=10050000 cs1=0 cs100=0 csdat1=0 do while not rs.eof csi=csi+rs("cs") if rs("cs")=1 then cs1=cs1+1 if rs("cs")>=100 then cs100+1 if datevalue(rs("dat"))=date then csdat1=csdat1+1 end if rs.movenext loop %>
![]() |
|||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||
![]() |
|||||||||||||||||||||||||||||||||||||||||||
您是第
位訪問者! |
|||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||