Custom encoding format for reading/writing files using ASP

<%
'-------------------------------------------------
'Function name: readtextfile
'Purpose: Use the ADODB. Stream object to read text files in UTF-8 format
'----------------------------------------------------
Function readfromtextfile (fileurl, charset)
Dim Str
Set STM = server. Createobject ("ADODB. Stream ")
STM. type = 2' read in this mode
STM. mode = 3
STM. charset = charset
STM. Open
STM. loadfromfile server. mappath (fileurl)
STR = STM. readtext
STM. Close
Set STM = nothing
Readfromtextfile = Str
End Function
'-------------------------------------------------
'Function name: writetotextfile
'Purpose: Use the ADODB. Stream object to write text files in UTF-8 format
'----------------------------------------------------
Sub writetotextfile (fileurl, byval STR, charset)
Set STM = server. Createobject ("ADODB. Stream ")
STM. type = 2' read in this mode
STM. mode = 3
STM. charset = charset
STM. Open
STM. writetext Str
STM. savetofile server. mappath (fileurl), 2
STM. Flush
STM. Close
Set STM = nothing
End sub
%>
Writetotextfile server. mappath ("zspk/jxsz.html"), request. Form ("jxsz"), "UTF-8 ")

Hdxz = readtxtfile (server. mappath ("zspk/hdxz.html"), "UTF-8 ")
Jxsz = readtxtfile (server. mappath ("zspk/jxsz.html"), "UTF-8 ")