分页显示与翻页显示代码,希望对你有用
<%
dim username,visitTime,loginTimes
dim objrs,sqlstr
dim page,thepagesize,ttlpage,ttlrdcnt,i
username=request.cookies("userinfo")("username")
visitTime=request.cookies("userinfo")("visitTime")
loginTimes=request.cookies("userinfo")("loginTimes")
thepagesize=10
page=request("page")
if not isnumeric(page) then page=1 else page=clng(page)
if page<1 then page=1
set objrs=server.createobject("ADODB.Recordset")
sqlstr="select * from subject order by pubtime desc"
objrs.open sqlstr,objconn,1,1
if not objrs.eof then
objrs.pagesize=thepagesize
ttlpage= objrs.pagecount
ttlrdcnt=objrs.recordcount
if page>ttlpage then page=ttlpage
objrs.absolutepage=page
end if
%>
<td align="right">
<a href="bbslist.asp?page=<%=page-1%>">上一页</a>
<a href="bbslist.asp?page=<%=page+1%>">下一页</a> </td>