请教：用ado和vb如何实现分页，谢谢!在线等候！

[djt2000]

作业，我想做一个对用户做增删改的系统，用ado和vb如何实现分页，谢谢。

[funboy88]

自己整理下代码，比较乱

pagesize=20
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM dingpiao WHERE num=" & num
sql =sql & " order by time desc"
rs.open sql,con,1,3
if rs.recordcount>0 then
rs.pagesize=pagesize
page=request("page")
if isempty(page) then
page=1
end if
page=cint(page)
rs.absolutepage=page
pagecount=rs.pagecount
else
page=1
pagecount=1
end if
<%
i=0
do while (not rs.eof and i<rs.pagesize)
i=i+1
%>


<%sub head()%>
<div align="center">
<table border="0" width="600" bordercolor="#FFffff" align="center" >
<tr>
<td width="100%" height="20" nowrap bgcolor="#FFcc00" class=p1>
<font style="font-size:10pt">
<%
st="&num=" & num
filestring="dinglist.asp"
if page>1 then
response.write "[<a href="&filestring&"?page=1"&st&">"
response.write "首页"
response.write "</a>]"
response.write " "
else
response.write "[首页]"
response.write " "
end if
if page-1>0 then
response.write "[<a href="&filestring&"?page="&cstr(page-1)&st&">"
response.write "上一页]"
response.write "</a>"
response.write " "
else
response.write "[上一页]"
response.write " "
end if
if page+1<=pagecount then
response.write "[<a href="&filestring&"?page="&cstr(page+1)&st&">"
response.write "下一页"
response.write "</a>]"
response.write " "
else
response.write "[下一页]"
response.write " "
end if
if page<pagecount then
response.write "[<a href="&filestring&"?page="&cstr(pagecount)&st&">"
response.write "尾页"
response.write "</a>]"
response.write " "
else
response.write "[尾页]"
response.write " "
end if
%>
页次：<font color="#FF0000"><%=page%></font>/<font color="#0000FF"><%=pagecount%></font>页
共<font color="#0000FF"><%=rs.recordcount%></font>人
<font color="#0000FF"><%=pagesize%></font>人/页
</font>
</td>
</tr>
</table>
</div>
<%end sub%>