读取数据库中数据到数组的类

《读取数据库中数据到数组的类》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、读取数据库中数据到数组的类>>教育资源库整理：阿炳：.jzxue.投稿：（转贴）DbPath="test.mdb"’数据库位置ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="Server.MapPath(DbPath)SetConn=Server.CreateObject("ADODB.Connection")Conn.openConnStrClassClass_ReadPublicArr,Rs,SQL,ArrTR,ArrTD,Page,TotalRead,TotalPagePubli

2、cFunctionRead(SQL,TD,TR,PG)SQL=Replace(SQL,"’","")Page=Int(PG)SetRs=Server.CreateObject("ADODB.Recordset"):Rs.openSQL,conn,1,1TotalRead=Rs.RecordCountIfTotalRead>0ThenIfTR>0Then:Rs.PageSize=TR:Else:TR=TotalReadIfTD>Rs.Fields.CountorTD<1ThenTD=Rs.Fields.CountIfTot

3、alReadModTR<>0ThenTotalPage=1:EndIf:TotalPage=TotalPage+Int(TotalRead/TR)IfPage>=TotalPageThenPage=TotalPage:TR=TotalRead-TR*(TotalPage-1)IfPage>1ThenRs.absolutePage=PageElsePage=1EndIfreDimArr(TD-1,TR)ForArrTR=0toTR-1:IfRs.EofThenExitForForArrTD=0toTD-1:Arr(ArrT

4、D,ArrTR)=Rs(ArrTD):Next:Rs.MoveNextNextArrTR=ArrTR-1Rs.CloseSetRs=NothingEndFunctionEndClass’使用方法DimC:SetC=NeiFori=0ToC.ArrTRResponse.p;C.Arr(0,i)NextResponse.p;C.TotalReadResponse.p;C.TotalPageResponse.p;C.PageResponse.p;C.ArrTR+1>>>>这篇文章来自..，。