asp分页代码

如果有提示编码问题  请删除调试提示的错误编码即可

<div class="abc">当前账户余额：<%=zcje%>&nbsp; &nbsp; &nbsp; <a href="usecz.asp">充值</a>&nbsp; &nbsp; &nbsp; <a href="tixian.asp">提现</a></div>
    </br>
<%
page=request.QueryString("page")
page=trim(page)
webnum=5'设置每页条数的变量

if IsNumeric(page)=false then page=1
if page<1 then page=1
wordsclass=request.QueryString("wordsclass")

    Set Rs = Server.CreateObject("Adodb.RecordSet")
    sql="select id,czk,dongzuo,jinee,shij,usid from chongzhi Where 1=1 And usid ='" & idd & "'order  by id desc"
    Rs.Open sql,conn,1,1
    
    '分页代码开始
      
      if rs.recordcount=0 then
response.Write("<tr><td>暂无记录</td></tr>")
else
rs.pagesize=webnum '每页显示的留言数
pagecount=rs.pagecount '共有多少页
if int(page)>int(pagecount) then page=pagecount
rs.absolutepage=page'显示第几页
do while pagei < webnum and not rs.eof
      pagei=pagei+1
      
        czk=Rs("czk")
        dongzuo=Rs("dongzuo")
        jinee=Rs("jinee")
        shij=Rs("shij")
        usid=Rs("usid")
%>

<div class="abc">动作：<%=Rs("dongzuo")%></div>
<div class="abc">金额：<%=Rs("jinee")%></div>
<div class="abc">时间：<%=Rs("shij")%></div>
</br>

<%
    rs.movenext
loop
end if

Response.write "总条数是：" & rs.recordcount &  "----："
Response.write "</br>"

response.Write("<tr><td align='right'>每页"&webnum&"条，页码："&page&"/"&pagecount&" <a href='zijin.asp?page="&page-1&"' title='返回上一页'>上一页</a> <a href='zijin.asp?page="&page+1&"' title='转到下一页'>下一页</a> ")
%>