ASP读取数据库问题

rs = Server.CreateObject("ADODB.RecordSet")

rs.Open(sqlStr,conn,1,A)

注：A=1表示读取数据；A=3表示新增、修改或删除数据。

在RecordSet组件中，常用的属性和方法有：

rs.Fields.Count：RecordSet对象字段数。

rs(i).Name：第i个字段的名称，i为0至rs.Fields.Count-1

rs(i)：第i个字段的数据，i为0至rs.Fields.Count-1

rs("字段名")：指定字段的数据。

rs.RecordCount：数据记录总数。

rs.EOF：是否最后一条记录。

rs.MoveFirst：指向第一条记录。

rs.MoveLast：指向最后一条记录。

rs.MovePrev：指向上一条记录。

rs.MoveNext：指向下一条记录。

rs.GetRows：将数据放入数组中。

rs.Properties.Count：ADO的ResultSet或Connection的属性个数。

rs.Properties(item).Name：ADO的ResultSet或Connection的名称。

rs.Properties：ADO的ResultSet或Connection的值。

rs.close()：关闭连接。

属性和方法分开列出

属性：

AbsolutePage属性:当RecordSet对象设有分页时，返回当前页码。

AbsolutePosition属性:当前指针的绝对位置。

ActiveConnection属性:指明进行SQL语句的数据库连接。

EOF属性:若指针位于第一条记录之前，返回TRUE、否则返回FALSE。

Bookmark属性:将指针设置在某条记录。

CursorLocation属性:设置或返回光标提供者的位置，若设为2(adUseServer)表示使用服务器端光标(默认)；若设为3(adUseClient)表示使用浏览器端光标。

CursorType属性:指出RecordSet对象中使用的光标类型

EditMode属性:返回RecordSet对象当前的编辑模式

BOF属性:若指针位于最后一条记录之后，返回TRUE、否则返回FALSE。

Filter属性:从RecordSet对象中筛选记录。

LockType属性:指定编辑过程中对记录的锁定类型。

MaxRecords属性:可以返回的最多记录条数。

PageCount属性:返回RecordSet对象的分页总数。

PageSize属性:RecordSet对象设有分页时，设置分页的记录条数。

RecordCount属性:返回RecordSet对象中记录条数。

source属性:设置用来建立RecordSet对象的SQL来源。

State属性:返回RecordSet对象的状态：1(adStateOpen)表示打开；2(adStateClosed)表示关闭。

Status属性:返回对记录的处理是否成功：1(adStatusOK)表示成功；2(adStatueErrorsOccurred)表示产生错误。

方法：

AddNew方法:为可更新的RecordSet对象创建一个新记录。

CancelBatch方法:取消批次更新。

CancelUpdate方法:取消对当前的RecordSet对象中某一个记录的任何改变，但必须在使用Update之前。

Clone方法:复制一个已存在的RecordSet对象。

Delete方法:删除RecordSet对象中当前一条记录。

MoveFirst方法:将当前指针移到RecordSet对象中的第一条记录。

MoveLast方法:将当前指针移到RecordSet对象中的最后一条记录。

MoveNext方法:将当前指针移到RecordSet对象中的当前记录的下一条记录。

MovePrevious方法:将当前指针移到RecordSet对象中的当前记录的上一条记录。

Move n方法:将当前指针移到RecordSet对象中的当前指针到第n条记录。

Open方法:打开一个RecordSet对象。

Update方法:保存对当前RecordSet对象中记录的更新。

GetRows方法:从当前记录开始取出n条记录并存于一个二维数组中。

循环得到一条记录的所有值

For Each objFld In rs.Fields

Response.Write objFld

Next

得到属性个数

rs.Fields.count

filter是过滤的函数。

首先要用setfilter函数设置过滤条件，才能用filter函数执行。

setfilter函数的参数是字符型，里面的字符串用于设置过滤的条件，例如dw_control.setfilter("emp_name = 'Tom'")，设置好过滤条件后，dw_control.filter()。两个函数配合使用。

至于返回值，返回值为整型，如果返回1，表示此函数成功执行，如果返回-1表示执行过程中出现错误。

给你个示例,下面是读取数据库中的二进制数据,并存放到指定的地方的,读取图片的,应该差不多

strSQL = "select * From CodeFile where CodeID=" &ID

Rs.Open strSQL, Conn, 1, 3

While Not Rs.EOF

FileName = Rs("FileName").Value

Str = Rs("FileContent").GetChunk(Rs("FileContent").ActualSize)

Call SaveFile(Str, App.Path &"\Tmp\" &FileName)

Rs.MoveNext

Wend

'下面是SaveFile的过程

Public Sub SaveFile(Str, fName)

Dim objstream As New ADODB.Stream

'--------------建立ADODB.Stream对象，必须要ADO 2.5以上版本---------

objstream.Type = 1

'-------------以二进制模式打开-------------------------------------

objstream.Open

'--------------------将字符串内容写入缓冲--------------------------

objstream.Write Str

'--------------------将缓冲的内容写入文件--------------------------

objstream.SaveToFile fName, 1

objstream.Close

Set objstream = Nothing

'-----------------------关闭对象，释放资源-------------------------

End Sub

---