科汛V6 生成操作时有出错的修改方法

部分网友反应在在用V6 gbk版本生成首页时，经常出现如下错误

ADODB.Stream 错误 '800a0bbc'

写入文件失败。

../KS_Cls/Kesion.Label.CommonCls.asp，行 566

经过我们的分析V6将生成方式改成ADODB.Stream生成,这个可能你生成的文件刚好有人在访问时,可以出现上面情况，解决方法

打开ks_cls/kesion.label.commoncls.asp

找到以下代码,并改成以前V5的生成方式

  '*********************************************************************************************************
  '函数名：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
   stm.flush
   stm.Close
   set stm=nothing
  End Sub

改成

  Sub FSOSaveFile(Content, LocalFileName)
   Dim FSO, FileObj
   Set FSO = KS.InitialObject(KS.Setting(99))
   Set FileObj = FSO.CreateTextFile(Server.MapPath(LocalFileName), True) '创建文件
   FileObj.Write Content
   FileObj.Close     '释放对象
   Set FileObj = Nothing:Set FSO = Nothing
  End Sub

这样即可