在线用户    站点地图 技术论坛 文档中心 站点导航 资源下载 语言参考 教程专题 站点统计 业务项目 使用帮助
您的位置
MSDN参考新加了CSS2参考,全中文,制作精良。245k下载。           新加了sxf_sxf推荐的"动态网页专家指导" 下载!          新加了lsg2002lsg推荐的"ASP.NET高级编程(PDF)" 下载!          新加了DHTML代码预览!!,功能强大哦!欢迎试用          新加了网友lincong为大家提供的SQL Server 2000 程序员指南,有点大,但同时也就说明内容全咯!           新加了网友ibra为大家提供的北大的JAVA课件,很适合初学者入门           新加了一个java的连接缓冲池代码示例           新加了人月神话电子版下载!软件工程巨著哦~~           更新了评分标准,引入了“专家分”概念,相信可以更好的激励大家的学习!详情请看“使用帮助”           新加了由网友GGG提供的“IIS超级管理手册”,值得一看哦!(虽然我没看过 :P )           新加了“英雄榜”,欢迎测试!           “无组件上传·从原理剖析到实践”已经全部完成,源码全部开放,有兴趣的朋友请到文档中心一探究竟。  您的位置  首页>技术论坛>ASP.net>F0101506 在同一窗口中打开页面中的链接 在新窗口中打开页面中的链接 将ASPCHINA设为首页 将ASPCHINA加入书签    
 LOGIN HERE
用户:
密码: 忘记密码
记住密码 用户注册 游客进入

论坛首页
|--web开发
   |--ASP
   |--JSP
   |--ASP.net
   |--DHTML
   |--RUBY
|--软件开发
   |--C++
      |--Code here
   |--JAVA
   |--VB
   |--Delphi
   |--XML
|--.net技术
   |--C#
   |--VB.net
|--Yup开发组
|--站务&投诉
   |--站长专区
|--硬件&网络
|--休息室
|--数据库技术
 进入精华区 我要发言



 DataGrid分页源码,大家分享back to ASP.net forum  
作者:northskycn,7级分数:0
日期:2004/1/5 14:09:00类别:ASP.net, 技术问题
回复:5次浏览:1167次
状态:无分贴

数据库嘛,一个编号:id,一个名字:name
一切为了简便。很好理解的。
<%@ import NameSpace="System.data" %>
<%@ import NameSpace="System.data.oledb" %>
<script language="VB" runat="Server">
'采用sql server还是采用access数据库,根据大家的使用而不同
Function Get_DSN(bolSQL As Boolean) As String
  If Not bolSQL Then
    Get_DSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
      & Server.MapPath("youdata.mdb")
  Else
    Get_DSN = "Provider=SQLOLEDB.1;Data Source=sqlserver;User ID=youruserid;" _
      & "Password=yourpwd;Initial Catalog=youdata;autotranslate=no;"
  End If
End Function
'建立数据源。
Sub CreateDataSource()
  Dim objConn As OleDbConnection
  Dim objCmd As OleDbDataAdapter
  Dim objDS As DataSet
  Dim strSQL As String = "select * from [yourtable] order by id desc"
  Dim strDSN As String

  strDSN = Get_DSN(True)
  objConn = New OleDbConnection(strDSN)
  objCmd = New OleDbDataAdapter()

  objCmd.TableMappings.Add("Table", "yourtable")
  objCmd.SelectCommand = New OleDbCommand(strSQL, objConn)

  objDS = New DataSet("yourtable")
  objCmd.Fill(objDS)
  MyDataGrid.DataSource = objDS.Tables("yourtable").DefaultView
End Sub

'网页加载时
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  CreateDataSource()
  MyDataGrid.DataBind()
  ShowStats()
End Sub

