Private Function ContentPagination(strContent)
Dim ContentLen, maxperpage, Paginate
Dim arrContent, TempContent, i
On Error Resume Next
strContent = Newasp.ReadContent(strContent)
strContent = Replace(strContent, "[NextPage]", "[page_break]")
strContent = Replace(strContent, "[Page_Break]", "[page_break]")
ContentLen = Len(strContent)
If InStr(strContent, "[page_break]") <= 0 Then
TempContent = strContent
Else
arrContent = Split(strContent, "[page_break]")
Paginate = UBound(arrContent) + 1
If CurrentPage = 0 Then
CurrentPage = 1
Else
CurrentPage = CInt(CurrentPage)
End If
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Paginate Then CurrentPage = Paginate
TempContent = TempContent & arrContent(CurrentPage - 1)
End If
ContentPagination = TempContent
End Function
Private Function ContentPaginations(strContent)
Dim ContentLen, maxperpage, Paginate
Dim arrContent, TempContent, i
On Error Resume Next
strContent = Newasp.ReadContent(strContent)
strContent = Replace(strContent, "[NextPage]", "[page_break]")
strContent = Replace(strContent, "[Page_Break]", "[page_break]")
ContentLen = Len(strContent)
If InStr(strContent, "[page_break]") <= 0 Then
TempContent = strContent
Else
arrContent = Split(strContent, "[page_break]")
Paginate = UBound(arrContent) + 1
If CurrentPage = 0 Then
CurrentPage = 1
Else
CurrentPage = CInt(CurrentPage)
End If
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Paginate Then CurrentPage = Paginate
TempContent = TempContent & arrContent(CurrentPage - 1)
TempContent = TempContent & "</p><p align='center'><b>"
If CurrentPage > 1 Then
If CreateHtml <> 0 Then
TempContent = TempContent & "<a href='" & ReadPagination(CurrentPage - 1) & "'>上一页</a> "
Else
TempContent = TempContent & "<a href='?id=" & ArticleID & "&Page=" & CurrentPage - 1 & "'>上一页</a> "
End If
End If
For i = 1 To Paginate
If i = CurrentPage Then
TempContent = TempContent & "<font color='red'>[" & i & "]</font> "
Else
If CreateHtml <> 0 Then
TempContent = TempContent & "<a href='" & ReadPagination(i) & "'>[" & i & "]</a> "
Else
TempContent = TempContent & "<a href='?id=" & ArticleID & "&Page=" & i & "'>[" & i & "]</a> "
End If
End If
Next
If CurrentPage < Paginate Then
If CreateHtml <> 0 Then
TempContent = TempContent & " <a href='" & ReadPagination(CurrentPage + 1) & "'>下一页</a>"
Else
TempContent = TempContent & " <a href='?id=" & ArticleID & "&Page=" & CurrentPage + 1 & "'>下一页</a>"
End If
End If
TempContent = TempContent & "</b></p>"
End If
ContentPaginations = TempContent
End Function
asp分页显示代码
时间: 2024-07-29 10:36:50
asp分页显示代码的相关文章
ASP分页显示详论
分页|显示 如果你使用过目前众多网站上的电子公告板程序的话,那你应该会知道电子公告板程序为了提高页面的读取速度,一般不会将所有的帖子全部在一页中罗列出来,而是将其分成多页显示,每页显示一定数目的帖子数,譬如 20 条.想不想了解如何实现分页显示?请看本文! 那么究竟如何才能做到将数据库的查询结果分页显示呢?其实方法有很多, 但主要有两种: 一.将数据库中所有符合查询条件的记录一次性的都读入 recordset 中,存放在内存中,然后通过 ADO Recordset 对象所提供的几个专门支持分页处
深入分析讲解动态网页技术ASP分页显示
动态|分页|网页|显示 如果你使用过目前众多网站上的电子公告板程序的话,那你应该会知道电子公告板程序为了提高页面的读取速度,一般不会将所有的帖子全部在一页中罗列出来,而是将其分成多页显示,每页显示一定数目的帖子数,譬如 20 条.想不想了解如何实现分页显示?请看本文! 那么究竟如何才能做到将数据库的查询结果分页显示呢?其实方法有很多, 但主要有两种: 一.将数据库中所有符合查询条件的记录一次性的都读入 recordset 中,存放在内存中,然后通过 ADO Recordset 对象所提供的几个专
ASP分页显示之乱盖
分页|显示 第一次写这种贴子 :)个人认为功能不错,完全自创,绝无抄袭,若有雷同,纯属巧合!说明:.pagesize '定义每页显示记录数.recordcount '记录总数.pagecount '总页数.absolutepage '当前页码(页面)index.asp 未加入任何版面设计,故有点乱.功能俺也没测试,理论上是可以实现的(除俺敲错键).--index.asp示例程序如下: <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%
ASP分页显示Recordset数据
分页|数据|显示 1.建立Recordset对象 Dim objMyRst Set objMyRst=Server.CreateObject("ADODB.Recordset") objMyRst.CursorLocation=adUseClientBatch '客户端可批量处理 objMyRst.CursorType=adOpenStatic'光标类型为静态类型 注意:Recordset对象不能用Set objMyRst=Connection.Excute strSQL的语句建立,因
php mysql 分页显示代码
先我们来看看分页的效果,如果是你想要的就可以下载了. p.php教程分页类的核心代码 代码如下 复制代码 <?php /* php 分页类 只要实现分页.不与数据库教程连接. 如果是伪静态 只需修改84行以下的A标签即可 如 "<a href='index_".$i.".html'>".$i."</a>" (index_表示你的伪静态地址) 其他的A标签页是一样 */ /* 鄙人工作时间写
支持权重的无组件ASP广告显示代码
网站同一显示很多广告?需要不同权重?简单的20行代码. 复制代码 代码如下: Dim cc_fv_ad_468_80_code,cc_fv_ad_power,cc_fv_ad_i '广告权重显示 明月星光 Copyright http://www.5iya.com/blog 原创 cc_fv_ad_power = Array(1,3,2,4) '设置每个广告权重 Redim cc_fv_ad_ubound(Ubound(cc_fv_ad_power)) cc_fv_ad_
asp 分页实现代码
提供一款比较完整的asp教程分页函数,这款分页类可以实现上一页,下一页,等功能. '仅供参考,你可以任意修改.传播:如果你对它进行了改良,希望你能给我一个 '副本,谢谢. '-------------------------------------------------------------------- class turnpage dim spageno,spagesize,spagecount,srecordcount,sabsoluterecord private sub c
ASP中实现分页显示的七种方法_应用技巧
在微软的ASP编程体系中,ADO对象的建立,使得从网页访问数据库成为一件易事,特别是ADO的Recordset对象使得控制数据的输出显示更为方便.自由.而在Visual InterDev6.0(以下简称VI6.0)中,由于Script Object Model(以下简称SOM).Design-Time Control(以下简称DTC)以及Data Environment Object Model(以下简称DEOM)等对象模型的引入,使网页对数据库的访问设计显得更为方便. 因为主题方面的原因,关于
asp分页代码
这是一段简单的asp分页显示代码并以asp 分页显示源代码的形式提供给大家, 代码如下 复制代码 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd&q