A function of ASP to create a text file

'=============================================================
' Procedure name: Createdtextfile
' Function: Create a text file
' parameter: filename----filename
' Body----main content
'=============================================================
Public Function createdtextfile (ByVal filename,byval)
On Error Resume Next
Dim F,sname
filename = replace (replace (FileName, "/", "\"), "\", "\"
If InStr (filename, ":") = 0 Then filename = server.mappath (filename)
Sname=mid (Filename,instrrev (filename, "\") +1,len (filename)
If InStr (Sname, ".") =0 Then filename = filename & "\index.html"
If mainsetting (7) = "0" Then
Set f = fso. CreateTextFile (Filename,true, False)
F.write body
F.close
Set F = Nothing
Else
If mainsetting (7) = "2" Then
newaspstream.charset= "UTF-8"
ElseIf mainsetting (7) = "3" Then
newaspstream.charset= "BIG5"
Else
newaspstream.charset= "GB2312"
End If
Newaspstream.type = 2 ' Set content as text
Newaspstream.mode = 3 ' set to readable and writable
Newaspstream.open ()
Newaspstream.writetext (body)
Newaspstream.savetofile filename,2
Newaspstream.flush
Newaspstream.close ()
End If
If err.number <> 0 Then Err.Clear
End Function