OK了,UTF-8版在True后面再加一个“,1”就可以了
在用V6 UTF-8版本生成首页时,经常出现如下错误
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
这样即可