--------以二进制模式打开-------------------------------------
objStream.Open
objstream.write str
''--------------------将字符串内容写入缓冲--------------------------
''response.Write fname
objstream.SaveToFile "c:\inetpub\myweb\uploadfile\cache\" & fName,adSaveCreateOverWrite
''--------------------将缓冲的内容写入文件--------------------------
''response.BinaryWrite objstream.Read
objstream.Close()
set objstream = nothing
''-----------------------关闭对象,释放资源-------------------------
''response.Write err.Description
End sub
%>