 |
|
 |
您现在的位置： 精品下载 >> 开发 >> 网站开发 >> asp >> 文章正文 |  用户登录  新用户注册 |
|
||||
| ASP分页函数 | ||||
| 作者：佚名 文章来源：不详 点击数： 更新时间：2007-10-7 | ||||
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> |
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）