 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
Function ExportPageInfo(ByRef rs,curpage,i,LinkFile) Dim retval, j, pageNumber, BasePage retval = "第" & curpage & "页/总" & rs.pagecount & "页 " retval = retval & "本页" & i & "条/总" & rs.recordcount & "条 " If curpage = 1 Then retval = retval & "首页 前页 " Else retval = retval & "<a href=\\'" & LinkFile & "page=1\\'>首页</a> <a href=\\'" & LinkFile & "page=" & cstr(curpage - 1) & "\\'>前页</a> " End If If curpage = rs.pagecount Then retval = retval & "后页 末页" Else retval = retval & "<a href=\\'" & LinkFile & "page=" & cstr(curpage + 1) & "\\'>后页</a> <a href=\\'" & LinkFile & "page=" & cstr(rs.pagecount) & "\\'>末页</a>" End if retval = retval & "<br>" BasePage = (curpage \ 10) * 10 If BasePage > 0 Then retval = retval & " <a href=\\'" & LinkFile & "page=" & (BasePage - 9) & "\\'><<</a>" For j = 1 to 10 pageNumber = BasePage + j If PageNumber > rs.pagecount Then Exit For If pageNumber = Cint(curpage) Then retval = retval & " <font color=\\'#FF0000\\'>" & pageNumber & "</font>" Else retval = retval & " <a href=\\'" & LinkFile & "page=" & pageNumber & "\\'>" & pageNumber & "</a>" End If Next If rs.pagecount > BasePage Then retval = retval & " <a href=\\'" & LinkFile & "page=" & (BasePage + 11) & "\\'>>></a>" ExportPageInfo = retval End Function 应用 <% adoPageRS.open "SELECT * FROM news ORDER BY addtime DESC", conn, 1, 1 if err.number <> 0 then response.write "数据库操作失败："&err.description else if adoPageRS.eof and adoPageRS.bof then response.write "没有记录" else %> <div align="center"> <center> <table width="100%" border="0" cellspacing="1" cellpadding="2"> <tr class="big"> <td width="60%">新 闻 标 题</td> <td width="25%" align="center">日期</td> <td width="15%" align="center">操 作</td> </tr> <% adoPageRS.pagesize = 10 adoPageRS.absolutepage = curpage for i = 0 to 9 %> <tr> <td><%= adoPageRS("title") %></td> <td align="center"> <% = adoPageRS("addtime") %> </td> <td align="center"><a href=\\'newsman.asp?action=edit&id=<%= adoPageRS("id")%>\\'>编辑</a> <a href=\\'javascript:confirmDel(<%= adoPageRS("id") %>)\\'>删除</a></td> </tr> <% adoPageRS.movenext if adoPageRS.eof then i = i + 1 exit for End If next %> <tr align="center"> <td colspan="3"> <% = ExportPageInfo(adoPageRS, curpage, i, "Newsman.asp?") %> </td> </tr> </table> </center> </div> 返回类别: 教程 上一教程: 怎样给文件加密最安全(一种方式)？ 下一教程: 精华ASP代码收集 您可以阅读与"ASP分页函数"相关的教程: · ASP用于分页的两个函数 · 一个超强通用的分页显示函数 · ASP分页显示Recordset数据 · ASP进阶学习之熟悉数学函数 · ASP中时间函数的使用(二) |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
