账号通
    

账号  

密码  

6529

查看

8

回复
主题:7.0在生成栏目时,出现错误800a0bbc 写入文件失败 [收藏主题] 转到:  
todaynet 当前离线

159

主题

0

广播

0

粉丝
添加关注
级别:一年级

用户积分:1626 分
登录次数:103 次
注册时间:2007/8/29
最后登录:2011/3/4
todaynet 发表于:2010/12/4 14:03:19   | 显示全部帖子 查看该作者主题 楼主 
ADODB.Stream 错误 '800a0bbc' 写入文件失败。

F:\KESIONESHOPV7.0 FREE\ADMIN\INCLUDE\../../KS_Cls/Kesion.Label.CommonCls.asp,行 815

这个情况只是在生成其中一个栏目时出现,

生成其它栏目并没出现。

我是windows server 2003平台。

----------------------------------------------

之前搜索,看到过一个帖子有类似的情况,但是解决方法是以前版本的,尝试操作后也不行。

这是以前的解决方法:

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,1) '创建文件

   FileObj.Write Content

   FileObj.Close     '释放对象

   Set FileObj = Nothing:Set FSO = Nothing

  End Sub

 
  支持(4) | 反对(5) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.07898秒 powered by KesionCMS 9.0