读取到stream里,然后直接保存到文件了。
Function saveTofile(rs,file)
Dim objstream
Set objstream = CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode = 3
objstream.Open
objstream.writebinary rs("worddata")
objStream.SaveToFile Server.MapPath(file),2
objstream.Close
Set objstream = Nothing
End Function
Function saveTofile(rs,file)
Dim objstream
Set objstream = CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode = 3
objstream.Open
objstream.writebinary rs("worddata")
objStream.SaveToFile Server.MapPath(file),2
objstream.Close
Set objstream = Nothing
End Function