'点击页数时。
Sub PagerButtonClick(Sender As Object, E as EventArgs)
  Dim arg as String = sender.CommandArgument
  Select Case arg
    Case "next"
    If (MyDataGrid.CurrentPageIndex < (MyDataGrid.PageCount - 1)) Then
      MyDataGrid.CurrentPageIndex += 1
    End If
    Case "prev"
      If (MyDataGrid.CurrentPageIndex > 0) Then
        MyDataGrid.CurrentPageIndex -= 1
      End If
    Case "last"
      MyDataGrid.CurrentPageIndex = (MyDataGrid.PageCount - 1)
    Case Else
      MyDataGrid.CurrentPageIndex = System.Convert.ToInt32(arg)
    End Select
    MyDataGrid.DataBind()
    ShowStats()
End Sub


Sub MyDataGrid_Page(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs)
  Dim startIndex As Integer
  startIndex = MyDataGrid.CurrentPageIndex * MyDataGrid.PageSize
  MyDataGrid.CurrentPageIndex = e.NewPageIndex
  MyDataGrid.DataBind()
  ShowStats()
End Sub


Sub ShowStats()
  lblCurrentIndex.Text = "第 " + (MyDataGrid.CurrentPageIndex + 1).ToString() + " 页 总共 " + MyDataGrid.PageCount.ToString() + " 页"
End Sub

</script>


<form runat=server>
<p>
<asp:LinkButton  id="btnFirst" runat="server"
  Text="首页"
  CommandArgument="0"
  ForeColor="navy"
  Font-Name="verdana"
  Font-size="9pt"
  OnClick="PagerButtonClick" />

<asp:LinkButton id="btnPrev" runat="server"
  Text="前页"
  CommandArgument="prev"
  ForeColor="navy"
  Font-Name="verdana"
  Font-size="9pt"
  OnClick="PagerButtonClick"
/>

<asp:LinkButton id="btnNext"
  runat="server"
  Text="后页"
  CommandArgument="next"
  ForeColor="navy"
  Font-Name="verdana"
  Font-size="9pt"
  OnClick="PagerButtonClick"
/>

<asp:LinkButton id="btnLast"
  runat="server"
  Text="末页"
  CommandArgument="last"
  ForeColor="navy"
  Font-Name="verdana"
  Font-size="9pt"
  OnClick="PagerButtonClick"
/>
<asp:Label id="lblCurrentIndex" Font-size="8pt" runat="server" />

<ASP:DataGrid id="MyDataGrid" runat="server"
  AllowPaging="True"
  PageSize="10"
  PagerStyle-Visible="true"
  PagerStyle-Mode="NumericPages"
  PagerStyle-HorizontalAlign="Right"
  OnPageIndexChanged="MyDataGrid_Page"
  BorderWidth="1"
  GridLines="Both"
  Font-Name="Verdana"
  Font-Size="10pt"
  HeaderStyle-BackColor="#aaaadd"
  AlternatingItemStyle-BackColor="#eeeeee"
  AutoGenerateColumns="false"
  BorderColor="black"
  CellPadding="3"
  CellSpacing="0"
  width=500
  DataKeyField="id"

>
<Columns>
  <asp:BoundColumn HeaderText="编号" DataField="id" ReadOnly="False" />
  <asp:BoundColumn HeaderText="名字" DataField="name" />
</Columns>

</ASP:DataGrid>
</form>
</body>



reply[F0101506]
 



 
 re [1] DataGrid分页源码,大家分享ASP.net forum  
- miles04-01-05 16:24  

good example~~

reply[F0101553]
 



 
 re [2] DataGrid分页源码,大家分享ASP.net forum  
- fasterff04-01-05 17:26  


reply[F0101565]
 



 
 re [1] DataGrid分页源码,大家分享ASP.net forum  
- zidone04-01-15 10:04  

总感觉不如用Repeater和DataList+PagedDataSource元素自由

reply[F0102800]
 



 
 好贴,谢谢!ASP.net forum  
- yvonne04-01-30 16:02  


reply[F0104130]
 



 
 re [1] DataGrid分页源码,大家分享ASP.net forum  
- yxzhjdnr04-02-15 23:25  

老兄.不要吓人了.属性里有这方面的设置.

reply[F0106842]
 



您的位置
  (c)2000-2020 Yup Studio, all rights reserved.  
115.2344