一(yī)個(gè)簡單的ASP分頁程序

本程序主要用到(dào)Connection、RecordSet這兩個(gè)對象，程序中的數據庫為(wèi)Access庫，采用OLEDB方式連接庫。

　　這個(gè)東西(xī)是作為(wèi)菜鳥的我弄的一(yī)個(gè)東西(xī).

　　你可以對這個(gè)東西(xī)不屑一(yī)顧.但是請記住: 菜鳥也有這個(gè)權利把自(zì)己的心得體會(huì)附注文字貢獻出來.....當然,技(jì)術(shù)方面真的是好菜的..一(yī)些ASP中的比較正統的中規中矩的方法.我覺得這個(gè)東西(xī)可能(néng)對初學者有些幫助.......見(jiàn)笑(xiào)了..

一(yī)個(gè)簡單的分頁教程：

Set conn = Server.CreateObject("ADODB.Connection")

strcon="provider=microsoft.jet.oledb.4.0;data source="& _

server.mappath("mdb.mdb")

conn.Open strcon

Set rs = Server.CreateObject ("ADODB.Recordset")

sql="select * from table order by id desc"

rs.Open sql, conn, 1

page=1 ' 設置變量PAGE=1

rs.PageSize = 5 '每頁顯示記錄數

if Not IsEmpty(Request("Page")) then '如果PAGE已經初始化...

Page = CInt(Request("Page")) '接收PAGE并化為(wèi)數字型賦給PAGE變量

if Page > rs.PageCount then '如果接收的頁數大于總頁數

rs.AbsolutePage = rs.PageCount '設置當前顯示頁等于最後頁

elseif Page <= 0 then '如果page小(xiǎo)于等于0

Page = 1 '設置PAGE等于第一(yī)頁

else

rs.AbsolutePage = Page '如果大于零,顯示當前頁等于接收的頁數

end if

End if

Page = rs.AbsolutePage

For i = 1 to rs.PageSize

if rs.EOF then

Exit For

end if '利用for next 循環依次讀(dú)出記錄

上(shàng)面的代碼隻需要改動Rs.pagesize=5,把5改為(wèi)你想顯示的記錄數.比如說

改為(wèi)10.那麽每頁就(jiù)是顯示10頁.還(hái)需要修改的是select語句.就(jiù)是你要檢索的數據庫了.

也就(jiù)是說放(fàng)到(dào)任何一(yī)個(gè)系統中上(shàng)面的代碼隻需很小(xiǎo)的改動都可以直接拿過來用.

　　然後:就(jiù)是要循環讀(dú)出記錄的顯示内容了..............比如

<tr>

</tr>

</table>

rs.MoveNext

當然也可以改為(wèi)response.write輸出.那是你的事(shì)了.你可以自(zì)由發揮版面樣式.

　　最後,添加"下(xià)一(yī)頁,上(shàng)一(yī)頁"的鏈接:

<%if request("page")>1 then%>

<a Href="test.asp?Page=<% =request("page") -1 %>">上(shàng)一(yī)頁</a>

<%end if %>

<%if request("page")<>rs.pagecount then %>

<% end if %>

上(shàng)面的代碼反正不管三七二十一(yī)隻管複制粘貼.隻需把"fenye.asp"改成你自(zì)己的文件(jiàn)名就(jiù)可以了.随便把這段代碼放(fàng)在什麽地方?就(jiù)是你想讓它出現下(xià)一(yī)頁下(xià)一(yī)頁鏈接的地方吧(ba).

　　最後.關閉記錄集釋放(fàng)資源：

<%
rs.close
Set rs = Nothing
conn.close
set conn=nothing
%>