Asp adodb. Stream reads and writes files

File Read operations:

'-------------------------------------------------
'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
 

File write operations:

'-------------------------------------------------
'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
 

Create a config. asp file

Call writetotextfile ("config. asp", "http://www.cnit618.com", "UTF-8 ")

Http://www.cnit618.com/html/fwdkf/asp/2056.htm