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

hfkj 2004-11-29 02:15:01

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

...全文

141 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

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