link.asp

来自「windowsCE 串口」· ASP 代码 · 共 21 行

<%
Response.write "<br>数据总条数：<font color=red>"&Session("rs").RecordCount&"</font>  "

'判断是否到表尾或记录解释否，如果是只给“上一页”加上超链接。
if(Session("rs").Eof)or(Session("End")>=Session("rs").RecordCount) Then
  Response.write "<a href=""Query.asp?Method=Previous"">上一页</a>|"
  Response.write "下一页"

'否则看是不是表头，还是只给“下一页”加超链接
ElseIf((Session("rs").Bof)or(Session("start")=1)) Then
  Response.write "上一页|"
  Response.write "<a href=""Query.asp?Method=Next"">下一页</a>"
'其它情况，都加上超链接。
Else
  Response.write "<a href=""Query.asp?Method=Previous"">上一页</a>|"
  Response.write "<a href=""Query.asp?Method=Next"">下一页 </a>"
end if
Response.write " 开始记录：<font color=red>"&Session("Start")& "</font>&nbsp;&nbsp; 结束记录：<font color=red>"&Session("End")&"</font>"
%>