zoukankan      html  css  js  c++  java
  • asp 文章分页对象

    <%
    str="数据库文章内容测试内容哈哈"
    function page(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("<br>")

    for i = 1 to pagecontent
    Response.Write("<a href=?page="&i&">"&i&"</a> ")
    next
    else
    Response.Write(str)
    end if
    end function

    call page(str,5)
    %>
    对于你这儿的内容是rs("body")那么改最后一句为call page(rs("body"),200)就可以了

    我这上面只是写了一个大概,并不是很完善,但基本上就是这个样子了。
  • 相关阅读:
    CSS—BFC学习
    JS函数声明及函数表达式相关
    你想要的正则表达式笔记
    WordPress搭建自己的网站
    声纹识别
    WordPress搭建自己的网站
    L--jsp和servlet
    L--网页跳转
    L1--指针
    L--Java关键字final、static
  • 原文地址:https://www.cnblogs.com/kuyuecs/p/1279287.html
Copyright © 2011-2022 走看看