您的位置:首页 > 网络编程 > ASP

简化ADO数据库操作的控件(带分页功能)

日期:2006-07-06 11:04:49 点击: 来自:51js.com 作者:

创建对象:
Set Conn = Server.CreateObject("Adodb.Connection")
Set Rs = Server.CreateObject("Adodb.RecordSet")
Conn.Open ConnStr
简化后的操作:
Set DB = GetObject("script:"&Server.MapPath("DbHelper.sct"))
DB.ConnStr = ConnStr

查询语句:
仅执行(原):Conn.Execute Sql
仅执行(简):DB.NonQuery Sql

查询一个数据(原):
Rs.Open Sql, Conn
result = ""
If Not Rs.Eof Then result = Rs(0).Value
Rs.Close
查询一个数据(简):
result = DB.Scalar(Sql)

查询分页数据(原):
Rs.Open Sql, Conn, 1, 3, 3
'此处省略处理当前页码等代码n行
C=0
while Not Rs.EOF and C<Rs.PageSize
C = C+1
' 显示数据Rs("FieldName")
Rs.MoveNext
Wend
Rs.Close
简化后的操作:
Set Ds = DB.DataSet(Sql, PageSize, Request.QueryString(Page))
For Each Item In Ds
    If IsObject(Item) Then
        ' 显示数据Ds.FieldName
    End If
Next
Set Ds = Nothing

注销对象(原):
Conn.Close
Set Rs = Nothing
Set Conn = Nothing
注销对象(简):Set DB = Nothing

下载示例:

http://bbs.51js.com/attachment.php?aid=6665&checkid=a2186&download=1

More..素材图片 Picture Navigation
相关链接 Correlation Link
ASP热门 Class Hot
ASP推荐 Class Commend
版权所有:中国网站资源 2005- 未经授权禁止复制或建立镜像 This Site Tech:XHTML+DIV+CSS+Javascript
CopyRight ® 2005- www.chinaddv.com online services. all rights reserved. ICP06016627
Optimized to 1024x768 to Firefox,Netscape,Opera,MS-IE6+.