如何把原来存储在数据库的图片导入一个文件夹内!!!!!!!!!!!!!????????????????

hfkj 2004-11-29 02:15:01
如题
望各位英才帮忙!!!
...全文
101 点赞 收藏 12
写回复
12 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
hfkj 2004-11-29
谢了
结贴
回复
ebbc 2004-11-29
能一次就给个完整的代码吗?我弄了老是出错。郁闷
回复
jianlei2002 2004-11-29
up
回复
lienzhu 2004-11-29
我的可以了,贴代码:

<!--#include file="conn.asp" -->
<%
set rs=conn.execute("select * from youtable")
Set oFileStream = CreateObject ("ADODB.Stream")
oFileStream.Type = 1
set id=rs("id")
set photo=rs("photo")
do while rs.eof=false
oFileStream.Open
oFileStream.Write photo.value
oFileStream.SaveToFile "d:\photo"& id &".jpg",2
oFileStream.close
rs.movenext
loop
set oFileStream=nothing
set photo=nothing
set id=nothing
rs.close
set rs=nothing
%>
回复
lienzhu 2004-11-29
是啊,里面存的jpg图片
回复
Rs("filedata")是你存储二进制的字段
回复
lienzhu 2004-11-29
....
Set MyStream=Server.CreateObject("Adodb.Stream")
MyStream.Type = 1
While Not Rs.EOF
filename=Rs("filename")
MyStream.Open
MyStream.Write Rs("filedata").GetChunk(Rs("filedata").ActualSize-78)
On error resume next
MyStream.SaveToFile "D:\文件目录\" & filename
Rs.MoveNext
MyStream.close
Wend
Set MyStream=nothing
....
'不过提示意外错误

回复
根据您的情况修改一下数据库链接。

<%
Dim Conn,ConnStr,Rs,Sql,MyStream

ConnStr="DBQ=" + Server.Mappath("数据库.mdb") + ";DRIVER={Microsoft Access Driver (*.mdb)};"

Set Conn = Server.CreateObject("Adodb.Connection")

Conn.Open ConnStr

Sql = "select * from filetable"

Set Rs = Server.CreateObject("Adodb.RecordSet")

Rs.Open Sql,Conn,1,3
While Not Rs.EOF
filename=Rs("filename")
Set MyStream=Server.CreateObject("Adodb.Stream")

MyStream.Type = 1

MyStream.Open

MyStream.Write Rs("filedata").GetChunk(Rs("filedata").ActualSize-78)
On error resume next
MyStream.SaveToFile "D:\文件目录\" & filename
Rs.MoveNext
Wend
Rs.Close

Set Rs = Nothing

Conn.Close

Set Conn = Nothing
%>
回复
hfkj 2004-11-29
?????????????????????????
回复
hfkj 2004-11-29
代码????????
look
回复
可以把图片从数据库导出在写到磁盘文件。
看看FSO的资料吧
回复
patchclass 2004-11-29
用fso二进制数据流写图片,其他的方法和数据库读图片都一样,定义http头之类的
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-11-29 02:15
社区公告
暂无公告