- Login
帳號:
密碼:
ASP MENU
線上教學
   ASP 教學
VB.NET 教學
JSP 教學
JAVA 教學
完整 ASP 教學
程式下載
   ASP 程式下載
提供 ASP 程式
程式量身訂做
   收費標準
填寫需求表
討論交流專區
   程式討論區
電腦資訊交流
工作機會
   社會人就職情報
汎亞人力銀行
大台中人力銀行
大高雄人力銀行
相關連結
   ASP 虛擬空間
ASP 相關網站
聯絡我們
   意見信箱
加入會員程式討論區線上購物回首頁
ASP 教學
用ASP做一個分頁程序
你是否為了你的站點文章過多而反復做鍊接上一頁、下一頁這些煩瑣的工作發愁呢?現在有了ASP,只要你的主頁支持ASP,你就可以很簡單的實現對文章的管理了,排序、鍊接、顯示這些工作都讓ASP去完成吧!這麼輕鬆的主頁維護,你是不是也想試一試呢?

請看以下實現ASP分頁程序的代碼:

<anguage="vbscript"

dim conn

dim connstr

dim totalPut

dim CurrentPage

dim TotalPages

dim i,j

dim sql

dim rs

on error resume next

'打開數據庫

connstr="DBQ="+server.mappath("book.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

set conn=server.createobject("ADODB.CONNECTION")

conn.open connstr

set rs=server.createobject("adodb.recordset")

'定義每頁文章顯示數

const MaxPerPage=18

if not isempty(request("page")) then

currentPage=cint(request("page"))

else

currentPage=1

end if

sql="select * from learning order by articleid desc"

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

rs.open sql,conn,1,1

if rs.eof and rs.bof then

response.write "<p align='center'> 還 沒 有 任 何 文 章</p>"

else

'數據庫中文章數totalput

totalPut=rs.recordcount

if currentpage<1 then

currentpage=1

end if

'統計總頁數currentpage

if (currentpage-1)*MaxPerPage>totalput then

if (totalPut mod MaxPerPage)=0 then

currentpage= totalPut \ MaxPerPage

else

currentpage= totalPut \ MaxPerPage + 1

end if

end if

if currentPage=1 then

showpage totalput,MaxPerPage,"index.asp"

showContent

showpage totalput,MaxPerPage,"index.asp"

else

if (currentPage-1)*MaxPerPage<totalPut then

rs.move (currentPage-1)*MaxPerPage

dim bookmark

bookmark=rs.bookmark

showpage totalput,MaxPerPage,"index.asp"

showContent

showpage totalput,MaxPerPage,"index.asp"

else

currentPage=1

showpage totalput,MaxPerPage,"index.asp"

showContent

showpage totalput,MaxPerPage,"index.asp"

end if

end if

rs.close

end if

set rs=nothing

conn.close

set conn=nothing

sub showContent

dim i

i=0

do while not rs.eof

>

'選擇顯示數據庫內容

<a href="openarticle.asp?id=<=rs("articleid")>"><=rs("title")></a>[點擊:<=rs("hits")>]<br>

<

'當顯示記錄大於maxperpage時結束這頁

i=i+1

if i>=MaxPerPage then exit do

rs.movenext

loop

end sub

function showpage(totalnumber,maxperpage,filename)

'求出當每頁18篇文章時總共的頁數

dim n

if totalnumber mod maxperpage=0 then

n= totalnumber \ maxperpage

else

n= totalnumber \ maxperpage+1

end if

response.write "<form method=Post action="&filename&">"

response.write "<p align='center'><font color='#000080'>>>分頁</font> "

'顯示頁數鍊接的條件

if CurrentPage<2 then

response.write "<font color='#000080'>首頁 上一頁</font> "

else

response.write "<a href="&filename&"?page=1&>首頁</a> "

response.write "<a href="&filename&"?page="&CurrentPage-1&">上一頁</a> "

end if

if n-currentpage<1 then

response.write "<font color='#000080'>下一頁 尾頁</font>"

else

response.write "<a href="&filename&"?page="&(CurrentPage+1)

response.write ">下一頁</a> <a href="&filename&"?page="&n&">尾頁</a>"

end ifc

response.write "<font color='#000080'> 頁次:</font><strong><font color=red>"&CurrentPage&"</font><font color='#000080'>/"&n&"</strong>頁</font>"

response.write "<font color='#000080'> 共<b>"&totalnumber&"</b>篇文章 <b>"&maxperpage&"</b>篇文章/頁</font>"

response.write " <font color='#000080'>轉到:</font><input type='text' name='page' size=4 maxlength=10 class=smallInput value="??tpage&">"

response.write "<input class=buttonface type='submit' value=' Goto ' name='cndok'></span></p></form>"

end function

>

  以上代碼很簡單的就實現了ASP網頁的多種分頁功能,不論是對瀏覽者還是管理者都能很方便的瀏覽和管理,我只在相關部分作了一些解釋,象這個ASP程序還必須有數據庫的支持才可以,關於數據庫的問題我就不詳述了,具體的實例大家可以看看我的主頁(http://aasp.yeah.net)上的文章管理程序,另外還有具體的程序下載!



頂端
本網頁最佳瀏覽模式為:瀏覽器 IE4.0 以上    解析度: 800 x 600
Copyright © 2000-2020 COOLASP All Rights Reserved