ADODB.Stream
错误 '800a0bbc'

写入文件失败。

E:\WEB\52WSH-X\52WSHDMIN\INCLUDE\../../KS_Cls/Kesion.Label.CommonCls.asp，行 1040

刚开始觉得怕是没有给写入权限

测试的时候，所有文件给写入权限还是不行。。。

  '*********************************************************************************************************

  '函数名：FSOSaveFile

  '作  用：生成文件

  '参  数： Content内容,路径 注意虚拟目录

  '*********************************************************************************************************

  Sub FSOSaveFile(Content, FileName)

   dim stm:set stm=server.CreateObject("adodb.stream")

   stm.Type=2 '以文本模式读取

   stm.mode=3

   stm.charset="gb2312"

   stm.open

   stm.WriteText content

   stm.SaveToFile server.MapPath(FileName),2

这里出错

求高手指点。。。