asp中读取数据库中保存的图片存入硬盘

读取到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