自己想的分页代码、求高手帮忙改改
    <%
if not rs.eof then
zgdst = 0
do while not rs.eof
zgdst = zgdst + 1
rs.movenext
loop

rs.pagesize = 9
page = request.querystring("page")
if page = "" then page = 1
if isnumeric(page) then
if clng(page) <1 then page = 1
if clng(page) > rs.pagecount then page = rs.pagecount
else
page = 1
    end if
rs.absolutepage = page

for i = 1 to rs.pagesize
 if rs.eof then exit for   
 
 
%>  
        <div id="zuop1">
         <dl>
          <dt><a href="zpzs.asp?zs_shouid=<%=rs("zp_id")%>"><img src="../<%=rs("zp_tp")%>" width="220" height="225" /></a></dt>
          <dd>客户: <%=rs("zp_qy")%></dd>
          <dd>类型: <%=rs("zp_lx")%></dd>
          <dd>时间: <%=Year(rs("zp_sj"))%></dd>
         </dl>
        </div>
  <%
rs.movenext
next
%>
<div id="page" style=" margin-top:10px; margin-bottom:30px;">
<ul>
                    <li> 共<%=zgdst%>条 | 第<%=page%>页/共<%=rs.pagecount%>页</li>
                <li><a href="qbxs.asp?page=<%=page-1%>&q_shouid=<%=shouid%>">上一页</a></li>
 <%  if page = 1 then
     if rs.pagecount < 8 then
 aikla = rs.pagecount
 else
 aikla = 8
  end if
      for i = 1 to aikla
  %>
      <li class="fku"><a href="qbxs.asp?page=<%=i%>&q_shouid=<%=shouid%>"><%
   if i <> 8 then
    
 response.Write i

   else
    response.Write i&"</li></a><li>..."
   end if%></li>
                      <%next
 elseif page <> 1 and page + 7 < rs.pagecount then
for i = page to page + 7
  zhds = page + 7
%>
                <li class="fku"><a href="qbxs.asp?page=<%=i%>&q_shou