⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 grid8.aspx

📁 《精通ASP.NET网络编程》附带实例
💻 ASPX
字号:
🔍 
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<html>
<script language="VB" runat="server">

 Sub Page_Load(Sender As Object,e As EventArgs)
    '判断是否隐藏PagerStyle-Mode
    if (chk1.Checked) then
        Grid1.PagerStyle.Visible=true
    else
        Grid1.PagerStyle.Visible=false
    end if
   BindGrid
 End Sub
 Sub BindGrid()
 Dim Provider,DataBase,ConnStr,SQL As String
     '第一步: 进行数据库的链接
     Provider="Microsoft.Jet.OLEDB.4.0;"
     DataBase=Server.MapPath("Sample.mdb")
     ConnStr="Provider="+Provider+"Data Source="+DataBase
     '第二步：执行SQL指令，选出记录集合
     Dim Cmd As OleDbDataAdapter
     Cmd=New OleDbDataAdapter("Select * From 学生成绩表",ConnStr)
     Dim ds As DataSet=New DataSet()
     Cmd.Fill(ds,"学生成绩表")
     '第三步：将数据集合同DataGrid结合在一起
     Grid1.DataSource=ds.Tables("学生成绩表").DefaultView
     Grid1.DataBind()
     ShowStats()
 End Sub
 Sub PagerButtonClick(Sender As Object,e As EventArgs)
    '获得LinkButton的参数值
    Dim arg As String =CType(Sender,LinkButton).CommandArgument
    Select Case arg
       case ("next")
            if (Grid1.CurrentPageIndex < (Grid1.PageCount - 1)) then
            Grid1.CurrentPageIndex +=1
            end if
       case ("prev")
            if (Grid1.CurrentPageIndex > 0) then
            Grid1.CurrentPageIndex -=1
            end if
       case ("last")
            Grid1.CurrentPageIndex = (Grid1.PageCount - 1)
       case else
            '本页值
            Grid1.CurrentPageIndex = CInt(arg)
    End Select        
    
    BindGrid
 End Sub

 Sub Grid1_Page(sender As Object, e As DataGridPageChangedEventArgs)
  '处理按下数字的方法
    BindGrid
 End Sub

 Sub ShowStats()

    '显示页面信息
    lblCurrentIndex.Text = "当前页数为： " &(Grid1.CurrentPageIndex+1)
    lblPageCount.Text = "总页数是： " & Grid1.PageCount
 End Sub

</script>

<body>

<h3><font face="Verdana">个性化的分页实例</font></h3>

<form runat=server>

<ASP:DataGrid id="Grid1" runat="server"
AllowPaging="True"
PageSize="5"
PagerStyle-Mode="NumericPages"
PagerStyle-HorizontalAlign="Right"
OnPageIndexChanged="Grid1_Page"
BorderColor="black"
BorderWidth="1"
GridLines="Both"
CellPadding="3"
CellSpacing="0"
Font-Name="Verdana"
Font-Size="8pt"
HeaderStyle-BackColor="#aaaadd"
AlternatingItemStyle-BackColor="#eeeeee"
AutoGenerateColumns="true"

>
</ASP:DataGrid>

<p>
<asp:LinkButton id="btnFirst" runat="server"
Text="首页"
CommandArgument="0"
ForeColor="navy"
Font-Name="verdana" Font-size="8pt"
OnClick="PagerButtonClick"
/>
&nbsp;
<asp:LinkButton id="btnPrev" runat="server"
Text="前页"
CommandArgument="prev"
ForeColor="navy"
Font-Name="verdana" Font-size="8pt"
OnClick="PagerButtonClick"
/>
&nbsp;
<asp:LinkButton id="btnNext" runat="server"
Text="后页"
CommandArgument="next"
ForeColor="navy"
Font-Name="verdana" Font-size="8pt"
OnClick="PagerButtonClick"
/>
&nbsp;

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


<p>
<asp:Checkbox id="chk1" runat="server"
Text="显示内置的页数"
Font-Name="Verdana"
Font-Size="8pt"
AutoPostBack="true"
/>

<p>
<table bgcolor="#eeeeee" cellpadding="6"><tr><td nowrap><font face="Verdana" size="-2">

<asp:Label id="lblCurrentIndex" runat="server" /><br>
<asp:Label id="lblPageCount" runat="server" /><br>

</font></td></tr></table>
</form>

</body>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -