query.asp

windowsCE 串口

<%
'显示表的字段名称。
Response.write "<center><table border=3 bgcolor=00ffee cellspacing=0>"
Response.write "<tr>"
Response.write "<td>顺序</td>"
for i=0 to session("rs").fields.count-1
  response.write "<td>"&Ucase(Session("rs")(i).name)&"</td>"
next
Response.write "</tr>"

'将数据指针移到要求的位置，先移到头，在使用MoveNext往下移到。
IF Request("Method")="Previous" Then
   For i =1 To Session("Flag")*2
      Session("rs").MovePrevious
      IF Session("rs").Bof Then
         Session("rs").MoveNext
         Exit For
      End IF
   Next
End If

'记录数据的起始位置。
Session("Start")=Session("rs").AbsolutePosition
For j=0 To Session("Flag")-1
   Response.write "<tr>"
   '显示顺序值。
   Response.write "<td>"&Session("rs").AbsolutePosition&"</td>"
   Session("End")=Session("rs").AbsolutePosition
   
   '显示当前数据记录。
   For i=0 To Session("rs").Fields.count-1
      Response.write "<td>"&Session("rs")(i).Value&"</td>"
   Next
   Response.write "</tr>"
   
   Session("rs").MoveNext
   IF Session("rs").Eof Then
      Session("rs").MovePrevious
      Exit For
   End IF
NEXT
Response.write "</table>"
%>
<!--#include File=link.asp -->