link2.asp

windowsCE 串口

<%
Response.write "<table border=3 bgcolor=00ffee cellspacing=0>"
Response.write "<tr><td>当前页数</td><td>总页数</td>"
Response.write "<td>数据总条数</td><td>每页条数</td></tr>"

'NowPage表示为当前页。
Response.write "<tr>"
IF Session("rs").AbsolutePage>0 Then
   Nowpage=Session("rs").AbsolutePage-1
Else
   NowPage=Session("rs").PageCount
End IF

Response.write "<td>"&NowPage&"</td>"
Response.write "<td>"&Session("rs").PageCount&"</td>"
Response.write "<td>"&Session("rs").RecordCount&"</td>"
Response.write "<td>"&Session("rs").PageSize&"</td></tr>"
Response.write "</table>"

Response.write "页数链接："
For i=1 To Session("rs").Pagecount
   '判断是否为当前页，不是，则加上链接。
   IF i<>NowPage Then 
     Response.write "<a href=""Query2.asp?Page="&i&" "">"&i&"</a>"
   Else
     Response.write i&"  "
   End IF
Next
%>