Sub fso_write(ByVal fpath, ByVal ftext)  
  On Error Resume Next
  Dim fso, fout  
  Set fso = Server.CreateObject("Scripting.FileSystemObject")  
  'Set fout = fso.CreateTextFile(Server.MapPath(fpath))  
  Set fout = fso.CreateTextFile(Server.MapPath(fpath), True, true) 'CreateTextFile（Filename,overwrite,unicode）overwrite：表示是否可覆盖，逻辑型默认假  unicode：是否为双字节的统一码，逻辑型默认假为ASCII   
  fout.write ftext  
  fout.Close  
  Set fout = Nothing
  Set fso = Nothing  
  If Err Then
    Call client_alert("创建文件失败,可能是您的服务器不支持FSO权限而导致的!", "?type=manage")  
  End If
End Sub