您正在使用IPV4(34.230.9.187)访问本站 您本次共访问本站 1 次
 用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器 行情 简化版
文明驾车我带头,文明行路我带头,礼貌让座我带头      

【腾讯云】云产品限时秒杀,爆款1核2G云服务器,首年74元      
[公益] 节省一分零钱 献出一份爱心 温暖世间真情      
2022年 情人节 27
2022年 元宵节 28
2023年 元 旦 348
2022年 春 节 14
 
  • 本类新增
    本类热门文章
    您现在的位置:首页 >> ASP/ASP.net >> 内容
    ASP实例教程:长文章分页功能
    内容摘要: 要动态的还是静态的。先给你动态的吧。这个问题我弄了很久了,你好幸运有现成的给你,下面编写的函数   '按标识手动分页   function manualPage(str)   pages=request.QueryString('page')   contentstr=split(str,'{$page$}')   Response.Write(Conten......
    要动态的还是静态的。先给你动态的吧。这个问题我弄了很久了,你好幸运有现成的给你,下面编写的函数

    '按标识手动分页

    function manualPage(str)

    pages=request.QueryString("page")

    contentstr=split(str,"{$page$}")

    Response.Write(ContentStr(pages))

    Response.Write("<p/>")

    Response.Write("<div class=""pageList"">")

    For i = 0 to ubound(ContentStr)

    Response.Write("<a href='?ID="&id&"&page="&i&"'>"&i+1&"</a> ")

    Next

    Response.Write("</div>")

    end function

    '按长度分页

    function autoPage(str,fontnum)

    if len(str)>fontnum then

    if len(str) mod fontnum>0 then '计算总页数

    pagecontent=len(str)fontnum+1

    else

    pagecontent=len(str)fontnum

    end if

    Dim arr()

    ReDim arr(pagecontent)

    for m = 1 to pagecontent

    if m<>pagecontent then

    arr(m)= mid(str,(m*fontnum-fontnum+1),fontnum)

    else

    arr(m)= mid(str,(m*fontnum-fontnum+1),len(str))

    end if

    next

    if Request.QueryString("page")<>"" then

    Response.Write(arr(Request.QueryString("page")))

    else

    Response.Write(arr(1))

    end if

    Response.Write("<p/>")

    Response.Write("<div class=""pageList"">")

    for i = 1 to pagecontent

    Response.Write("<a href=?ID="&id&"&page="&i&">"&i&"</a> ")

    next

    Response.Write("</div>")

    else

    Response.Write(str)

    end if

    end function

    =============================

    在页面中

    <%

    if Instr(Content,"{$page$}")=0 then '判断是否是手工分页标志,不是就自动分页

    call autoPage(Content,2000)

    else

    call manualPage(Content)

    end if

    %>

    版权声明:本内容来源于网络,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
    上一篇:ASP教程:读取文件和写文件 下一篇:ASP常用函数 储存单位转换函数:FormatFil
    发布日期:2021/6/15
    手机扫二维码直达本页
    发布时间:12:34:56
    点击:63
    录入:壹家怡园
    相关文章
    Baidu
    YiJiaCMS 6.1.0.10988 Build 21.12.28(MSSQL) 闽ICP备05000814号-1
    本空间由腾讯云(轻量应用服务器)提供,百度云加速提供加速防护

    Copyright©2000-2022