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 

转载于:https://www.cnblogs.com/FireYang/archive/2006/07/22/457293.html