遍历文件夹，保存子文件夹中的所有图片的二进制信息到数据库
自己写了一个，问题在于 入库的图片信息 ，读取出来的图片完全乱码，无法显示。
特别求教 入库 与读取显示在IE的 代码！ 我不想用formsize=request.totalbytes 这种方法，需求是遍历文件夹的
=================================我的代码是：
'读取图片二进制信息
function readpic(ByVal rfile)
set rsm = server.CreateObject("adodb.stream")
with rsm
.type = 1 '二进制
.mode = 3 '只读
.open
.loadfromfile server.MapPath(rfile)
readpic = .read
.close
end with
end functio
'调用
pic = readpic("图片路径")
'入库
...'打开rs
rs("pic").appendchunk pic
rs.update
...
'读取并显示图片在IE
...'打开rs
response.ContentType = "image/*"
response.BinaryWrite rs("pic").getChunk(7500000)
...
就是这些了，最后输出的图片是全是一些乱码信息！
到底错误在哪？