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