|
本程序主要用到Connection、RecordSet這兩個(gè)對(duì)象，程序中的數(shù)據(jù)庫(kù)為Access庫(kù)，采用OLEDB方式連接庫(kù)。
這個(gè)東西是作為菜鳥的我弄的一個(gè)東西.
你可以對(duì)這個(gè)東西不屑一顧.但是請(qǐng)記住: 菜鳥也有這個(gè)權(quán)利把自己的心得體會(huì)附注文字貢獻(xiàn)出來(lái).....當(dāng)然,技術(shù)方面真的是好菜的..一些ASP中的比較正統(tǒng)的中規(guī)中矩的方法.我覺(jué)得這個(gè)東西可能對(duì)初學(xué)者有些幫助.......見(jiàn)笑了..
一個(gè)簡(jiǎn)單的分頁(yè)教程：
<%
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 ' 設(shè)置變量PAGE=1
rs.PageSize = 5 '每頁(yè)顯示記錄數(shù)
if Not IsEmpty(Request("Page")) then '如果PAGE已經(jīng)初始化...
Page = CInt(Request("Page")) '接收PAGE并化為數(shù)字型賦給PAGE變量
if Page > rs.PageCount then '如果接收的頁(yè)數(shù)大于總頁(yè)數(shù)
rs.AbsolutePage = rs.PageCount '設(shè)置當(dāng)前顯示頁(yè)等于最后頁(yè)
elseif Page <= 0 then '如果page小于等于0
Page = 1 '設(shè)置PAGE等于第一頁(yè)
else
rs.AbsolutePage = Page '如果大于零,顯示當(dāng)前頁(yè)等于接收的頁(yè)數(shù)
end if
End if
Page = rs.AbsolutePage
%>
<%
For i = 1 to rs.PageSize
if rs.EOF then
Exit For
end if '利用for next 循環(huán)依次讀出記錄
%> 上面的代碼只需要改動(dòng)Rs.pagesize=5,把5改為你想顯示的記錄數(shù).比如說(shuō)
改為10.那么每頁(yè)就是顯示10頁(yè).還需要修改的是select語(yǔ)句.就是你要檢索的數(shù)據(jù)庫(kù)了.
也就是說(shuō)放到任何一個(gè)系統(tǒng)中上面的代碼只需很小的改動(dòng)都可以直接拿過(guò)來(lái)用.
然后:就是要循環(huán)讀出記錄的顯示內(nèi)容了..............比如
<table width=50 border=1 align=center>
<tr>
<TD><% =rs("內(nèi)容") %></td>
</tr>
</table>
<%
rs.MoveNext
next
%> 當(dāng)然也可以改為response.write輸出.那是你的事了.你可以自由發(fā)揮版面樣式.
最后,添加"下一頁(yè),上一頁(yè)"的鏈接:
<%if request("page")>1 then%>
<a Href="test.asp?Page=<% = 1%>">首頁(yè)</a>
<a Href="test.asp?Page=<% =request("page") -1 %>">上一頁(yè)</a>
<%end if %>
<%if request("page")<>rs.pagecount then %>
<a Href="test.asp?Page=<% =request("page") + 1%>">下一頁(yè)</a>
<a Href="test.asp?Page=<% = rs.PageCount%>">尾頁(yè)</a>
<% end if %> 上面的代碼反正不管三七二十一只管復(fù)制粘貼.只需把"fenye.asp"改成你自己的文件名就可以了.隨便把這段代碼放在什么地方?就是你想讓它出現(xiàn)下一頁(yè)下一頁(yè)鏈接的地方吧.
最后.關(guān)閉記錄集釋放資源：
<%
rs.close
Set rs = Nothing
conn.close
set conn=nothing
%>
一個(gè)非常簡(jiǎn)單的分頁(yè)函數(shù)就完成了.以后隨便做什么程序反正只管套用這個(gè)好了.絕對(duì)沒(méi)錯(cuò)的.當(dāng)然這個(gè)程序還有很多錯(cuò)誤.....不足之處還望高手多多批評(píng)指正.小弟獻(xiàn)丑了.......^_^.......
出處：藍(lán)色理想
責(zé)任編輯：cjj
◎進(jìn)入論壇網(wǎng)絡(luò)編程版塊參加討論
|
