listControl.aspx
〈%@ Control Language="vb" AutoEventWireup="false" Codebehind="listControl.ascx.vb" Inherits="govoa.listControl" TargetSchema="http://schemas.microsoft.com/intellisense/ie5" %〉
共有〈asp:Label id="lblRecordCount" ForeColor="red" runat="server" /〉条记录 当前为〈asp:Label id="lblCurrentPage" ForeColor="red" runat="server" /〉/〈asp:Label id="lblPageCount" ForeColor="red" runat="server" /〉页
〈asp:LinkButton id="lblPrevious" runat="server" text="上一页"〉〈/asp:LinkButton〉
〈asp:LinkButton id="lblNext" runat="server" text="下一页"〉〈/asp:LinkButton〉
〈asp:DropDownList id="NumPerPage" runat="server" AutoPostBack="True"〉

　　 〈asp:ListItem Value="5"〉

　　 5行/页〈/asp:ListItem〉

　　 〈asp:ListItem Value="8" Selected="True"〉

　　 8行/页〈/asp:ListItem〉

　　 〈asp:ListItem Value="10"〉

　　 10行/页〈/asp:ListItem〉

　　 〈asp:ListItem Value="15"〉

　　 15行/页〈/asp:ListItem〉

　　 〈asp:ListItem Value="20"〉

　　 20行/页〈/asp:ListItem〉

　　 〈asp:ListItem Value="25"〉

　　 25行/页〈/asp:ListItem〉

　　 〈asp:ListItem Value="30"〉

　　 30行/页〈/asp:ListItem〉

　　 〈asp:ListItem Value="35"〉

　　 35行/页〈/asp:ListItem〉

　　 〈asp:ListItem Value="40"〉

　　 40行/页〈/asp:ListItem〉
〈/asp:DropDownList〉
〈asp:TextBox ID="txtPage" Runat="server" Width="30"〉〈/asp:TextBox〉〈asp:Button ID="btnGo" Runat="server" Text="转到"〉〈/asp:Button〉



listControl.aspx.vb

Imports System.Data.SqlClient
Public MustInherit Class listControl

　　 Inherits System.Web.UI.UserControl

　　 Protected WithEvents lblRecordCount As System.Web.UI.WebControls.Label

　　 Protected WithEvents lblCurrentPage As System.Web.UI.WebControls.Label

　　 Protected WithEvents lblPageCount As System.Web.UI.WebControls.Label

　　 Protected WithEvents lblPrevious As System.Web.UI.WebControls.LinkButton

　　 Protected WithEvents lblNext As System.Web.UI.WebControls.LinkButton

　　 Protected WithEvents NumPerPage As System.Web.UI.WebControls.DropDownList

　　 Protected WithEvents txtPage As System.Web.UI.WebControls.TextBox

　　 Protected WithEvents btnGo As System.Web.UI.WebControls.Button

　　 Private m_DataContainer As Repeater

　　 Private m_datasource As String

　　 Private m_toRefresh As Boolean = False


　　 Private MyConn As SqlConnection

　　 Private RecordCount, PageCount, CurrentPage As Integer



　　 '/ 〈summary〉

　　 '/ 取得需要绑定的控件

　　 '/ 〈/summary〉


　　 Public Property GetRelatedControl() As Repeater

　　 Get

　　 Return m_DataContainer

　　 End Get

　　 Set(ByVal Value As Repeater)

　　 m_DataContainer = Value

　　 End Set

　　 End Property


　　 Public Property ToRefresh() As Boolean

　　 Get

　　 Return m_toRefresh

　　 End Get

　　 Set(ByVal Value As Boolean)

　　 m_toRefresh = Value

　　 End Set

　　 End Property


　　 Public Property GetRelatedSqlStr() As String

　　 Get

　　 Return m_datasource

　　 End Get

　　 Set(ByVal Value As String)

　　 m_datasource = Value

　　 If m_toRefresh Then

　　 refreshData()

　　 End If

　　 End Set

　　 End Property


#Region " Web 窗体设计器生成的代码 "


　　 '该调用是 Web 窗体设计器所必需的。

　　 〈System.Diagnostics.DebuggerStepThrough()〉 Private Sub InitializeComponent()


　　 End Sub


　　 Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init

　　 'CODEGEN: 此方法调用是 Web 窗体设计器所必需的

　　 '不要使用代码编辑器修改它。

　　 InitializeComponent()

　　 End Sub

#End Region


　　 Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

　　 '在此处放置初始化页的用户代码

　　 MyConn = New SqlConnection(System.Configuration.ConfigurationSettings.AppSettings("ConnectionString"))

　　 MyConn.Open()

　　 ViewState("PageSize") = NumPerPage.SelectedItem.Value.ToString()

　　 If Not Page.IsPostBack Then

　　 BindControl()

　　 CurrentPage = 0

　　 ViewState("PageIndex") = 0


　　 '计算总共有多少记录

　　 RecordCount = CalculateRecord()

　　 lblRecordCount.Text = RecordCount.ToString()


　　 '计算总共有多少页

　　 PageCount = Fix((RecordCount + Int32.Parse(NumPerPage.SelectedItem.Value)) / Convert.ToInt32(ViewState("PageSize").ToString())) - (IIf(RecordCount Mod Convert.ToInt32(ViewState("PageSize").ToString()) 〈〉 0, 0, 1)) 'ToDo: Unsupported feature: conditional (?) operator.

　　 lblPageCount.Text = PageCount.ToString()

　　 If PageCount 〈= 1 Then

　　 lblNext.Enabled = False

　　 End If

　　 ViewState("PageCount") = PageCount

　　 End If

　　 End Sub


　　 Private Sub refreshData()

