如何将数据库中的二进制数据读成文件？

[zorou_fatal]

如题，还望大家不吝赐教。

[hchxxzx]

<%
'从数据库中将二进制文件导出到硬盘上
dim conn, rs

Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "dsn=hch_test;uid=hch;pwd=hch;"

set rs = cn.execute("SELECT mc,doc FROM z_aqxpj_cj_doc WHERE id = '31120020328083632'")

dim stream
set stream = server.createObject("adodb.stream")
'参数为1以二进制类型模式打开
stream.type = 1
stream.open
stream.write rs("doc")
'参数为1，不覆盖，2覆盖
mc=rs("mc")
stream.saveToFile "d:\jyjj\test\files\"&mc, 2
stream.close

rs.close
set rs=nothing
set cn=nothing

response.redirect "files/"&mc
%>