ASP

本类阅读TOP10

·asp常用数据库连接方法和技巧
·无组件生成BMP验证码
·一些常用的辅助代码 (网络收藏)
·JavaScript实现的数据表格:冻结列、调整列宽和客户端排序
·VisualStudio.NET_2003及其 MSDN 下载地址
·ASP模拟MVC模式编程
·图片以二进制流输出到网页
·MD5加密算法 ASP版
·ASP.NET编程中的十大技巧
·改进 ASP 的字符串处理性能

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
ASP分页函数

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

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) & "'>&lt;&lt;</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) & "'>&gt;&gt;</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>




相关文章

相关软件