爱华网设有一数组a(100,3)，其中保存的数据是：
A(i,1)：姓名
A(i,2)：性别
A(i,3)：年龄
现要将其显示在名为list.asp页面中一张如下的表格中：
序 | 姓名 | 性别 | 年龄 |
要求每页显示20条记录。
代码如下：
<%
''''''''''''''''''''''''''''''''''
'分页显示开始
''''''''''''''''''''''''''''''''''
dim pagecount,pagesize,epage,n,k
'pagecount总页数，pagesize每页记录数，epage当前页页码，n记录总数，k计数器
<tr>
<td>序</td>
<td>姓名</td>
<td>性别</td>
<td>年龄</td>
</tr>
pagesize=20
if n/pagesize<>int(n/pagesize)then
pagecount=int(n/pagesize)+1
else
pagecount=int(n/pagesize)
end if
if request("page")<>""then
epage=cint(request("page"))
if epage<1 then epage=1
if epage>pagecount thenepage=pagecount
else
epage=1
end if
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'按k的升序显示
''''''''''''''''''''''''''''''''''''''''''''''''
for k= (epage-1)*20+1 to epage*20
if k>n then exit for
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
‘若按k的降序显示则应使用下列代码
‘for k=n-(epage-1)*20 to n-epage*20+1 step -1
‘if k=0 then exit for
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
<tr>
<td><%=k%></td>
<td><%=a(k,1)</td>
<td><%=a(k,2)</td>
<td><%=a(k,3)</td>
</tr>
next
'''''''''''''''''''''''''''''''''''''''''''
'分页显示结束
'''''''''''''''''''''''''''''''''''''''''''
%>
<tr>
<td >共有<%=n%>条记录</td>
</tr>
<tr>
<!--以下是翻页导航-->
<td >
<ahref="list.asp">首页</a>
<ahref="list.asp?page=<%=epage-1%>">前一页</a>
当前是第<%=epage%>页，一共有<%=pagecount%>页
<ahref="list.asp?page=<%=epage+1%>">后一页</a>
<ahref="list.asp?page=<%=pagecount%>">末页</a>
</td>
<!--翻页导航结束-->
</tr>
