求一函数如何将一张图片转成二进制流存进数据库？？
比如我有一张图片　a.gif
如何将这张图片转成二进制，最好有一个函数直接将图片转成二进制流，请高手门帮帮忙～谢谢了

------解决方案--------------------
fso 不能读取二进制吧, 嘻嘻...

<%
private function fGetBn(byval sFlPh, byval bCov)
if bCov then sFlPh=Server.MapPath(sFlPh)
dim oStm
set oStm=createObject( "adodb.stream ")
with oStm
.Type=1
.Mode=3
.Open
.LoadFromFile(sFlPh)
.Position=0
fGetBn=.Read()
.Close
end with
set oStm=nothing
end function 'fGetBn shawl.qiu code '

dim bnFl
bnFl=fGetBn( "t1.jpg ", true)
Response.binaryWrite(bnFl)
%>