<%
id=request("id")
if id="" then
set rs=server.CreateObject("adodb.recordset")
rs.open ("select id,title,addtime,smallclassid from news order by addtime desc"),conn,1,1
else
set rs=server.CreateObject("adodb.recordset")
rs.open ("select id,title,addtime,smallclassid from news where smallclassid="& id &""),conn,1,1
end if
if rs.eof then
response.Write "暂时没有记录！"
else
rs.pagesize=34
page=cint(request.querystring("page"))
if page<1 then
page=1
elseif page>rs.pagecount then
page=rs.pagecount
end if
if not rs.eof then rs.absolutepage=page
%>
<%rs.movenext
if rs.eof then
exit for
end if
next%>
共<%= rs.recordcount %>条|分<%= rs.pagecount %>页显示|当前第<%= page %>页
分页：
<% if page>1 then %>
首页
<% else %>
首页
<%
end if
if page>1 then
%>
上一页
<% else %>
上一页
<% end if
if page下一页
<% else %>
下一页
<% end if
if page
尾页
<% else %>
尾页
<% end if %>
第页
