才子分頁類

2021-03-31 08:57:00 字數 1575 閱讀 6249

'******************************************

'取文章總數及每頁重複顯示條數,準備分頁

'wzcount 文章總數

'wzrep 重複顯示條數

'wzpage 分頁引數id

'wzpagecount 總頁數

'******************************************

dim wzcount,wzrep,wzpage,wzpagecount,wzpagerep,boardstr

wzrep = 30

'rssql = "select count(id) from `table1`"

'rs.open rssql,conn,0,1,&h0001

wzcount = conn.execute ("select count(id) from `table1`",0,1)(0)

'rs.close

wzpagecount = abs(int(-abs(wzcount/wzrep)))

wzpage = clng(request.querystring("page"))

if len(wzpage) = 0 or wzpage = 0 then wzpage = 1

%>  

id標題

內容(顯示前20個字)

時間<%

'取文章列表

rssql = "select id,aaaa,bbbb,cccc from `table1` order by id desc"

rs.open rssql,conn,1,1,&h0001

'根據分頁引數獲取當前頁面紀錄

rs.absoluteposition=rs.absoluteposition+((abs(wzpage)-1)*wzrep)

'顯示文章標題列表

if rs.eof or rs.bof then%>

暫無記錄

<% else

dim i,bgcolor

for i = 0 to wzrep-1

if rs.eof then exit for

'while not rs.eof and i <= wzrep

bgcolor="#ffffff"

if i mod 2=0 then bgcolor="#dfefff"

%>

">

<%=rs(0)%>

<%=rs(1)%>

<%=left(rs(2),20)%>

<%=rs(3)%>

<%

rs.movenext

'i=i+1

'wend

next

end if

%>

共<%= wzcount%>條 <%= wzrep%>/頁 共<%= wzpagecount%>頁

<%= pagination(wzpagecount)%>

<%

'釋放資源

rs.close

set rs = nothing

conn.close

set conn = nothing

%>

簡易分頁類

這是一個簡單易用的分頁類。只需在你原有的程式中加兩句 改一句就可以了 先貼 paging.php php code phpclass paging static function bar tpl echo tpl 通常你都有類似這樣的語句 sql rs mysql query sql 或 rs my...

簡易分頁類

phpclass paging static function bar tpl echo tpl 通常你都有類似這樣的語句 sql rs mysql query sql 或 rs mysql query select 你只需改作 include paging.php rs paging prepar...

封裝分頁類

class pageelse if this total 0 else function showpage print r parse url query parse str parse url query parms if array key exists page parms if count ...

數字分頁類

分頁通用類 public class pager private int pageindex public int pageindex get set private int currentpagecount public int currentpagecount get set protected...

資料庫類 分頁類

今天漲姿勢了,學習了資料庫和分頁的類的封裝,感覺很好用,向大家推薦一下 資料庫類 把資料庫封裝起來,更好的對資料操作 資料庫操作類 class model 查詢所有資料 public function select where if empty this where order if empty t...