ASP中關於文章分頁顯示的基本方法

來源:互聯網
上載者:User

ASP中關於文章分頁顯示的基本方法

  在瞭解了Recordset對象的以上屬性和方法後,我們來考慮一下,如何運用它們來達到我們分頁顯示的目的。首先,我們可以為PageSize屬性設定一個值,從而指定從屬記錄組中取出的構成一個頁的行數;然後通過RecordCount屬性來確定記錄的總數;再用記錄總數除以PageSize就可得到所顯示的頁面總數;最後通過AbsolutePage屬性就能完成對指定頁的訪問。好象很並不複雜呀,下面讓我們來看看程式該如何?呢?

  我們建立這樣一個簡單的BBS應用程式,它的資料庫中分別有以下五個欄位:“ID”,每個文章的自動編號;“subject”,每個文章的主題;“name”,加帖使用者的姓名;“email”,使用者的電子郵件地址;“postdate”,加帖的時間。資料庫的DSN為“bbs”。我們將顯示文章分頁的所有步驟放在一個名為“ShowList()”的過程中,方便調用。程式如下:

’----BBS顯示文章分頁----

< Sub ShowList() >

<

PgSz=20 ’設定開關,指定每一頁所顯示的貼文數目,預設為20帖一頁

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

Set RS = Server.CreateObject("ADODB.RecordSet")

sql = "SELECT * FROM message order by ID DESC"

’查詢所有文章,並按文章的ID倒序排列

Conn.Open "bbs"

RS.open sql,Conn,1,1

If RS.RecordCount=0 then

response.write "< P>< center>對不起,資料庫中沒有相關資訊!< /center>< /P>"

else

RS.PageSize = Cint(PgSz) ’設定PageSize屬性的值

Total=INT(RS.recordcount / PgSz * -1)*-1 ’計算可顯示頁面的總數

PageNo=Request("pageno")

if PageNo="" Then

PageNo = 1

else

PageNo=PageNo+1

PageNo=PageNo-1

end if

ScrollAction = Request("ScrollAction")

if ScrollAction = " 上一頁 " Then

PageNo=PageNo-1

end if

if ScrollAction = " 下一頁 " Then

PageNo=PageNo+1

end if

if PageNo < 1 Then

PageNo = 1

end if

n=1

RS.AbsolutePage = PageNo

Response.Write "< CENTER>"

position=RS.PageSize*PageNo

pagebegin=position-RS.PageSize+1

if position < RS.RecordCount then

pagend=position

else

pagend= RS.RecordCount

end if

Response.Write "< P>< font color=’Navy’>< B>數 據 庫 查 詢 結 果:< /B>"

Response.Write "(共有"&RS.RecordCount &"條合格資訊,顯示"&pagebegin&"-"&pagend&")< /font>< /p>"

Response.Write "< TABLE WIDTH=600 BORDER=1 CELLPADDING=4 CELLSPACING=0 BGCOLOR=#FFFFFF>"

Response.Write "< TR BGCOLOR=#5FB5E2 >< FONT SIZE=2 >< TD >< B >主 題< /B >< /TD >< TD >< B >用 戶< /B >< /TD >< TD >< B >Email< /B >< /TD >< TD >< B >發 布 日 期< /B >< /TD >< /FONT >< TR BGCOLOR=#FFFFFF >"


Do while not (RS is nothing)

RowCount = RS.PageSize

Do While Not RS.EOF and rowcount > 0

If n=1 then

Response.Write "< TR BGCOLOR=#FFFFFF>"

ELSE

Response.Write "< TR BGCOLOR=#EEEEEE>"

End If

n=1-n >

< TD>< span style="font-size:9pt">< A href=’view.asp?key=< =RS("ID")>’>< =RS("subject")>< /A>< /span>< /td>

< TD>< span style="font-size:9pt">< =RS("name")>< /A>< /span>< /td>

< TD>< span style="font-size:9pt">< a href="mailto:< =RS("email")>">< =RS("email")>< /a>< /span> < /TD>

< TD>< span style="font-size:9pt">< =RS("postdate")>< /span> < /td>

< /TR>

<

RowCount = RowCount - 1

RS.MoveNext

Loop

set RS = RS.NextRecordSet

Loop

Conn.Close

set rs = nothing

set Conn = nothing

>

< /TABLE >

< FORM METHOD=GET ACTION="list.asp" >

< INPUT TYPE="HIDDEN" NAME="pageno" VALUE="< =PageNo >" >

<

if PageNo > 1 Then

response.write "< INPUT TYPE=SUBMIT NAME=’ScrollAction’ VALUE=’ 上一頁 ’>"

end if

if RowCount = 0 and PageNo < >Total then

response.write "< INPUT TYPE=SUBMIT NAME=’ScrollAction’ VALUE=’ 下一頁 ’>"

end if

response.write "< /FORM>"

End if

>

< End Sub %>



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。