<%
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 %>
第頁
