bsp; lnkNext.Enabled = True
End If If CurPage > 1 Then
lnkPrve.Enabled = True
Else
lnkPrve.Enabled = False
End If
Label3.Text = "共 " & PageCount & " 页 当前第 " & CurPage & " 页"
DataGrid1.DataSource = clsGetData.GotoPage(CurPage)
DataGrid1.DataBind()
End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If CInt(TextBox1.Text) > PageCount Then
CurPage = PageCount
TextBox1.Text = CurPage
Else
CurPage = Convert.ToInt32(TextBox1.Text)
End If
GridBind()
End Sub
Private Sub lnkNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkNext.Click
If CurPage < PageCount Then
CurPage += 1
GridBind()
End If
End Sub
Private Sub lnkPrve_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lnkPrve.Click
If CurPage > 1 Then
CurPage -= 1
GridBind()
End If
End Sub Public Property PageCount() As Integer
Get
Return ViewState("PageCount")
End Get Set(ByVal Value As Integer)
ViewState("PageCount") = Value
End Set
End Property Public Property CurPage() As Integer
Get
If ViewState("CurPage") = 0 Then
ViewState("CurPage") = 1
End If
Return ViewState("CurPage")
End Get Set(ByVal Value As Integer)
ViewState("CurPage") = Value
End Set
End Property
Private Sub DataGrid1_SortCommand(ByVal source As Object, ByVal e As
System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles DataGrid1.SortCommand
clsGetData.fldOrderby = e.SortExpression
GridBind()
End Sub
End Class
（3）下面是WebForm1.aspx 代码
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm1.aspx.vb" Inherits="bbs.WebForm1"%>
<HTML>
<HEAD>
<title>WebForm1</title>
<meta name=vs_snapToGrid content="False">
<meta name=vs_showGrid content="False">
<meta content="Microsoft Visual Studio .NET 7.1" name=GENERATOR>
<meta content="Visual Basic .NET 7.1" name=CODE_LANGUAGE>
<meta content=JavaScript name=vs_defaultClientScript>
<meta content=http://schemas.microsoft.com/intellisense/ie5 name=vs_targetSchema>
</HEAD>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<asp:datagrid id=DataGrid1 style="Z-INDEX: 101; LEFT: 8px; POSITION: absolute; TOP: 32px" runat="server"
AutoGenerateColumns="False" Width="392px" Height="184px" AllowSorting="True">
<Columns>
<asp:BoundColumn DataField="ProductID" SortExpression="ProductID" HeaderText="ProductID"></asp:BoundColumn>
<asp:BoundColumn DataField="ProductName" SortExpression="ProductName" HeaderText="ProductName"></asp:BoundColumn>
</Columns>
</asp:datagrid><asp:Label id="Label2" style="Z-INDEX: 107; LEFT: 318px; POSITION: absolute; TOP: 12px" runat="server">页 </asp:Label><asp:LinkButton id="lnkPrve" style="Z-INDEX: 105; LEFT: 8px; POSITION: absolute; TOP: 8px" runat="server">PrvePage</asp:LinkButton><asp:LinkButton id="lnkNext" style="Z-INDEX: 104; LEFT: 92px; POSITION: absolute; TOP: 8px" runat="server">NextPage</asp:LinkButton>
<asp:TextBox id="TextBox1" style="Z-INDEX: 102; LEFT: 251px; POSITION: absolute; TOP: 8px" runat="server" Width="57px"></asp:TextBox>
<asp:Button id="Button1" style="Z-INDEX: 103; LEFT: 349px; POSITION: absolute; TOP: 6px" runat="server" Width="40px" Text="GO" Height="24px">
</asp:Button><asp:Label id="Label1" style="Z-INDEX: 106; LEFT: 179px; POSITION: absolute; TOP: 11px" runat="server" Height="16px" Width="70px">转到第</asp:Label><asp:Label id="Label3" style="Z-INDEX: 108; LEFT: 8px; POSITION: absolute; TOP: 300px" runat="server" Height="18px" Width="317px">XXXXX</asp:Label>
</form>
</body>
</HTML>
上一页 [1] [2] [3] | 
