把存储在数据库的图片导入到一个文件夹

把存储在数据库的图片导入到一个文件夹
<%
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
%>