ASP를 사용하여 xml 파일을 생성합니다. 처음에는 쓰기만 사용하는 fso를 사용했습니다. 동시에 파일을 읽는 방법도 제공했습니다.
키워드 문제로 인한 ASP 쿼리 XML
'------------------------------------------------ - ----
'파일 읽기ReadTxtFile(파일 이름)
'------------------------------------------------ - ----
함수 ReadTxtFile(파일 이름)
희미한 fso,f1,ts,FilePath
FilePath=server.mappath(파일 이름)
fso = CreateObject(Scripting.FileSystemObject) 설정
ts = fso.OpenTextFile(파일 경로,1,1) 설정
ReadTxtFile = ts.ReadAll
설정=아무것도 없음
fso=아무것도 설정하지 않음
기능 종료
'------------------------------------------------ - ---------
'파일에 정보 쓰기
'------------------------------------------------ - ---------
함수 WriteTxtFile(텍스트,파일 이름)
경로=Server.MapPath(파일 이름)
fso = CreateObject(Scripting.FileSystemObject) 설정
f1 = fso.CreateTextFile(경로,true) 설정
f1.쓰기(텍스트)
f1.닫기
기능 종료
'------------------------------------------------ - ---------
'xml 파일 생성
'------------------------------------------------ - ---------
msg = <?xml 버전=1.0 인코딩=utf-8?>
msg=msg & <브캐스터>
msg=msg & <item item_url=http://www.vevb.com itemtitle=스크립트 홈/>
msg=msg & </bcast>
WriteTxtFile(msg,x1.xml)을 호출합니다.
fso는 기본적으로 ascii로 인코딩됩니다. utf-8 인코딩을 사용해야 하기 때문에 ado.stream을 사용하여 이 파일을 작성합니다. 코드는 다음과 같습니다.
하위 CreateFile(텍스트,파일 이름)
희미한 거리
st=Server.CreateObject(ADODB.Stream) 설정
st.유형=2
st.모드=3
st.Charset=utf-8
st.Open()
st.WriteText 텍스트
st.SaveToFile Server.MapPath(파일 이름),2
st.닫기()
st=아무것도 설정하지 않음
서브 끝
msg = <?xml 버전=1.0 인코딩=utf-8?>
msg=msg & <브캐스터>
msg=msg & <item item_url=http://www.vevb.com itemtitle=스크립트 홈/>
msg=msg & </bcast>
CreateFile(msg,x1.xml)을 호출합니다.