'*********************************************************************************************************
  '函数名：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