请问高手关于Adodb.Stream 写入数据库的问题，怎么把稻香老农的上传程序修改成上传的文件写入数据库

[pcuser]

请问关于Adodb.Stream 写入数据库的问题，怎么把稻香老农的上传程序修改成上传的文件写入数据库
原来的Adodb.Stream写入文件的程序如下：
Public function SaveAs(FullPath)
dim dr,ErrorChar,i
SaveAs=true
if trim(fullpath)="" or FileStart=0 or FileName="" or right(fullpath,1)="/" then exit function
set dr=CreateObject("Adodb.Stream")
dr.Mode=3
dr.Type=1
dr.Open
Data_5xsoft.position=FileStart
Data_5xsoft.copyto dr,FileSize
dr.SaveToFile FullPath,2
dr.Close
set dr=nothing
SaveAs=false
end function

我把它改成
Public function SaveAs(RS)
dim dr,ErrorChar,i
SaveAs=true
if FileStart=0 or FileName="" or right(fullpath,1)="/" then exit function
set dr=CreateObject("Adodb.Stream")
dr.Mode=3
dr.Type=1
dr.Open
Data_5xsoft.position=FileStart
Data_5xsoft.copyto dr,FileSize
RS.AppendChunk dr.read
dr.Close
set dr=nothing
SaveAs=false
end function

用 file.SaveAs(rs("img"))调用。
但是写入的信息都为空呀，请问下高手什么地方出错，谢谢！
急，在线等，希望高手帮帮忙亚！

[pcuser]

另，我直接用
rs("img").AppendChunk MidB(Request.BinaryRead(Request.TotalBytes),file.FileStart,file.FileSize)
写入数据库，也是空的亚，请教高手，谢谢！

[fengfangfang]

http://topic.csdn.net/t/20010612/10/155786.html

[KimSoft]

存到数据库好象就可以不用组件了。呵呵。lyfupload里有存到数据库的方法。另：无组件的无惧上传类中也有存到数据库中的方法。

[KimSoft]

还是下载无惧上传类吧。

[笨笨兔兔兔兔兔]

dr.position=1
RS.AppendChunk dr.read

[尚和空四]

<%
Set Fields = GetUpload()

For Each Field In Fields.Items
if Field.name = "title" then title = BinaryToString(Field.value)
if Field.name = "content" then content = BinaryToString(Field.value)
if Field.name = "from" then from = BinaryToString(Field.value)

if Field.name = "file1" then
filename = field.FileName
fileContentType = field.ContentType
filevalue = field.value
end if
next

sql = "select * from fileTest"
rs.Open sql,conn,1,3
rs.addnew

if filename <> "" then
rs("filename") = filename
rs("fileType") = fileContentType
rs("fileContent").appendchunk filevalue
end if
rs.Update
rs.close
set rs = nothing
%>