flag.asp

《动态网页设计基础教程》,胡杰,科学出版社

<%
'NowPage 表示当前页
Dim NowPage
Response.Write "<Tr>"
If Session("RsTest").AbsolutePage>0 Then
	NowPage=Session("RsTest").AbsolutePage-1
Else
	NowPage=Session("RsTest").PageCount
End if
%>
<% '显示表头 %>
<Table align=center border=0 width="100%">
	<Tr align=center>
		<Td Width="25%">当前页数：<% =NowPage %></Td>
		<Td Width="25%">总页数：<% =Session("RsTest").PageCount %></Td>
		<Td Width="25%">数据总条数：<% =Session("RsTest").RecordCount %></Td>
		<Td Width="25%">每页条数：<% =Session("RsTest").PageSize %></Td>
	</Tr>
	<Tr align=center>
		<Td Width="25%">&nbsp;&nbsp;&nbsp;&nbsp;页数链接:

<%
For i=1 to Session("RsTest").PageCount
	'判断是否为当前页，不是，则加上链接
	If i<>NowPage Then
		Response.Write "<A href="" Query.asp?Page="&i&""">"&"  "&i&"  "&"</A>"
	Else
		Response.Write "  "&i&"  "
	End If
Next
%>
</Table>