自己想的分页代码、求高手帮忙改改
<%
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>  <a href=""/search/?keywords="&keywords&"""><font color=green>"&keywords&"</font></a>  </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>  <a href=""/search/?keywords="&keywords&"""><font color=green>"&keywords&"</font></a>  </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}