asp 写文件乱码

最新推荐文章于 2023-12-14 10:40:41 发布

原创最新推荐文章于 2023-12-14 10:40:41 发布 · 965 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#asp #function

asp 专栏收录该内容

2 篇文章

订阅专栏

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