管理者 | 重整
<%
Set cnnDB=Server.CreateObject("ADODB.Connection")
StringConneteion="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("news.mdb")
cnnDB.Open StringConneteion
Set rcsObj=Server.CreateObject("ADODB.Recordset")
strSQL="SELECT * FROM news ORDER BY newsid DESC"
rcsObj.Open strSQL,cnnDB,3
'Set 5 recorders as 1 Page
rcsObj.PageSize=6 '每頁顯示的筆數
inMaxPageCount = cint(rcsObj.PageCount) '計算全部頁數
if not isempty(request("topage")) then
topage=cint(request("topage"))
if topage > rcsObj.Pagecount then
rcsObj.absolutepage=rcsObj.pagecount
elseif topage <=0 then
rcsObj.absolutepage=1
else
rcsobj.absolutepage=topage
end if
end if
curpage=rcsObj.absolutepage
%>
每頁<%=rcsObj.PageSize%> 筆 第 <%=rcsObj.absolutepage%>/ <%=rcsObj.PageCount%> 頁 共<%=rcsobj.recordcount%> 筆
