注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

沉默蜂B4A安卓编程

国内资料最全的B4A资料库

 
 
 

日志

 
 

[原创]分页显示远程MDB数据库记录(六)  

2014-04-27 21:21:45|  分类: B.网络 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

————————————  下面是DisPag.asp(分页在B4A端显示记录)  ————————————

 


<%
Dim MM_DBcnn_STRING
MM_DBcnn_STRING = "DRIVER=Microsoft Access Driver (*.mdb);UID=admin;UserCommitSync=Yes;Threads=3;SafeTransactions=0;PageTimeout=5;MaxScanRows=8;MaxBufferSize=2048;FIL=MS Access;DriverId=25;DBQ=" & Server.MapPath("dbtest.asp")

'汉字转换为UTF-8


'- ------------------------------------------- - 
'  函数说明:GB2312转换为UTF8 
'  由于 夜的影子 完成分页功能
'- ------------------------------------------- - 

 

'主要功能
'page=2&s=5
'查训全部page=all、查询第n页(每页5条记录)cmd=
'查询全部
'==================================================================================
Dim Rs,action,page,cut
Dim Rs_numRows
Dim MM_DB(3)
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.ActiveConnection =MM_DBcnn_STRING
Rs.Source = "SELECT * FROM TestMDB"
Rs.CursorType = 3
Rs.CursorLocation = 2
Rs.LockType = 1
Rs.Open()
'然后是分页属性的设置

action=request("action") '接收命令,是获取页数还是浏览指面分页

'action=Request.form("action") '接收命令,是获取页数还是浏览指面分页

if action="" then action="disRecord"

rs.PageSize=10 '设置显示数
pagecount=rs.PageCount '获取总页码
cut=rs.recordcount '获取记录数

select case action

case "getPageSize" '取页数量和记录数

 response.write rs.PageCount & "/" & cut


case "disRecord" '浏览指定页面记录
 
 page=int(request("page")) '接收页码
 'page=Request.form("page") '接收页码
 'if page="" then page=2
 
 if page<=0 then page=1 '判断
 if request("page")="" then page=1
 if page>pagecount then page=pagecount
 rs.AbsolutePage=page '设置本页页码


 
 '最后是body里的分页显示
 
 if rs.bof and rs.eof then
 response.write("wu")
 else
 'response.write  pagecount & "-" & rs.recordcount
 
 for i=1 to rs.PageSize
  response.write   rs("title") & "/" & rs("cDate") & "/" & rs("content") & "/<BR>"
  
  rs.movenext
  if rs.eof then exit for
 next
 end if

end select


Rs.Close()
Set Rs = Nothing

%>


 

  评论这张
 
阅读(157)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017