PrivateSub Page_Init()Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Init 'CODEGEN: 此方法调用是 Web 窗体设计器所必需的 '不要使用代码编辑器修改它。 InitializeComponent() BindList(1) PageListItem() ShowWhatButton() End Sub Sub BindList()Sub BindList(ByVal PageNo AsInteger) myconn =New SqlClient.SqlConnection myconn.ConnectionString = (xinxi.stringconnection) Dim strSQL AsString="Select * From news Order By newsid Desc " Dim objCmd AsNew SqlClient.SqlDataAdapter(strSQL, myconn.ConnectionString) Dim DS AsNew DataSet objCmd.Fill(DS, "news") Dim myTable As DataTable = DS.Tables("news") Dim TotalRecord AsInteger= myTable.Rows.Count ShowTotalRecord.Text = TotalRecord Dim TotalPage AsInteger If TotalRecord <20Then ‘20:每页显示的数量 TotalPage =1 Else If TotalRecord Mod20<>0Then TotalPage = TotalRecord 20+1 Else TotalPage = TotalRecord /20 EndIf EndIf ShowTotalPage.Text = TotalPage Dim tempTable As DataTable = myTable.Clone() Dim I, J AsInteger For I = (PageNo -1) *20To PageNo *20-1 If I > myTable.Rows.Count -1ThenExitFor Dim newRow As DataRow = tempTable.NewRow() For J =0To myTable.Columns.Count -1 newRow(myTable.Columns(J).ColumnName) = myTable.Rows(I).Item(J) Next tempTable.Rows.Add(newRow) Next Label1.Text = PageNo myGuestbook.DataSource = tempTable myGuestbook.DataBind() End Sub Sub ShowWhatButton()Sub ShowWhatButton() If PageList.SelectedIndex =0Then firstButton.Enabled =False preButton.Enabled =False Else firstButton.Enabled =True preButton.Enabled =True EndIf If PageList.SelectedIndex = PageList.Items.Count -1Then nextButton.Enabled =False lastButton.Enabled =False Else nextButton.Enabled =True lastButton.Enabled =True EndIf End Sub Sub PageListItem()Sub PageListItem() Dim I AsInteger PageList.Items.Clear() For I =0To ShowTotalPage.Text -1 PageList.Items.Add("第"& I +1&"页") Next End Sub Sub PageList_Change()Sub PageList_Change(ByVal sender AsObject, ByVal e As EventArgs) BindList(PageList.SelectedIndex +1) ShowWhatButton() End Sub Sub PageChange()Sub PageChange(ByVal sender AsObject, ByVal e As CommandEventArgs) SelectCase e.CommandArgument Case"firstPage" PageList.SelectedIndex =0 Case"prePage" PageList.SelectedIndex -=1 Case"nextPage" PageList.SelectedIndex +=1 Case"lastPage" PageList.SelectedIndex = ShowTotalPage.Text -1 EndSelect BindList(PageList.SelectedIndex +1) ShowWhatButton() End Sub