程序例子: /liu.asp
下面先給出連接數據庫代碼:(本文用的是Access數據庫.數據庫名字叫 data.mdb )
<%
dim conn
set c.CreateObject("adodb.connection")
conn.open "dbq="&server.MapPath("data.mdb") &";driver={microsoft access driver (*.mdb)};"
%>
'上面server.MapPath("data.mdb") 中的data.mdb為數據庫路徑
接著下來就是顯示出數據庫裏面的內容:
<%
dim sql,rs
set rs=server.createobject("adodb.recordset")
sql="select * from liu order by id desc" 'liu為表名
rs.open sql,rs,1,1
'------------------------------------------下面做分頁的內容定義了
if rs.eof <> "" then
rs.pagesize=10 '定義每壹頁顯示10條紀錄
sum=rs.recordcount '獲取數據庫裏面的總紀錄條數
sumpage=er.pagecount '獲取數據庫裏面的總頁數
nowpage=request("page") '獲取當前的頁數
if nowpage&""="" then '判斷如果獲取當前頁的數據為空的話,那麽就把當前頁設為第壹頁nowpage=1
nowpage=1
else
nowpage=cint(nowpage) '否則就把當前頁轉換為數值型再傳給當前頁nowpage
end if
rs.absolutepage=nowpage '將當前頁轉到第壹條信息,例如: 比如有20條記錄的壹個數據庫,我們分為10條記錄顯示壹頁,當妳的頁面為2時,通過使用rs.absolutepage將指針移動到第11條記錄處
else
response.write("暫無資料...")
end if
%>
OK,上頁分頁的內容已經定義好了.現在就把妳想顯示的內容循環顯示出來吧
<%
For i=1 to rs.pagesize '由第壹條紀錄循環顯示到前面所定義的每頁條數.
if rs.eof then '如果到數據庫最後壹條紀錄的話就跳出循環.
Exit for
end if
%>
<%=rs("字段名")%> '這裏就是妳想顯示的內容
<%
rs.movenext
next
%>
'重點來了.下面是做分頁連接我提供兩種顯示方式給大家(下面liu.asp是本頁的連接地址):
方法壹:
總***<%=sum%>條紀錄 第<%=nowpage%>/<%=sumpage%>頁
<%if nowpage>1 then%>
<a href="liu.asp?page=<%=1%>">首頁</a>
<a href="liu.asp?page=<%=nowpage-1%>">上壹頁</a>
<%end if%>
<%if nowpage <> sumpage then%>
<a href="liu.asp?page=<%=nowpage+1%>">下壹頁</a>
<a href="liu.asp?page=<%=sumpage%>">未頁</a>
<%end if%>
方法二(較簡單):
<%for k=1 to sumpage%>
<%if k<> nowpage then%>
<a href="liu.asp?page=<%=k%>"><%=k%></a>
<%else%>
<%end if%>
<%next%>