我把分数都给你们了如何把sqlserver中的二进制文件输出到目录中

[yuanxy]

我把.mht文件用二进制的形式写入text类型的字段中

把想把他读出并形式文件。

请问高手这个功能如何实现？

[leiaming]

response.write binary（rs("var")）

[leiaming]

上面写错了：
Response.BinaryWrite rs("var")

[yuanxy]

我的意思是说保存为一个.mht的文件

[awaysrain]

用Adodb.Stream
看这个帖子
http://expert.csdn.net/Expert/topic/2433/2433147.xml?temp=.725567

[yuanxy]

这个贴子的文章我看过，它只可以保存为gif或jpg文件
不能保存mht文件。

当win2000打了sp4补丁的时候Response.BinaryWrite会报错，说“产生安全性问题”
后来一查才知道原来是黑客制作带有功击代码的.htm并把他保存为.mht骗过浏览器执行。

[awaysrain]

理论是一样的啊，自动动手搞搞不是更有成就感吗？

[yuanxy]

自己动过手不过老是说类型不对

[awaysrain]

我这样在ACCESS中成功了，手头没有SQL SERVER

<!-- #include file='conn.asp' -->
<%
sql = "select * from test where id=3"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
i =0
Set mstream=Server.CreateObject("Adodb.Stream")
mstream.Type = 1
mstream.Open
mstream.Write rs("img").GetChunk(rs("img").ActualSize-78)
mstream.SaveToFile "c:\test.mht"

%>

[yuanxy]

to awaysrain(绝对零度)

你真热心为什么我每次运行都提示

ADODB.Stream 错误 '800a0bb9'

参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。

<%
set conn=Server.CreateObject("ADODB.Connection")
set rs=server.createobject("adodb.recordset")
conn.Open Application("strConn")

sql = "select * from aa where data_id=312"
rs.open sql,conn,1,3
Set mstream=Server.CreateObject("Adodb.Stream")
mstream.Type=1
mstream.Open
mstream.Write rs("Content").GetChunk(rs("Content").ActualSize)
mstream.SaveToFile "c:\test.mht"
%>

[yuanxy]

up

[DeltaCat]

<%
set conn=Server.CreateObject("ADODB.Connection")
set rs=server.createobject("adodb.recordset")
conn.Open Application("strConn")

sql = "select * from aa where data_id=312"
rs.open sql,conn,1,3
Set mstream=Server.CreateObject("Adodb.Stream")
mstream.Type=1
mstream.Mode = 3
mstream.Open
mstream.Write rs("Content")
mstream.SaveToFile Server.Mappath("test.mht")
mstream.close
set mstream = nothing
%>

[DeltaCat]

也可能会有一点问题，因为我看到你是存在 TEXT 类型里？
TEXT 不是 二进制的类型

BINARY，IMAGE 在 SQL SERVER中才是

[yuanxy]

mstream.SaveToFile Server.Mappath("test.mht")
已经有了test.mht多次操作就会出现读写错误。

怎样实现像fso对象一样可以再次写入并且不用删除原文件。