帝王谷资源网 Design By www.wdxyy.com
易心asp分页类v1.0
复制代码 代码如下:
<%
class Ex_SplitPageCls
'==========================================================================
'易心asp分页类v1.0
'作者:易心 QQ:343931221
'个人网站 www.ex123.net www.bo56.com
'演示地址:www.ex123.net/show/page
'转载请保留此信息
'==========================================================================
dim Ex_Rs
dim Ex_columns'要提取的字段
dim Ex_datafrom'数据表名
dim Ex_strWhere'记录筛选条件
dim Ex_order'sql排序
dim Ex_idcount'记录总数
dim Ex_pageSize'每页条数
dim Ex_pageCount'总页数
dim Ex_ids'获得本页要用到的id
dim Ex_Sql'构造的sql语句
dim Ex_page'当前显示页码
dim Ex_Conn'数据库联接对象
dim Ex_index'数据库记录当前位置
dim Ex_id'主键字段
private sub class_initialize
set Ex_Rs=server.CreateObject("adodb.recordset")
Ex_id="id"
Ex_pageSize=20
end sub
private sub class_terminate
Ex_rs.close
set Ex_rs=nothing
end sub
'属性赋值:
public property let letConn(str)
Ex_conn=str
end property
'属性赋值:sql语句 要查询的字段 带select
public property let letColumns(str)
Ex_Columns=str
end property
'属性赋值:sql语句筛选条件部分 带where
public property let letWhere(str)
Ex_strWhere=str
end property
'属性赋值:sql语句数据表 带from
public property let letDataFrom(str)
Ex_dataFrom=str
end property
'属性赋值:sql语句排序部分 带order by
public property let letOrder(str)
Ex_order=str
end property
'属性赋值:每页记录数
public property let letPageSize(str)
Ex_pageSize=str
end property
'属性赋值:当前页数
public property let letPage(str)
Ex_page=str
end property
'属性赋值:主表主键字段
public property let letId(str)
Ex_Id=str
end property
'属性:获得记录总数
public property get getRsCount
getRsCount=Ex_idCount
end property
'属性:获得页总数
public property get getPageCount
if(Ex_idcount>0) then'如果记录总数=0,则不处理
if(Ex_idcount mod Ex_pageSize=0)then'如果记录总数除以每页条数有余数,则=记录总数/每页条数+1
Ex_pageCount=int(Ex_idcount/Ex_pageSize)'获取总页数
else
Ex_pagecount=int(Ex_idcount/Ex_pageSize)+1'获取总页数
end if
getPageCount=Ex_pagecount
else
getPageCount=0
end if
end property
'属性:获得当前页数
public property get getPage
getPage=Ex_Page
end property
'获得本页要用到的id
private sub ids
dim i
Ex_sql="select "&Ex_Id&" "& Ex_datafrom &" " &" "&Ex_strWhere&" "&Ex_order
Ex_rs.open Ex_sql,Ex_conn,1,1
if not Ex_Rs.eof and not Ex_Rs.bof then
Ex_rs.pagesize =Ex_pageSize '每页显示记录数
Ex_Rs.absolutepage=CInt(Ex_Page)
Ex_idcount=Ex_rs.recordcount
if Ex_page < 1 then Ex_page = 1
if Ex_page > Ex_pagecount then Ex_page = Ex_pageCount
if Ex_pageCount > 0 then Ex_rs.absolutepage =Ex_page
for i=1 to Ex_rs.pagesize
if Ex_rs.eof then exit for
if(i=1)then
Ex_Ids=Ex_rs("id")
else
Ex_Ids=Ex_Ids &","&Ex_rs("id")
end if
Ex_rs.movenext
next
end if
Ex_Rs.close
end sub
'返回本页要用到的记录集
public function execute
ids
Ex_Sql=Ex_Columns&" "&Ex_dataFrom&" "&Ex_strWhere&" and id in("&Ex_ids&") "&Ex_order
Ex_Rs.open Ex_Sql,Ex_conn,1,1
Set execute=Ex_Rs
end function
end class
%>
复制代码 代码如下:
<%
class Ex_SplitPageCls
'==========================================================================
'易心asp分页类v1.0
'作者:易心 QQ:343931221
'个人网站 www.ex123.net www.bo56.com
'演示地址:www.ex123.net/show/page
'转载请保留此信息
'==========================================================================
dim Ex_Rs
dim Ex_columns'要提取的字段
dim Ex_datafrom'数据表名
dim Ex_strWhere'记录筛选条件
dim Ex_order'sql排序
dim Ex_idcount'记录总数
dim Ex_pageSize'每页条数
dim Ex_pageCount'总页数
dim Ex_ids'获得本页要用到的id
dim Ex_Sql'构造的sql语句
dim Ex_page'当前显示页码
dim Ex_Conn'数据库联接对象
dim Ex_index'数据库记录当前位置
dim Ex_id'主键字段
private sub class_initialize
set Ex_Rs=server.CreateObject("adodb.recordset")
Ex_id="id"
Ex_pageSize=20
end sub
private sub class_terminate
Ex_rs.close
set Ex_rs=nothing
end sub
'属性赋值:
public property let letConn(str)
Ex_conn=str
end property
'属性赋值:sql语句 要查询的字段 带select
public property let letColumns(str)
Ex_Columns=str
end property
'属性赋值:sql语句筛选条件部分 带where
public property let letWhere(str)
Ex_strWhere=str
end property
'属性赋值:sql语句数据表 带from
public property let letDataFrom(str)
Ex_dataFrom=str
end property
'属性赋值:sql语句排序部分 带order by
public property let letOrder(str)
Ex_order=str
end property
'属性赋值:每页记录数
public property let letPageSize(str)
Ex_pageSize=str
end property
'属性赋值:当前页数
public property let letPage(str)
Ex_page=str
end property
'属性赋值:主表主键字段
public property let letId(str)
Ex_Id=str
end property
'属性:获得记录总数
public property get getRsCount
getRsCount=Ex_idCount
end property
'属性:获得页总数
public property get getPageCount
if(Ex_idcount>0) then'如果记录总数=0,则不处理
if(Ex_idcount mod Ex_pageSize=0)then'如果记录总数除以每页条数有余数,则=记录总数/每页条数+1
Ex_pageCount=int(Ex_idcount/Ex_pageSize)'获取总页数
else
Ex_pagecount=int(Ex_idcount/Ex_pageSize)+1'获取总页数
end if
getPageCount=Ex_pagecount
else
getPageCount=0
end if
end property
'属性:获得当前页数
public property get getPage
getPage=Ex_Page
end property
'获得本页要用到的id
private sub ids
dim i
Ex_sql="select "&Ex_Id&" "& Ex_datafrom &" " &" "&Ex_strWhere&" "&Ex_order
Ex_rs.open Ex_sql,Ex_conn,1,1
if not Ex_Rs.eof and not Ex_Rs.bof then
Ex_rs.pagesize =Ex_pageSize '每页显示记录数
Ex_Rs.absolutepage=CInt(Ex_Page)
Ex_idcount=Ex_rs.recordcount
if Ex_page < 1 then Ex_page = 1
if Ex_page > Ex_pagecount then Ex_page = Ex_pageCount
if Ex_pageCount > 0 then Ex_rs.absolutepage =Ex_page
for i=1 to Ex_rs.pagesize
if Ex_rs.eof then exit for
if(i=1)then
Ex_Ids=Ex_rs("id")
else
Ex_Ids=Ex_Ids &","&Ex_rs("id")
end if
Ex_rs.movenext
next
end if
Ex_Rs.close
end sub
'返回本页要用到的记录集
public function execute
ids
Ex_Sql=Ex_Columns&" "&Ex_dataFrom&" "&Ex_strWhere&" and id in("&Ex_ids&") "&Ex_order
Ex_Rs.open Ex_Sql,Ex_conn,1,1
Set execute=Ex_Rs
end function
end class
%>
标签:
易心asp分页类,v1.0
帝王谷资源网 Design By www.wdxyy.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
帝王谷资源网 Design By www.wdxyy.com
暂无评论...
稳了!魔兽国服回归的3条重磅消息!官宣时间再确认!
昨天有一位朋友在大神群里分享,自己亚服账号被封号之后居然弹出了国服的封号信息对话框。
这里面让他访问的是一个国服的战网网址,com.cn和后面的zh都非常明白地表明这就是国服战网。
而他在复制这个网址并且进行登录之后,确实是网易的网址,也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情,因为以前都没有出现这样的情况,现在突然提示跳转到国服战网的网址,是不是说明了简体中文客户端已经开始进行更新了呢?
更新日志
2024年12月24日
2024年12月24日
- 小骆驼-《草原狼2(蓝光CD)》[原抓WAV+CUE]
- 群星《欢迎来到我身边 电影原声专辑》[320K/MP3][105.02MB]
- 群星《欢迎来到我身边 电影原声专辑》[FLAC/分轨][480.9MB]
- 雷婷《梦里蓝天HQⅡ》 2023头版限量编号低速原抓[WAV+CUE][463M]
- 群星《2024好听新歌42》AI调整音效【WAV分轨】
- 王思雨-《思念陪着鸿雁飞》WAV
- 王思雨《喜马拉雅HQ》头版限量编号[WAV+CUE]
- 李健《无时无刻》[WAV+CUE][590M]
- 陈奕迅《酝酿》[WAV分轨][502M]
- 卓依婷《化蝶》2CD[WAV+CUE][1.1G]
- 群星《吉他王(黑胶CD)》[WAV+CUE]
- 齐秦《穿乐(穿越)》[WAV+CUE]
- 发烧珍品《数位CD音响测试-动向效果(九)》【WAV+CUE】
- 邝美云《邝美云精装歌集》[DSF][1.6G]
- 吕方《爱一回伤一回》[WAV+CUE][454M]