ADODB.Stream 800a0bbc 写文件2次，运行不稳定与磁盘转速有关？？？

以下是代码
--------------------------
set stm=server.CreateObject("adodb.stream")
stm.Type=2
stm.mode=3
stm.charset="gb2312"
stm.open
stm.WriteText "a"
stm.SaveToFile server.MapPath("1.html"),2
stm.flush
stm.Close
set stm=nothing

set stm=server.CreateObject("adodb.stream")
stm.Type=2
stm.mode=3
stm.charset="gb2312"
stm.open
stm.WriteText "b"
stm.SaveToFile server.MapPath("1.html"),2
stm.flush
stm.Close
set stm=nothing
-------------------

当我传到有些服务器上的时候，刷新页面以后有时正常，有时报错。

http://sub2.morricone.cn/eb/engblog30/Process/test.asp

ADODB.Stream 错误 '800a0bbc'
写入文件失败。
/eb/engblog30/Process/test.asp，行 30

而在这个服务上时 ASP: adodb.stream怎么用? 关于adodb.stream的问题 adodb.stream 中 position 属性的用法？ 如何检测adodb.stream组件被关闭 无法建立adodb.stream对象是什么原因 求关于Adodb.Stream的详解! 恶意程序Exploit.JS.ADODB.Stream.ab 恶意程序 Exploit.JS.ADODB.Stream.m ADODB.Stream (0x800A0BBA)错误，帮忙看看 adodb.stream 问题 高分求救 在线等