记录集用GetRows返回数组时的分页_kingapex1的博客-程序员秘密

记录集用GetRows返回数组时的分页

'''''''''''''''''''''''''''''''''''''''''''
'函数名: ShowPageLink()
'参数 : 无
'作用 : 显示分页连接
'返回值:无
'''''''''''''''''''''''''''''''''''''''''''
Sub ShowPageLink()
Response.Write "<div align='center'>"

Response.Write "共<font color='red'>"&count+1&"</font>条纪录 "
Response.Write "分<font color='red'>"&myint((count+1)/10)&"</font>页/每页"&size&"条 "
Response.Write "当前第<font color='red'>"&Cint(page)+1&"</font>页 "

'如何显示上一页
if flag <> 2 and flag<> 3 then
Response.Write "<a href=""?page="&Cint(page)-1&""">"
else
Response.Write "<a>"
end if
Response.Write "上一页</a>  "

'如何显示下一页
if flag <> 1 and flag<> 3 then
Response.Write "<a href=""?page="&Cint(page)+1&""">"
else
Response.Write "<a>"
end if
'Response.Write flag
Response.Write "下一页</a></div>"
End Sub
'-------------------------------sub end---------------------------------------------------

'''''''''''''''''''''''''''''''''''''''''''
'函数名: SetPageCount(pagesize)
'参数 : pagesize - 每页显示最多记录数
'作用 : 1.计算并返回此页循环上限
'       2.控制控制状态:
'  flag = 1   是最后一页
'  flag = 2   是第一页
'  flag = 3   既是第一页,又是最后一页
'返回值: 此页循环上限
'''''''''''''''''''''''''''''''''''''''''''
Function SetPageCount(Pagesize)

dim n,s

page = Request.QueryString("page")
size = Pagesize
StartPageCount=page*pagesize

if page = "" then
page =0
end if

count = ubound(RsMsg,2)

'当到了这页的时候已经显示了多少条记录?
'还有多少条?
s = count-page* pagesize '剩余的记录条数

'如何循环?
if page = 0 and s <=pagesize then' 既是第一页,又是最后一页
flag = 3
n = count
else
if s <=pagesize then   '最后一页了
  n = count
  flag = 1
else         '第一页
  n = (page+1)*pagesize
  flag = 2
end if
end if

EndPageCount = n
End Function
'----------------end function--------------------------------------------------

'''''''''''''''''''''''''''''''''
'函数名: myint(avalue)
'作用 : 1.1 return 2 , 1 return 1
'返回值: 无
''''''''''''''''''''''''''''''''
function myint(avalue)
dim rvalue
if avalue>int(avalue) then
rvalue=int(avalue)+1
else
rvalue=int(avalue)
end if
myint = rvalue
end function
'----------------------end------------------------

'例:

'RsMsg = Rs.GetRows
'count 纪录总条数
'page 当前页数
'StartPageCount 此页循环开始值
'EndPageCount   此页循环结束值
'flag   状态控制
'size   分页大小

dim count,page,StartPageCount,EndPageCount,flag,size,RsMsg

'得到RsMsg数组
'CreateRs
'OpenDBConn()
'call GetRsMsg(RsMsg)
'Set Rs = Nothing
'CloseDBConn

if not isarray(RsMsg) then
Response.Write "无纪录"
else

call SetPageCount(10)

for i = StartPageCount to EndPageCount
'显示纪录的代码
next

call ShowPageLink()
end if

本文链接：https://blog.csdn.net/kingapex1/article/details/26264

原作者删帖不实内容删帖广告或垃圾文章投诉

智能推荐

常指针与常引用_常指针和常引用_QilongPan的博客-程序员秘密

对象的引用和对象的指针为了说明对象指针与对象引用的相关知识，我们来看一下下面的例子在这个类中，我们定义了两个数据成员（一个横坐标一个纵坐标），另外，还定义了一个构造函数，还有三个成员函数，其中printInfo()函数是一个常成员函数。那么在实现的时候，也需要在printInfo函数后面加上const关键字来修饰，如下：下面我们来看看对象的引用和对象的指针如何来定以。当

特征选择-卡方检验与互信息(python)_Sais_Z的博客-程序员秘密

特征选择（卡方检验与互信息）特征选择的主要目的有两点：减少特征数量提高训练速度，这点对于一些复杂模型来说尤其重要减少noisefeature以提高模型在测试集上的准确性。一些噪音特征会导致模型出现错误的泛化（generalization），从而在测试集中表现较差。另外从模型复杂度的角度来看，特征越多模型的复杂度越高，也就越容易发生overfitting。互信息（Mutual information）和卡方检验（chisquare）是两种比较常用的特征选择方法：互信息互信息是用来评价一个事件的

微信小程序语言c#,微信小程序推出最新脚本语言WXS，你需要知道的全在这里了..._weixin_39797393的博客-程序员秘密

原标题：微信小程序推出最新脚本语言WXS，你需要知道的全在这里了感谢“造程序”(微信ID：zaochengxucom)的授权发布。责编：陈秋歌，关注微信开发等领域，寻求报道或者投稿请发邮件至chenqg#csdn.net。WXS脚本语言是 WeiXin 脚本语言的简称，是Java、JSON、WXML、WXSS之后又一大小程序内部文件类型。截至到目前小程序已经提供了5种文件类型。解构小程序的几种方式...

C++中函数重载、隐藏、覆盖和重写的区别转自：http://www.bijishequ.com/detail/277975?p=_s1107917238的博客-程序员秘密

代码编译运行环境：VS2012+Debug+Win321.函数重载（Function Overload）1.1定义C++规定在同一作用域中，同名函数的形式参数（指参数的个数、类型或者顺序）不同时，构成函数重载。1.2用法比如，要从两个变量中返回其中较大的一个值，可以编写如下两个构成重载的函数。int max(int a,int b){return

Load-time relocation of shared libraries_weixin_33795806的博客-程序员秘密

E原文地址：http://eli.thegreenplace.net/2011/08/25/load-time-relocation-of-shared-libraries/ This article’s aim is to explain how a modern operating system makes it possible to use shared...

putty终端查看php扩展,xshell putty等终端，如何记录终端输入输出_闽乃福地的博客-程序员秘密

如何记录终端输出？试试使用script命令行工具来为你的终端输出创建输出记录。scriptcaimz.terminal.session #caimz.terminal.session 就是随便起一个名字，我利于认识我起了能认识的名字[[email protected] ~]# script caimz.terminal.session#开启Script started, file is caimz.termin...