ASP实例代码：长文章分页代码设置方法

欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【ASP实例代码：长文章分页代码设置方法】，下面是详细的分享！

ASP实例代码：长文章分页代码设置方法

以下为引用的内容：

<%
Class aspxsky_page
 Private Sub class_initialize
 End Sub

 Public Function Alert(message,gourl)
    message=replace(message,"'","\'")
    If gourl="-1" then
        Response.Write ("<script language=javascript>alert('" & message & "');history.go(-1)</script>")
    Else
        Response.Write ("<script language=javascript>alert('" & message & "');location='" & gourl &"'</script>")
    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)&"<br><br><center> 共分为"&pcount&"页 "
  end if

  for p=0 to ubound(str)
 response.write "<a href=http://www.chinaz.com/program/2007/0820/"&url&"p="&p+1&">["&p+1&"]</a> "
  next
  response.write "当前第"&abspage&"/"&pcount&"页</center>"
 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
%>

以上所分享的是关于ASP实例代码：长文章分页代码设置方法，下面是编辑为你推荐的有价值的用户互动：

　　相关问题：长文章按字数分页asp代码

　　答：ami_pageCount+1 and wordPage >>详细

　　相关问题：ASP长文章分页代码

　　答： 暂无此类物品 >>详细

　　相关问题：asp长文章分页代码。

　　答：说实话，这个不太可能，因为文章里不可能只有文字还可能有排版的html代码，如果500个字把代码分开了，页面就乱了，所以这个方法不太好，也不太可能。 建议你在文章里加分页符，这样会好点 >>详细