[nucgegeasp]

我没看到你的rs.move (Current_page-1)*MaxPerPage这句啊，你怎么实现的分页功能？
想学习一下。
这是我用的分页用的函数，可以直接存为page.asp，到用的时候<!--#include file="page.asp"-->
直接调用函数就行了。你自己研究一下吧
<%
function ShowPpage(currentPage,MaxPerPage,totalPut,filename)
dim totalPage
if totalPut mod MaxPerPage=0 then
totalPage=totalPut \ MaxPerPage
else
totalPage=totalPut \ MaxPerPage + 1
end if
if currentPage<2 then
response.write "首页　上一页　"
else
response.write "<a href='"&filename&"?page=1'>首页</a>　"
response.write "<a href='"&filename&"?page="&currentPage-1&"'>上一页</a>　"
end if
if totalPage-currentPage<1 then
response.write "下一页　尾页　"
else
response.write "<a href='"&filename&"?page="&currentPage+1&"'>下一页</a>　"
response.write "<a href='"&filename&"?page="&totalPage&"'>尾页</a>　"
end if
response.write "　共"&totalPut&"条 每页"&MaxPerPage&"条"
end function
%>
<%
Function ShowContent(currentPage,MaxPerPage,filename)
Dim i
for i=1 to MaxPerPage
if rs.bof and rs.eof then
exit for
end if
if currentPage=1 then
%>
<p><img src="top<%= i %>.gif" width="14" height="14">
　<a href="<%= filename %>?id=<%= rs("r_id") %>"><%= rs("r_title") %></a>　<%= rs("r_title") %></p>
<%
else
%>
<p><%= i+(currentPage-1)*MaxPerPage %>.
　<a href="<%= filename %>?id=<%= rs("r_id") %>"><%= rs("r_title") %></a>　<%= rs("r_title") %></p>
<%
end if
rs.movenext
next
if rs.bof and rs.eof and i=1 then
response.write "暂时还没有任何通知"
end if
End Function
%>