　　 MyConn = New SqlConnection(System.Configuration.ConfigurationSettings.AppSettings("ConnectionString"))

　　 MyConn.Open()

　　 ViewState("PageSize") = NumPerPage.SelectedItem.Value.ToString()


　　 BindControl()

　　 CurrentPage = 0

　　 ViewState("PageIndex") = 0


　　 '计算总共有多少记录

　　 RecordCount = CalculateRecord()

　　 lblRecordCount.Text = RecordCount.ToString()


　　 '计算总共有多少页


　　 PageCount = Fix((RecordCount + Int32.Parse(NumPerPage.SelectedItem.Value)) / Convert.ToInt32(ViewState("PageSize").ToString())) - (IIf(RecordCount Mod Convert.ToInt32(ViewState("PageSize").ToString()) 〈〉 0, 0, 1)) 'ToDo: Unsupported feature: conditional (?) operator.

　　 lblPageCount.Text = PageCount.ToString()

　　 If PageCount 〈= 1 Then

　　 lblNext.Enabled = False

　　 End If

　　 ViewState("PageCount") = PageCount


　　 End Sub

　　 '/ 〈summary〉

　　 '/ 绑定控件

　　 '/ 〈/summary〉

　　 Private Sub BindControl()


　　 m_DataContainer.DataSource = CreateSource()

　　 m_DataContainer.DataBind()

　　 '

　　 lblNext.Enabled = True

　　 lblPrevious.Enabled = True

　　 If CurrentPage = PageCount - 1 Then

　　 lblNext.Enabled = False

　　 End If

　　 If CurrentPage = 0 Then

　　 lblPrevious.Enabled = False

　　 End If

　　 lblCurrentPage.Text = (CurrentPage + 1).ToString()

　　 txtPage.Text = (CurrentPage + 1).ToString()

　　 End Sub 'BindControl


　　 '/ 〈summary〉

　　 '/ 产生DataList的DataView

　　 '/ 〈/summary〉

　　 '/ 〈returns〉〈/returns〉

　　 Private Function CreateSource() As DataView


　　 Dim StartIndex As Integer


　　 '设定导入的起终地址

　　 StartIndex = CurrentPage * Convert.ToInt32(ViewState("PageSize").ToString()) '计算起始索引

　　 Dim ds As New DataSet()


　　 Dim MyAdapter As New SqlDataAdapter(m_datasource, MyConn)

　　 MyAdapter.Fill(ds, StartIndex, Convert.ToInt32(ViewState("PageSize").ToString()), "Score")


　　 Return ds.Tables("Score").DefaultView

　　 End Function 'CreateSource


　　 '/ 〈summary〉

　　 '/ 计算有多少记录

　　 '/ 〈/summary〉

　　 '/ 〈returns〉〈/returns〉

　　 Public Function CalculateRecord() As Integer



　　 Dim ds As New DataSet()


　　 Dim MyAdapter As New SqlDataAdapter(m_datasource, MyConn)

　　 MyAdapter.Fill(ds, "tempTable")


　　 Return ds.Tables("tempTable").DefaultView.Count

　　 End Function 'CalculateRecord






　　 Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click

　　 Try

　　 Dim InputValue As Integer = Convert.ToInt32(txtPage.Text)

　　 PageCount = CInt(ViewState("PageCount"))

　　 If InputValue 〈= PageCount And InputValue 〉 0 Then

　　 CurrentPage = Convert.ToInt32(txtPage.Text) - 1

　　 Else

　　 CurrentPage = CInt(ViewState("PageIndex"))

　　 End If

　　 ViewState("PageIndex") = CurrentPage

　　 Catch

　　 End Try

　　 BindControl()

　　 End Sub




　　 Private Sub NumPerPage_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumPerPage.SelectedIndexChanged

　　 Try

　　 ViewState("PageSize") = NumPerPage.SelectedItem.Value


　　 CurrentPage = 0

　　 ViewState("PageIndex") = 0


　　 '计算总共有多少记录

　　 RecordCount = CalculateRecord()

　　 lblRecordCount.Text = RecordCount.ToString()


　　 '计算总共有多少页

　　 PageCount = RecordCount / Convert.ToInt32(ViewState("PageSize").ToString()) + (IIf(RecordCount Mod Convert.ToInt32(ViewState("PageSize").ToString()) = 0, 0, 1)) 'ToDo: Unsupported feature: conditional (?) operator.

　　 lblPageCount.Text = PageCount.ToString()

　　 ViewState("PageCount") = PageCount


　　 BindControl()

　　 Catch

　　 End Try

　　 End Sub


　　 Private Sub lblPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblPrevious.Click

　　 CurrentPage = CInt(ViewState("PageIndex"))

　　 PageCount = CInt(ViewState("PageCount"))




　　 If CurrentPage 〉 0 Then

　　 CurrentPage -= 1

　　 End If


　　 ViewState("PageIndex") = CurrentPage


　　 BindControl()

　　 End Sub


　　 Private Sub lblNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblNext.Click

　　 CurrentPage = CInt(ViewState("PageIndex"))

　　 PageCount = CInt(ViewState("PageCount"))




　　 If CurrentPage 〈 PageCount - 1 Then

　　 CurrentPage += 1

　　 End If


　　 ViewState("PageIndex") = CurrentPage


　　 BindControl()

　　 End Sub
End Class

调用
自己看着办
几点说明：
这个是测试版本

掉用如下

　　 ListControl1.GetRelatedControl = rptContent

　　 ListControl1.ToRefresh = True

　　 ListControl1.GetRelatedSqlStr = New bizlogic.DBFilm().selectFilmStr(ddl_Type.SelectedItem.Value, tbx_keyWord.Text)

标签：