오늘, 검색 바에서 UTF-8 프로그램을 수정할 때 생성 된 UTF-8 형식 문서가 코드를 잡았고 원본 파일이
create_html.asp의 코드는 다음과 같습니다.
코드 사본은 다음과 같습니다.
<%@language = "vbscript"CodePage = "65001"%>
<%
setobjrs = server.createObject ( "scripting.filesystemobject")
conn = server.mappath ( "example.xml")
setstream = objrs.opentextfile (Conn, 1, True, -2)
content = stream.readall
Response.Write (콘텐츠)
stream.close
%>
이 코드를 구현할 수있는 함수는 다음과 같습니다. example.xml (UTF-8 형식)에서 중국어를 포함한 텍스트를 읽은 다음 출력이 나올 때마다 출력을 출력하십시오. 이 문제는 오랫동안 나를 괴롭 혔습니다. 나중에 클래식 포럼 "Xiao Han"및 "Xiao Xiaoyu"의 도움으로 해결되었습니다. 그들에게 감사합니다.
어쩌면 처음에는 잘못되었지만 이제는 "Xiao Xiaoyu"가 제공 한 코드를 사용하여 읽기 컨텐츠를 사용하여 새로운 UTF-8 형식 문서를 생성하는 것을 포함하여 올바른 코드가 다음과 같이 수정되었습니다. 자세한 코드는 다음과 같습니다.
코드 사본은 다음과 같습니다.
<%@language = "vbscript"CodePage = "65001"%>
<%response.codepage = 65001%>
<%response.charset = "utf-8"%>
<%
'변수 선언
dimread_path, write_paht, 내용
'----Read the file content--------------------------------------------------------------------------------------------------------------------
functionReadTextFile (Filepath, Charset)
희미한
setstm = server.createobject ( "adodb.stream")
stm.type = 1'adtypebinary, 이진 데이터에 따라 읽으십시오
stm.mode = 3'AdmodeReadWrite, 여기에서 3 개만 사용하여 다른 사람을 사용하여 오류를 일으킬 수 있습니다.
STM. OPEN
stm.loadfromfilefilepath
stm.Position = 0' '포인터를 시작점으로 되돌립니다
stm.type = 2'text 데이터
STM.CHARSET = CharSet
readTextFile = stm.ReadText
stm.close
setstm = 아무것도
최종 기능 장애
'--- 파일에 쓰기 -----------------------------
subwritetextFile (Filepath, FileContent, Charset)
희미한
setstm = server.createobject ( "adodb.stream")
stm.type = 2'adtypetext, 텍스트 데이터
stm.mode = 3'AdmodeReadWrite, 읽기 및 쓰기,이 매개 변수가 2를 사용하면 오류가 발생합니다.