如何将文件（Word格式或者图片）保存到Oracle数据库，分不够还可以再加再加再加加加

[AustinLei]

本人现在在做一个项目，需要将文件（Word格式或者图片等）保存到Oracle数据库，请赐源代码。分加到500也没关系。

[AustinLei]

自己Ding

[qhf503]

up

[yslcuk]

图片上传处理processimg.asp文件代码:
　〈%

　　Response.Buffer=True

　　ImageSize=Request.TotalBytes ‘获取提交数据量的总字节数

　　ImageData=Request.BinaryRead(ImageSize) ‘保存从客户端读取到的数据

　　‘优化读取到的二进制数据

　　BnCrLf=chrB(13)&chr(10)

　　Divider=LeftB(ImageData,Clng(InstrB(ImageData, BnCrLf))-1)

　　Dstart=InstrB(ImageData, BnCrLf& BnCrLf)+4

　　Dend=InstrB(Dstart+1, ImageData, Divider)- Dstart

　　MyData=MidB(ImageData, Dstart, Dend)

　　‘创建对象实例

　　Set imgConn=Server.CreateObject(“ADODB.Connection”)

　　StrConn=”Driver={SQL Server};Server=ServerName;”& _

“Uid=xxxx;Pwd=xxxx;DataBase=DataBaseName”

　　imgConn.open strConn

　　Set Rs= Server.CreateObject(“ADODB.RecordSet”)

　　Sql=”Select * From img Where id is null”
　
　　Rs.open sql,imgConn,1,3

　　‘追加数据到数据库

　　Rs.AddNew

　　Rs(“img”).AppendChunk myData

　　Rs.Update

　　‘关闭和释放对象

　　Rs.close

　　ImgConn.close

　　Set Rs=Nothing

　　Set ImgConn=Nothing

　　%〉

[yslcuk]

显示图片ShowImg.asp:
〈%

　　Response.Expires = 0

　　Response.buffer=True

　　Response.clear

　　‘创建对象实例

　　Set imgConn=Server.CreateObject(“ADODB.Connection”)

　　StrConn=”Driver={SQL Server};Server=ServerName;”& _

“Uid=xxxx;Pwd=xxxx;DataBase=DataBaseName”

　　imgConn.open strConn

　　Set Rs= Server.CreateObject(“ADODB.RecordSet”)

　　Sql=”Select img From img Where id=1” 这里的id可以使用Request(“id”)获得

　　Rs.open sql,imgConn,1,1

　　Response.ContentType=”image/*”

　　Response.BinaryWrite Rs.(“img”).GetChunk(7500000)

　　‘关闭和释放对象

　　Rs.close

　　ImgConn.close

　　Set Rs=Nothing

　　Set ImgConn=Nothing

　　%〉

[yzqb]

有没有搞错呀，答非所问也能拿到分！