'*********************************************************************************************************

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