zoukankan      html  css  js  c++  java
  • 单页图文分页代码

    Sub GetContent(Content,Num)

    Content
    =replace(Content,"'","")
    rs.open
    "Select * From content where c_name='"&Content&"'",conn,1,1
    if not rs.eof then
    if num>0 then
    temp
    =rs("c_content")
    If isnull(temp) then temp=""
    response.write(
    left(replace(temp,"[PageBreak]",""),Num))
    else
    temp
    =rs("c_content")
    if instr(temp,"[PageBreak]")>0 then
    if request("page")="" then
    page
    =1
    else
    page
    =clng(request("page"))
    end if
    temp
    =split(temp,"[PageBreak]")
    response.write(temp(page
    -1))
    strnext
    ="<a href='?"&FilterUrl&"&Page="&page+1&"'>下一页</a>"
    strprev
    ="<a href='?"&FilterUrl&"&Page="&page-1&"'>上一页</a>"
    response.Write(
    "<div align=center>")
    if page=1 then
    response.Write(strnext)
    elseif page=ubound(temp)+1 then
    response.Write(strprev)
    else
    response.Write(strprev)
    response.Write(
    "&nbsp;&nbsp;")
    response.Write(strnext)
    end if
    response.Write(
    "</div>")
    else
    response.Write(rs(
    "c_content"))
    end if
    end if
    end if
    rs.close
    End Sub
    Function FilterUrl
    dim q
    q
    =request.QueryString
    Set re = New RegExp
    re.Pattern
    = "page=[^&]*"
    re.Global
    = True
    re.IgnoreCase
    = True
    re.MultiLine
    = True
    q
    =re.replace(q,"")
    q
    =replace(q,"?&","?") '去掉第一个&
    if right(q,1)="&" then q=left(q,len(q)-1) '去掉最后一个&
    FilterUrl=q
    End Function
    
    
  • 相关阅读:
    【3】hexo+github搭建个人博客的主题配置
    【2】hexo+github搭建个人博客的简单使用
    每日思考(2020/05/06)
    每日思考(2020/05/05)
    每日思考(2020/03/27)
    文件和异常
    每日思考(2020/03/24)
    图形用户界面和游戏开发
    每日思考(2020/03/19)
    面向对象进阶
  • 原文地址:https://www.cnblogs.com/Aricc/p/1340339.html
Copyright © 2011-2022 走看看