遍历文件夹，保存子文件夹中的所有图片的二进制信息到数据库

自己写了一个，问题在于 入库的图片信息 ，读取出来的图片完全乱码，无法显示。
特别求教 入库 与读取显示在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)
...


就是这些了，最后输出的图片是全是一些乱码信息！
到底错误在哪？