ASP查询结果分页显示

num=cint(request("num"))
if num<1 then num=8
rs.pagesize=num
response.write "<br><table><tr bgcolor='#CCFFCC'><td width='50'>编号</td><td width='50'>帐号</td><td width='50'>姓名</td><td width='50'>密码</td><td width='120'>负责单位</td><td width='80'>电话</td><td width='150'>备注</td></tr><tr>"
page=cint(request("page"))

if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
for i=0 to rs.fields.count-1

next

rs.absolutepage=page
for t=1 to rs.pagesize
if rs.eof then exit for
for i=0 to rs.fields.count-1
response.write "<td>" &rs(i)& "</td>"
next

response.write "</tr>"
rs.movenext
next