코드 사본은 다음과 같습니다.
'기능 이름 : readTextFile
'기능 : adodb.stream 객체를 사용하여 UTF-8 형식 텍스트 파일을 읽습니다.
'----------------------------------------------------
functionfromTextFile (fileUrl, charset)
iffileurl = ""Orisnull (FileUrl)
readfromTextFile = ""
종료 기능
endif
ifnotflib.isreallypath (fileurl)
fileUrl = server.mappath (fileUrl)
endif
Dimstr, stm
setstm = server.createobject ( "adodb.stream")
stm.type = 2 '이 모드에서 읽으십시오
stm.mode = 3
STM.CHARSET = CharSet
STM. OPEN
stm.loadfromfilefileurl
str = stm.ReadText
stm.close
setstm = 아무것도
readfromTextFile = str
최종 기능 장애
'----------------------------------------------------------------
'함수 이름 : writeToTextFile
'기능 : adodb.stream 객체를 사용하여 utf-8 형식으로 텍스트 파일을 작성하십시오.
'----------------------------------------------------
functionWritetOtextFile (FileUrl, ByValstr, charset)
iffileurl = ""Orisnull (FileUrl)
writeToTextFile = ""
종료 기능
endif
ifnotflib.isreallypath (fileurl)
fileUrl = server.mappath (fileUrl)
endif
희미한
setstm = server.createobject ( "adodb.stream")