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

 1   
 2'从数据库中将二进制文件导出到硬盘上   
 3dim conn, rs   
 4  
 5Set cn = Server.CreateObject("ADODB.Connection")   
 6cn.Open "dsn=hch_test;uid=hch;pwd=hch;"   
 7  
 8set rs = cn.execute("SELECT mc,doc FROM z_aqxpj_cj_doc WHERE id = '31120020328083632'")   
 9  
10dim stream   
11set stream = server.createObject("adodb.stream")   
12'参数为1以二进制类型模式打开   
13stream.type = 1   
14stream.open   
15stream.write rs("doc")   
16'参数为1，不覆盖，2覆盖   
17mc=rs("mc")   
18stream.saveToFile "d:\jyjj\test\files\"&mc, 2   
19stream.close   
20  
21rs.close   
22set rs=nothing   
23set cn=nothing   
24  
25response.redirect "files/"&mc