自各儿想的分页代码、求高手帮忙改改

自己想的分页代码、求高手帮忙改改
    <%
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_shouid=<%=shouid%>"><%
 if i <> zhds then
  response.Write i

  elseif zhds = rs.pagecount then
  response.Write i
  else
  response.Write i& "</li></a><li>..."
   end if%></li>
                <%next
else
if rs.pagecount < 9 then
 aismdx = 1
 else
 aismdx = rs.pagecount - 7
 end if
for i = aismdx to  rs.pagecount
%>
                <li alt="自各儿想的分页代码、求高手帮忙改改" />



关键是他点到哪页哪页都不变色、 分页
[解决办法]
<%
strContent=content
ArticleID=""
q=1
for each i in Request.QueryString
if i<>"ArticlePage" then
if q=1 then
ArticleID=ArticleID&i&"="&request(i)
else
ArticleID=ArticleID&"&"&i&"="&request(i)
end if
q=q+1
End if
next
ContentLen=len(strContent)
CurrentPage=trim(request("ArticlePage"))
if Instr(strContent,"{nextpage}")<=0 then
response.write (""&replace(strContent,keywords,"<strong>&nbsp;&nbsp;<a href=""/search/?keywords="&keywords&"""><font color=green>"&keywords&"</font></a>&nbsp;&nbsp;</strong>")&"")
response.write "</p><p align='center'><font color='red'><b>[1]</b></font></p>"
else
arrContent=split(""&replace(strContent,keywords,"<font color=green><strong>&nbsp;&nbsp;<a href=""/search/?keywords="&keywords&"""><font color=green>"&keywords&"</font></a>&nbsp;&nbsp;</strong></font>")&"","{nextpage}")

pages=Ubound(arrContent)+1
if CurrentPage="" then
CurrentPage=1
else
CurrentPage=Cint(CurrentPage)
end if
if CurrentPage<1 then CurrentPage=1
if CurrentPage>pages then CurrentPage=pages
response.write arrContent(CurrentPage-1)
response.write "</p><p align='center'><b>"
if CurrentPage>1 then
response.write "<a href='" & strFileName & "?" & ArticleID & "&ArticlePage=" & CurrentPage-1 & "'>上一页</a> "
end if
for i=1 to pages
if i=CurrentPage then
response.write "<font color='red'>[" & cstr(i) & "]</font> "
else
response.write "<a href='" & strFileName & "?" & ArticleID & "&ArticlePage=" & i & "'>[" & i & "]</a> "
end if
next
if CurrentPage<pages then
response.write " <a href='" & strFileName & "?" & ArticleID & "&ArticlePage=" & CurrentPage+1 & "'>下一页</a>"
end if
response.write "</b></p>"
end if
%>
我一直用这个，挺好的 只要文章代码里有   {nextpage}