澳门二十一点游戏赌场 澳门二十一点游戏赌场
    您现在的位置:首页 >> 软件应用 >> ASP教程 >> 内容

    搞个长文章分页代码

    时间:2012/7/23 20:41:35 点击:

      核心提示:ASP实例代码:搞个长文章分页代码Class aspxsky_pagePrivate Sub class_initializeEnd SubPublic Function Alert(message,...

    ASP实例代码:搞个长文章分页代码

    <%
    Class aspxsky_page
     Private Sub class_initialize
     End Sub

     Public Function Alert(message,gourl)
        message = replace(message,"'","\'")
        If gourl="-1" then
            Response.Write ("")
        Else
            Response.Write ("")
        End If
        Response.End()
     End Function

     Public Sub showpage(str,page,url)
      if not isnumeric(page) then
        alert "提示:错误的参数!","-1"
      end if
      if page="" or page=0 or isnull(page) or isempty(page) then
        page=1
      else
        page=cint(page)
      end if
      str=split(str,"{nextpage}")
      abspage=page
      pcount=ubound(str)+1
      if page>cint(ubound(str)+1) or page<1 then
    alert "提示:错误的参数!","-1"
      else
    response.write str(page-1)&"

    共分为"&pcount&"页 "
      end if

      for p=0 to ubound(str)
     response.write "["&p+1&"] "
      next
      response.write "当前第"&abspage&"/"&pcount&"页

    "
     End Sub
    End Class

    '------------------调用-----------------------
    p=request.QueryString("p")
    str="第一页:这里是第一页的内容{nextpage}第二页:这里是第二页的内容"
    url="shownews.asp?id="&id&"&"
    set newpage=new aspxsky_page
    newpage.showpage str,p,url
    %>

    作者:佚名 来源:不详

    共有评论 0相关评论
    发表我的评论
    • 大名:
    • 内容:
  • 澳门二十一点游戏赌场(www.0769online.com) © 2018 版权所有 All Rights Reserved. 邮箱:103150@qq.com 业务QQ:103150 手机:13549753683

    Power By Laoy8 SQL 3.0SP1 粤ICP备10098668号
  •