connect.asp

来自「《动态网页设计基础教程》,胡杰,科学出版社」· ASP 代码 · 共 35 行

<%
'此程序完成翻页功能－建立各页间的链接
'NowPage 表示当前页
Dim NowPage
Response.Write "<Tr>"
If Session("Rs").AbsolutePage>0 Then
	NowPage=Session("Rs").AbsolutePage-1
Else
	NowPage=Session("Rs").PageCount
End if
%>
<% '显示表头 %>
<Table align=center border=0 width="100%">
	<Tr align=center>
		<Td Width="25%">当前页数：<% =NowPage %></Td>
		<Td Width="25%">总页数：<% =Session("Rs").PageCount %></Td>
		<Td Width="25%">数据总条数：<% =Session("Rs").RecordCount %></Td>
		<Td Width="25%">每页条数：<% =Session("Rs").PageSize %></Td>
	</Tr>
	<Tr align=center>
		<Td Width="25%">&nbsp;&nbsp;&nbsp;&nbsp;页数链接:

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