谁有分页程序不是 dataGrid的

我觉得下面这个不错，你试试！
http://www.uncj.net/news/show.aspx?id=136

代码写的不好,你暂时参考一下吧,简单的分页Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim strCon = "data source={0};initial catalog={1};persist security info=False;user id={2};password={3};Max Pool Size={4};Min Pool Size={5}"
        Dim arguments() As String = New String() {"xuyue", "phone", "sa", "sa", 40, 10}
        Dim strTemp As String = String.Format(strCon, arguments)
        Dim conn As SqlClient.SqlConnection = New SqlClient.SqlConnection(strTemp)
        Dim strSel As String = "Select * from Db_FileManager_View"
        Dim sqlComm As SqlCommand = New SqlCommand()
        sqlComm.CommandText = strSel
        sqlComm.Connection = conn
        Dim sqlAdapater As SqlDataAdapter = New SqlDataAdapter()
        sqlAdapater.SelectCommand = sqlComm
        sqlAdapater.Fill(table)
        Dim objPds As PagedDataSource = New PagedDataSource()
        objPds.DataSource = table.Tables(0).DefaultView
        objPds.AllowPaging = True
        objPds.PageSize = 8
        Dim CurPage As Integer
        If (Request.QueryString("Page") <> Nothing) Then
            CurPage = Convert.ToInt32(Request.QueryString("Page"))
        Else
            CurPage = 1
        End If
        objPds.CurrentPageIndex = CurPage - 1
        lblCurrentPage.Text = "当前?：" + CurPage.ToString() + " ?共" + objPds.PageCount.ToString + " ?"
        If (Not objPds.IsFirstPage) Then
            lnkPrev.NavigateUrl = Request.CurrentExecutionFilePath + "?Page=" + Convert.ToString(CurPage - 1)
        End If
        If (Not objPds.IsLastPage) Then
            lnkNext.NavigateUrl = Request.CurrentExecutionFilePath + "?Page=" + Convert.ToString(CurPage + 1)
        End If
        DataList1.DataSource = objPds
        DataList1.DataBind()
        Repeater1.DataSource = objPds
        Repeater1.DataBind()
    End Sub
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebtextC.aspx.vb" Inherits="vb100ex.WebForm1"%>
<%@ Register TagPrefix="cr" Namespace="CrystalDecisions.Web" Assembly="CrystalDecisions.Web, Version=9.1.3300.0, Culture=neutral, PublicKeyToken=692fbea5521e1304" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>WebForm1</title>
<meta content="Microsoft Visual Studio .NET 7.0" name="GENERATOR">
<meta content="Visual Basic 7.0" 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">
<TABLE id="Table1" style="Z-INDEX: 105; LEFT: 68px; POSITION: absolute; TOP: 11px" cellSpacing="1" cellPadding="1" width="800" border="1">
<TR>
<TD colSpan="3"><FONT face="MS UI Gothic"><asp:adrotator id="exam_xml" runat="server" Width="100%" BorderWidth="2px" AdvertisementFile="exam_xml.xml" Target="_self" Height="84px"></asp:adrotator></FONT></TD>
</TR>
<TR>
<TD colSpan="3"><FONT face="MS UI Gothic"><asp:datalist id="DataList1" runat="server" BorderStyle="None" HorizontalAlign="Center" ForeColor="#FFC0FF" ShowFooter="False" Width="100%" BorderWidth="1px" BorderColor="#E7E7FF" GridLines="Both" BackColor="White" CellPadding="3" Height="100px">
<SelectedItemStyle Font-Bold="True" ForeColor="#F7F7F7" BackColor="#738A9C"></SelectedItemStyle>
<HeaderTemplate>
header
</HeaderTemplate>
<SelectedItemTemplate>
</SelectedItemTemplate>
<AlternatingItemStyle ForeColor="Magenta" BorderColor="Black" BackColor="#FFC0FF"></AlternatingItemStyle>
<SeparatorStyle BackColor="#FFC0FF"></SeparatorStyle>
<FooterTemplate>
footer
</FooterTemplate>
<ItemStyle ForeColor="Blue" BackColor="#E7E7FF"></ItemStyle>
<ItemTemplate>
filename:<%# DataBinder.Eval(Container.DataItem, "file_name") %>
filenumber:<%# DataBinder.Eval(Container.DataItem, "file_number") %>
filesavedata:<%# DataBinder.Eval(Container.DataItem, "file_savetime") %></br>
</ItemTemplate>
<FooterStyle ForeColor="#4A3C8C" BackColor="#B5C7DE"></FooterStyle>
<HeaderStyle Font-Bold="True" ForeColor="#F7F7F7" BackColor="#4A3C8C"></HeaderStyle>
<AlternatingItemTemplate>
</AlternatingItemTemplate>
</asp:datalist></FONT></TD>
</TR>
<TR>
<TD align="middle" width="33%"><FONT face="MS UI Gothic"><asp:label id="lblCurrentPage" runat="server">page/page</asp:label>      
<asp:hyperlink id="lnkPrev" runat="server">Front</asp:hyperlink> 
<asp:hyperlink id="lnkNext" runat="server">Next</asp:hyperlink></FONT></TD>
<TD align="middle" width="33%"><asp:textbox id="TextBox1" runat="server"></asp:textbox></TD>
<TD align="middle" width="33%"><asp:button id="butSelect" runat="server" Text="select" BorderStyle="Ridge"></asp:button></TD>
</TR>
<TR>
<TD colSpan="3"><FONT face="MS UI Gothic"><asp:repeater id="Repeater1" runat="server">
<ItemTemplate>
<pre>filename: <%# DataBinder.Eval(Container.DataItem, "file_name") %>           filenumber: <%# DataBinder.Eval(Container.DataItem, "file_number") %>          filesavedata: <%# DataBinder.Eval(Container.DataItem, "file_savetime") %></pre>
</ItemTemplate>
</asp:repeater></FONT></TD>
</TR>
</TABLE>
</form>
</body>
</HTML>

XML实现的客户端分页排序功能，按其中原理，可扩展出客户端的隐藏某列，跳页等等多项功能。
有兴趣的话，帖出EMAIL

http://www.cnfsco.com/web/disparticle.asp?id=219

调试易

谁有分页程序不是 dataGrid的

解决方案 »

谁有分页程序 不是 dataGrid的

解决方案 »

谁有分页程序不是 dataGrid的