我也是刚刚学习.net做了一个分页

最新推荐文章于 2024-08-22 03:00:00 发布

linuxdotnet

最新推荐文章于 2024-08-22 03:00:00 发布

阅读量993

点赞数

分类专栏： VB.NET专栏 ASP.NET专栏文章标签： .net server stylesheet asp vb 数据库

本文链接：https://blog.csdn.net/linuxdotnet/article/details/85748

版权

ASP.NET专栏同时被 2 个专栏收录

22 篇文章 0 订阅

订阅专栏

VB.NET专栏

13 篇文章 0 订阅

订阅专栏

里面可能有垃圾编码，请见谅
数据库结构如下　

book[id,title]　

<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.oledb"%>
<script language="vb" runat="server">
    dim PageSize = 10'定义每页显示
    dim pagecut
    dim dsmove'记录集移动
    sub Page_Load(obj as object,e as eventargs)
        dim objconn as new oledbconnection _
        ("provider=Microsoft.jet.oledb.4.0;data source=" & server.MapPath("bbs.mdb"))

        dim objcmd2 as new oledbcommand _
        ("select * from book",objconn)

        dim objreader as oledbdatareader　

        objconn.open
        objreader=objcmd2.executereader
        dim i=0
        while objreader.read
        i=i+1
        end while
        dim n
        if i mod PageSize = 0 then '计算总页数,recordcount:数据的总记录数
        n = i/PageSize 'n:总页数
        else
        n = i/PageSize+1
        end if
        objconn.close　

'得到总数pagecount　

dim RecordCount=i　

dim PageCount = (int(RecordCount/PageSize*-1))*-1　

lblRecordCount.Text = RecordCount'总记录数　

lblPageCount.Text = PageCount'分页数　

        dim pi,pagex
        dim pagecut=Request("page")
        if pagecut="" or pagecut<0 then pagecut=0
        pagecut=int(pagecut/10)*10+1
        dsmove=pagecut
        '/
        dim l,j,endpage
        if n <= 1 then exit sub
        for l=0 to n/PageSize-1
        for j=1 to PageSize

        pagex &="<a href='?page=" & l*PageSize+j & " '>[ " & l*PageSize+j & " ]</a>"

        next
        next
        EndPage = n mod PageSize
        for j=1 to EndPage　

pagex &="<a href='?page=" & l*PageSize+j & " '>[ " & l*PageSize+j & " ]</a>"　

        next

        lblPagex.Text=pagex
        dim objcmd as OleDbDataAdapter = new oledbdataadapter _
        ("select * from book",objconn)
        dim ds as dataset = new dataset()　

        dim movers=Request("page")
        if movers<0 then movers=1
        objcmd.fill(ds,((movers-1)*pagesize),PageSize,"index")　

mylist.datasource = ds.tables("index").defaultview　

        mylist.databind()

    end sub
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="inc/style.css" rel="stylesheet" type="text/css">
</head>　

<body>
<form runat="server">
    一共有<asp:Label id="lblRecordCount" ForeColor="black" runat="server" />
    条记录分成<asp:Label id="lblPageCount" ForeColor="black" runat="server" />页.
    <asp:Label id="lblPagex" ForeColor="red" runat="server" />　

    <asp:DataList id="mylist" Width="100%" runat="server" FooterStyle-BackColor="#aaaadd" HeaderStyle-BackColor="#aaaaee" AlternatingItemStyle-BackColor="Gainsboro"  GridLines="Horizontal" CellPadding="3" BackColor="White" BorderWidth="1px" BorderStyle="None" BorderColor="#E7E7FF">
    <headertemplate></headertemplate>
    <itemtemplate>
        <a href="viewbbs.aspx?objid=<%# DataBinder.Eval(Container.DataItem,"id") %>" class="a1">
        <%# DataBinder.Eval(Container.DataItem,"title") %>
        </a>
    </itemtemplate>
    <footertemplate>
    </footertemplate>
    </asp:datalist>
</form>
</body>
</html>