'파일 콘텐츠 읽기.
코드 사본은 다음과 같습니다.
functionloadfile (byvalfile)
Dimobjstream
onerrorresumenext
setobjstream = server.createobject ( "adodb.stream")
iferr.number = -2147221005then
response.write "<divalign = 'center'> 슬프게도 호스트는 adodb.stream을 지원하지 않으며이 프로그램을 사용할 수 없습니다 </div>"
err.clear
응답. 엔드
endif
bjstream없이
.type = 2
. 모드 = 3
.열려 있는
.LOADFROMFILESERVER.MAPPATH (파일)
iferr.number <> 0then
response.write "<divalign = 'center'> file <fontcolor = '#ff0000'>"& file & "</font>를 열 수 없습니다. 존재하는지 확인하십시오! </font> </div>"
err.clear
응답. 엔드
endif
.charset = "GB2312"
.Position = 2
loadFile = .ReadText
.닫다
끝
setobjstream = 아무것도
최종 기능 장애
'스토리지 컨텐츠 파일
코드 사본은 다음과 같습니다.
subsavetofile (byvalstbody, byvalfile)
Dimobjstream
onerrorresumenext
setobjstream = server.createobject ( "adodb.stream")
iferr.number = -2147221005then
response.write "<divalign = 'center'> 슬프게도 호스트는 adodb.stream을 지원하지 않으며이 프로그램을 사용할 수 없습니다 </div>"
err.clear
응답. 엔드
endif
bjstream없이
.type = 2
.열려 있는
.charset = "GB2312"
.Position = objstream.size
.WriteText = strbody
.Savetofileserver.mappath (파일), 2
.닫다
끝
setobjstream = 아무것도
Endsub
전화 예제
코드 사본은 다음과 같습니다.
<%
writefile "aaa.txt", "www.vevb.com", "UTF-8"
response.write readfile ( "aaa.txt", "utf-8")
%>