通过文件流的方式阿, Dim intDisplayWord As Integer intDisplayWord = dstMemoryArticle.Tables(0).Rows(0)("Article_content").Length Dim bytBuffer(intDisplayWord) As Byte bytBuffer = dstMemoryArticle.Tables(0).Rows(0)("Article_content") Me.Response.ContentType = "application/msword" Me.Response.BinaryWrite(bytBuffer) Me.Response.End()
Dim intDisplayWord As Integer
intDisplayWord = dstMemoryArticle.Tables(0).Rows(0)("Article_content").Length
Dim bytBuffer(intDisplayWord) As Byte
bytBuffer = dstMemoryArticle.Tables(0).Rows(0)("Article_content")
Me.Response.ContentType = "application/msword"
Me.Response.BinaryWrite(bytBuffer)
Me.Response.End()