2.8w+
社区成员
- 主页
如何将文件（Word格式或者图片）保存到Oracle数据库，分不够还可以再加再加再加加加
本人现在在做一个项目，需要将文件（Word格式或者图片等）保存到Oracle数据库，请赐源代码。分加到500也没关系。
...全文
请发表友善的回复…
发表回复
yzqb 2004-09-21
有没有搞错呀，答非所问也能拿到分！
yslcuk 2004-04-07
显示图片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
%〉
〈%
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
%〉
yslcuk 2004-04-07
图片上传处理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
%〉
〈%
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
%〉
qhf503 2004-04-07
up
AustinLei 2004-04-05
自己Ding