>End Class
’使用方法
Dim C:Set C = New Class_Read
C.Read ("SQL语句","读取列数","读取行数[既每页显示条数]","当前页数")
Dim i
For i=0 To C.ArrTR
Response.Write "<br>内容:"&C.Arr(0,i)
Next
Response.Write "<br>总记录条数:"&C.TotalRead
Response.Write "<br>总页数 :"&C.TotalPage
Response.Write "<br>当前页 :"&C.Page
Response.Write "<br>当前记录数:"&C.ArrTR+1 　　

上一页  [1] [2] 

在google里搜索更多读取数据库中数据到数组的类

	Web www.51ec.org

上一篇信息学院： 网址和邮件地址的转换函数

下一篇信息学院： 轻松实现将上传图片到数据库