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

hfkj 2004-11-29 02:15:01

如题
望各位英才帮忙！！！

...全文

101 点赞收藏 12

写回复

12 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

hfkj 2004-11-29

谢了
结贴

回复赞

ebbc 2004-11-29

能一次就给个完整的代码吗？我弄了老是出错。郁闷

回复赞

jianlei2002 2004-11-29

回复赞

lienzhu 2004-11-29

我的可以了，贴代码：


<%
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图片

回复赞

好记忆不如烂笔头abc 2004-11-29

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
....
'不过提示意外错误

回复赞

好记忆不如烂笔头abc 2004-11-29

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

<%
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

回复赞