<%
pageNo=Request.QueryString("pno") '获得UrlQuery参数,指明需要显示的是第几页
IF pageNo="" THEN pageNo="1"
sql="select * from table"
rs.open sql,conn,adOpenKeySet,adLockOptimistic,adCmdText
IF NOT rs.EOF THEN
rs.PageSize=20 ’设置每页显示多少个
rs.AbsolutePage=cint(pageNo) '设置当前是第几页
'分页设置完毕,之后获得分页相关数据
recordCount=rs.RecordCout '获得总记录数
pageCount=rs.PageCount '获得总页数
curUrl="list.asp?pno=" '分页的url连接
firstPage=curUrl+"1" ’获得首页的url
lastPage=curUrl+cstr(pageCount) '获得最后一页的url
IF cint(pageNo)=1 THEN '判断前一页的url
prePage="#"
ELSE
prePage=curUrl+cstr(cint(pageNo)-1)
END IF
IF cint(pageNo)=pageCount THEN '判断后一页的url
nextPage="#"
ELSE
nextPage=curUrl+cstr(cint(pageNo)+1)
END IF
END IF
'以下是循环显示列表
i=0
DO UNTIL rs.EOF OR i>=recordCount
'省略......
rs.MoveNext()
i=i+1
LOOP
%>
<a href="<%=firstPage%>">首页</a><a href="<%=prePage%>">上一页</a><a href="<%=nextPage%>">下一页</a><a href="<%=lastPage%>">尾页</a><
[此贴子已经被作者于2006-8-24 15:02:30编辑过]