ASP分頁(yè)代碼主要用于在網(wǎng)頁(yè)上顯示大量數據時(shí)，頁(yè)代將數據分成多個(gè)頁(yè)面進(jìn)行展示(╬?益?)，報告以下是信息一個(gè)簡(jiǎn)單的ASP分頁(yè)代碼示例：
（圖片來(lái)??源網(wǎng)絡(luò )，侵刪）ヽ(′?｀)ノ1、頁(yè)代定義變量和參數
<%Dim objRS,報告 strSQL, intPageSize, intPageCount, intCurrentPage, intTotalRecordsDim strOrderBy, strW?here, strURL, strPageLink, strPageHTMLintP??ageSize = 10 '每頁(yè)顯示的記錄數str??Ordeヽ(′?｀)ノrBy = "id" '排序字段strWhe(O_O)re = "1=1" '查詢(xún)條件strURL = "default.a(′；ω；`)sp?" 'URL地址%>
2、獲取(qu)當前頁(yè)碼和總記錄數
<%If Request(ヽ(′▽?zhuān)?/"Page") <> "" Then intCurrヽ(′ー｀)ノentPage = CInt(Request("Page"))Else intCurrentPage = 1End IfSet objRS = Server.CreateObject(&qu(′▽?zhuān)?ot;ADODB.Recordset")strSQL = "SELECT(╯°□°）╯ COUNT(*) as Total(′_｀)Records FROM your_table WHERE " & strWhereobjRS.open="open" strSQL,信息 Conn, 1, 1intTotalRecords = objRS("TotalRecords")objRS.CloseSet objRS = Nothing%>3、計算總頁(yè)數和開(kāi)始記錄數
<%intPageCount = intTota(′?｀)lRecords intPageSizeIf intTotalRecords Mod intPageSize <> 0 Then intPageCount = intPageCount + 1End IfIf intCurrentPage > intPageCount Then intCurrentPageヾ(′ω｀)? = intPageCountEnd IfIf intCurrentPage < 1 Then intCurrentPage = 1End IfintStartRecord = (intCurrentPage 1) * intPageSize%>
4、頁(yè)代查詢(xún)數據并生成表格
<%strSQL = "SELECT * FROM your_table WHERE " & strWhere & " ORDER BY " & strOrderBy &ヽ(′▽?zhuān)?ノ &qu??ot; LIMIT " & intStartReヽ(′▽?zhuān)?ノcord & ",報告 " & intPageSizeSet objRS = Server.CreateObject("ADODB.Recordset")objRS.open strSQL, Conn, 1, 1%><table><tr><th>ID</th><th??>Name</th><th>Email</th&(╬?益?)gt;</tr><% Do While Not objR???S.EOF %><tr><td>(?_?;);<%=?? objRS("id") %></td><td><%= objRS(ヽ(′?｀)ノ"name") %&g??t;</td><td><%= objRS("email") %>&??┐(′?｀)┌l(fā)t;/td></tr><% objRS.MoveNext()loop="loop" %></table(′_｀)><% objRS.Close()Set objRS = Nothing %>5、生成分頁(yè)鏈接
&l??t;%For i = 1 To intPageCoun??t If i = in( ?° ?? ?°)tCurrentPage Then strPageLink = strPageLink & "<strong>" & i & "</strong> " Else strPageLink = strPageLink &??; "<a href=""" & strURL & "Page=" & i & """ title=""Go to page " &a(′ω｀)mp; i &(???); """>&qu??ot; & i & "</a> " End IfNextResponse.Write(strPageLink)%>
這個(gè)示例展示了如何使用ASP編寫(xiě)一個(gè)簡(jiǎn)單的信息分頁(yè)代碼，包括獲取(qu)當前頁(yè)碼、頁(yè)代計算總頁(yè)數、報告查詢(xún)數據、信息生成表格和分頁(yè)鏈接等功能，頁(yè)代你可以根據實(shí)際需求修改代碼中的報告表名、字段名( ?ω?)和查詢(xún)條件等。信息
