asp 写文件乱码

asp 写文件函数简单汇总：

 

 

 

 Function WriteFile(fname, ftext)
  Dim  fso,ts
  Set fso = CreateObject("Scripting.FileSystemObject")
  If fso.FileExists(fname) Then
     fso.deleteFile(fname)
  End If
  Set ts = fso.CreateTextFile(fname, True)
  ts.Write ftext
  ts.Close
  WriteLog 0, "生成文件:" & fname & " (" & Len(ftext) & "字节)"
  Set ts =nothing
  Set fso =nothing
End Function

 

 

'输出日志 参数:错误代码,错误文本
Sub WriteLog(errcode, msg)
  Dim fn, f
  Set fso = CreateObject("Scripting.FileSystemObject")
  fn = CStr(Year(Now())) & Right("0" & CStr(Month(Now())),2) & Right("0" & CStr(Day(Now())),2) & ".log"
  fn = cfg_LogPath + fn
  Set f = fso.OpenTextFile(fn, 8, true, 0)
  f.WriteLine FormatDateTime(Now()) & " " & CStr(errcode) & Chr(9) & msg
  f.Close
End Sub

Function WriteToUTF(content,fname)

  Dim  fso,objStream
  Set fso = CreateObject("Scripting.FileSystemObject")
  If fso.FileExists(fname) Then
     fso.deleteFile(fname)
  End If
  Set fso =nothing

  Set objStream = CreateObject("ADODB.Stream")
    objStream.Open
    objStream.Charset   = "utf-8"
    objStream.Position  = objStream.Size
    objStream.WriteText = content
    objStream.SaveToFile fname,2
    objStream.Close
    WriteLog 0, "生成文件:" & fname & " (" & Len(content) & "字节)"
  Set objStream = Nothing

End Function