解决方法:

打开ks_cls/kesion.label.commoncls.asp

找到

  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