query2.asp

windowsCE 串口

<%
'得到指定的页数。
Session("rs").AbsolutePage=Request("page")

'显示表的字段名称。
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>"

For j=1 To Session("rs").PageSize
   Response.write "<tr>"
   '显示顺序值。
   Response.write "<td>"&Session("rs").AbsolutePosition&"</td>"
   
   '显示当前数据记录。
   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
      Exit For
   End IF
NEXT
Response.write "</table><br><br>"
%>
<!--#include File=link2.asp -->