数据库游标生成编号

来源：百度知道 编辑：UC知道 时间：2024/05/15 18:54:00
在库里查询得到一个结果集200条，每页显示20条，要求给这200条数据编个序号，而且可以翻页。
Sql="select * from [ceshi] where name="张三" order by id desc"
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open strSql,conn,3,3
rs.PageSize=20

if rs.recordcount>0 then
rs.AbsolutePage =PageNo
for i=1 to rs.pageSize
if rs.eof then exit for

<%=rs("name")%>

rs.movenext
next

<a href="123.asp?pageno=<%=pageno-1%>">[上一页]</a>
<a href="123.asp?pageno=<%=pageno+1%>">[下一页]</a>
编号是对应每条数据的，不能重复

<%Sql="select * from [ceshi] where name="张三" order by id desc"
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open strSql,conn,3,3

rs.PageSize=20
Dim pageno
pageno=Cint(request("pageno"))
If not isempty(request("pageno")) then
pagecount=cint(request("pageno"))
else
pagecount=1
end if
If pageno=1 Or pageno=0 Then pageno=1
if pagecount>Rs.pagecount or pagecount<=0 then
pagecount=1
end if
rs.AbsolutePage=pagecount

do while not rs.eof
%>
[<%=i+(page-1)*rs.PageSize%>]<%=rs("name")%><br>
<%<