DataList和repeater的分页代码

 

 1 Imports System.Data 
 2 Imports System.Data.OleDb 
 3 Public Class lyb 
 4     Inherits System.Web.UI.Page 
 5     #Region " Web 窗体设计器生成的代码 " 
 6             '该调用是 Web 窗体设计器所必需的。 
 7     <System.Diagnostics.DebuggerStepThrough()>
 8     Private Sub InitializeComponent() 
 9     End Sub 
10         Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox 
11         Protected WithEvents Button1 As System.Web.UI.WebControls.Button 
12         Protected WithEvents datalist1 As System.Web.UI.WebControls.DataList 
13         Protected WithEvents lnkPrev As System.Web.UI.WebControls.HyperLink 
14         Protected WithEvents lnkNext As System.Web.UI.WebControls.HyperLink 
15         Protected WithEvents input1 As System.Web.UI.HtmlControls.HtmlInputFile 
16         '注意: 以下占位符声明是 Web 窗体设计器所必需的。 
17         '不要删除或移动它。 
18         Private designerPlaceholderDeclaration As System.Object 
19         Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init 
20                 'CODEGEN: 此方法调用是 Web 窗体设计器所必需的 
21                 '不要使用代码编辑器修改它。 
22                 InitializeComponent() 
23         End Sub 
24     #End Region 
25 
26 
27     Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
28         myinit() 
29     End Sub 
30 
31     Sub myinit() 
32         Dim connectionstring As String 
33         connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" 
34         connectionstring += Server.MapPath("ks.mdb") 
35         Dim cn As New OleDbConnection(connectionstring) 
36         Dim da As New OleDbDataAdapter("select  * from new", cn) 
37         Dim ds As New DataSet 
38         da.Fill(ds, "new") 
39         '对PagedDataSource 对象的相关属性赋值 
40         Dim objPds As New PagedDataSource 
41         objPds.DataSource = ds.Tables(0).DefaultView 
42         objPds.AllowPaging = True 
43         objPds.PageSize = 5 
44         Dim CurPage As Integer 
45         If (Convert.ToString(Request.QueryString("Page")) <> "") Then 
46             CurPage = Convert.ToInt32(Request.QueryString("Page")) 
47         Else 
48             CurPage = 1 
49         End If 
50         objPds.CurrentPageIndex = CurPage - 1 
51         If (Not objPds.IsFirstPage) Then 
52             lnkPrev.NavigateUrl = Request.CurrentExecutionFilePath + "?Page=" + Convert.ToString(CurPage - 1) 
53         End If 
54         If (Not objPds.IsLastPage) Then 
55             lnkNext.NavigateUrl = Request.CurrentExecutionFilePath + "?Page=" + Convert.ToString(CurPage + 1) 
56         End If 
57         '把PagedDataSource 对象赋给Repeater控件 
58         datalist1.DataSource = objPds 
59         datalist1.DataBind() 
60     End Sub 
61 End Class 
62