牙签学技术

一根牙签的业余爱好
  博客园 :: 首页 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理

[ASP.NET]分页技术－Repeater

Posted on 2008-07-25 14:53 『牙签』 阅读(27) 评论(0)  编辑 收藏 所属分类: ASP.NET 1.0
　　sub page_load(o as object,e as eventargs)

        Dim sqlstr as string

        sqlstr="select * from Guestbook order by gTime desc"

        RepeatDataBind (sqlstr)    

    end sub

    

    sub RepeatDataBind(sqlstr as string)

        dim myconn as OleDbConnection            

        dim ds as new dataset

        dim connstr as string

        connstr=ConfigurationSettings.AppSettings("ConnstrACC")        



        myconn=new oleDbconnection(connstr)

        dim dbRead as oledbDataadapter

        dbread=new oledbdataadapter(sqlstr,myconn)

        

        dbread.fill(ds,"Guestbook")

        dim objPage as new pagedDataSource

        objPage.Datasource=ds.tables("Guestbook").defaultview

        objpage.allowpaging=true

        objpage.pagesize=3

    

        dim curPage as integer

        if request.queryString("page")<> "" then

            curPage=Convert.Toint32(request.queryString("Page"))            

        else

            curPage=1

        end if

        objpage.currentpageindex=curpage-1

        

        messagesPage.text=curPage.Tostring() + "/" +  objpage.pageCount.tostring()

        if not objpage.isfirstpage then

            upLink.navigateUrl=request.CurrentExecutionfilepath+"?id=" & _

            request.querystring("id") & "&page=" + Convert.tostring(curpage-1)            

        end if

        if not objpage.islastpage then

            downLink.navigateUrl=request.CurrentExecutionfilepath+"?id=" & _

            request.querystring("id") & "&page=" + Convert.tostring(curpage+1)            

        end if

        Newslist.datasource=objpage

        Newslist.databind()

    end sub





    <asp:Repeater ID="Newslist" runat="server">

            <ItemTemplate>

        <tr>

            <td align="center" valign="middle">

                <%# DataBinder.Eval(Container.Dataitem,"ipid") %>

            </td>

        </tr>

        </ItemTemplate>

    </asp:Repeater>



            <asp:hyperLink id="Uplink" runat="server" font-size="9pt" >上一页</asp:hyperlink>

            <asp:label id="messagesPage" runat="server" font-size="9pt" />

            <asp:hyperLink id="downlink" runat="server" font-size="9pt" >下一页</asp:hyperlink>
技术改变生活，生活改变思想，思想改变技术。
Tag标签: ASP.NET,Repeater

标题  
姓名  
主页
Email (博主才能看到) 
验证码 *  看不清,换一张 [登录][注册]
内容(请不要发表任何与政治相关的内容)  
网站首页

新闻频道

社区

小组

博问

网摘

闪存

找找看
  登录  使用高级评论  新用户注册  返回页首  恢复上次提交      


相关链接:

最新IT新闻:
Silverlight 2.0正式版下周发布
Wikipedia“变心”，力挺Ubuntu
“不可破解”的加密技术出
13款Firefox Gmail扩展
支持鼠标手势的Chrome中文修改版