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

AustinLei 2004-04-03 12:07:46
本人现在在做一个项目,需要将文件(Word格式或者图片等)保存到Oracle数据库,请赐源代码。分加到500也没关系。
...全文
62 点赞 收藏 5
写回复
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
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

  %〉
回复
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

  %〉
回复
qhf503 2004-04-07
up
回复
AustinLei 2004-04-05
自己Ding
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告