<%
'filename="aspreadstream.asp"
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open SQLString,ConnectionObject,1
'rs 是一个结果集,就是赍数据库中取出二进制流的结果
If rs.eof Then
Response.write"提示:没有相关内容"
Response.end
End if
response.contenttype = "Application/msword"
do while not rs.eof
content=rs("content")
Response.binarywrite content
rs.movenext
loop
rs.close
%>