ASP高手请进，下面程序怎么分页，请指教

<%
set rs=server.createobject("adodb.recordset")
sql="select * from class where id="&request.querystring("id")
rs.open sql,conn,1,1
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=rs("class")%>-创业故事</title>
<style type="text/css">

</style>
</head>
<body>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0">
<%
if Request.QueryString("pageNo")="" then
PageNo=1
elseif IsNumeric(Request.QueryString("pageNo"))=false then
PageNo=1
else
PageNo=clng(Request.QueryString("pageNo"))
end if
set rsc=server.createobject("adodb.recordset")
sqlc="select * from news where class='"&rs("class")&"' order by id desc"
rsc.open sqlc,conn,1,1
%>
<%
if rsc.recordcount=0 then
%>
暂无此类物品
<%
else
rsc.pagesize=5 '页大小
if PageNo<1 then
PageNo=1
end if
if PageNo>rsc.pagecount then
PageNo=rsc.pagecount
end if

rsc.absolutepage=PageNo
i=0
do while i<rsc.pagesize and not rs.eof
%>
内容<%=rsc("title")%>
<%
rsc.movenext
i=i+1
loop
end if
%>
<div align="center">
记录总数:<%=rsc.recordcount%>条当前页：<%=PageNo%>/<%=rsc.pagecount%>页大小：<%=rsc.pagesize%> <a href="class.asp?pageNo=1" target="_blank">首页</a> <a href="?PageNo=<%=PageNo-1%>">上页</a> <a href="?PageNo=<%=PageNo+1%>">下页</a> <a href="?PageNo=<%=rs.pagecount%>">末页</a> <input type=text id="goPage" value="<%=PageNo%>" size=2> <input type=button class="Mnue_003" onclick="location='?PageNo='+document.all.goPage.value;" value="GO">
<label></div>
</table>

</body>
</html>
<%
rs.close
rsc.close
set rs=nothing
set rsc=nothing
conn.close
set conn=nothing
%>
每页显示多少条记录可以实现，但“首页，上页，下页.."这里就不行了！

举报该文章