已经在我的机器上成功运行:在ie中打开word文件 SqlCommand1.CommandText = "select f from table1 where (id=7)" Dim sqlr As SqlClient.SqlDataReader Dim fs As System.IO.Stream Dim cs() As Byte fs = Response.OutputStream() SqlCn.Open() sqlr = SqlCommand1.ExecuteReader If sqlr.Read Then Response.ContentType = "Application/msword" 'Response.Clear() cs = sqlr("f") sqlr.GetBytes(0, 0, cs, 0, UBound(cs)) fs.Write(cs, 0, UBound(cs)) fs.Close() End If sqlr.Close() SqlCn.Close()
SqlCommand1.CommandText = "select f from table1 where (id=7)"
Dim sqlr As SqlClient.SqlDataReader
Dim fs As System.IO.Stream
Dim cs() As Byte
fs = Response.OutputStream()
SqlCn.Open()
sqlr = SqlCommand1.ExecuteReader
If sqlr.Read Then
Response.ContentType = "Application/msword"
'Response.Clear()
cs = sqlr("f")
sqlr.GetBytes(0, 0, cs, 0, UBound(cs))
fs.Write(cs, 0, UBound(cs))
fs.Close()
End If
sqlr.Close()
SqlCn.Close()