<%
'------------------------------------------------ - --------------
'프로그램 소개: XML 문서에 지정된 노드 텍스트를 추가, 삭제, 수정 및 보기 위해 ASP 언어를 완성합니다.
'입력 매개변수: 없음
'내보내기 매개변수: 없음
'------------------------------------------------
'함수 이름: ConnectXml()
'입력 매개변수: filename xml 연결하거나 열 파일 이름
'내보내기 매개변수: 없음
'반환값: ConnectXml=0, XMLMorntekDocument는 XML 문서를 성공적으로 로드한 개체입니다.
'ConnectXml<>0, 그런 다음 오류 메시지 strError를 인쇄합니다.
'------------------------------------------------
희미한 XMLMorntekDocument
함수 ConnectXml(파일 이름)
희미한 strSource파일
strSourceFile = Server.MapPath(파일 이름)
XMLMorntekDocument = Server.CreateObject("Microsoft.XMLDOM") 설정
XMLMorntekDocument.async = 거짓
XMLMorntekDocument.load(strSourceFile)
ConnectXml=XMLorntekDocument.parseerror.errorcode
XMLMorntekDocument.parseerror.errorcode<>0이면
strError="<h2>error"&XMLMorntekDocument.parseerror.errorcode&"</h2>"
strError=strError&XMLMorntekDocument.parseerror.reason&"<br>"
strError=strError&XMLMorntekDocument.parseerror.url&"<br>"
strError=strError&XMLMorntekDocument.parseerror.line&"<br>"
strError=strError&XMLMorntekDocument.parseerror.filepos&"<br>"
strError=strError&XMLMorntekDocument.parseerror.srcText&"<br>"
response.write strError
종료하면
종료 기능
'---------------------------------- -- -
'함수 이름: CloseXml()
'입력 매개변수: 없음
'내보내기 매개변수: 없음
'------------------------------------------------
함수 CloseXml(XMLorntekDocument)
IsObject(XMLMorntekDocument)인 경우
XMLMorntekDocument=아무것도 설정하지 않음
종료하면
함수 종료
'------------------------------------------------
'함수 이름: SelectXmlNodeText(요소 이름)
'항목 매개변수: elementname 요소의 이름
'내보내기 매개변수: 없음
'------------------------------------------------
함수 SelectXmlNodeText(요소 이름)
요소 이름="//"&요소 이름
temp=XMLMorntekDocument.selectSingleNode(요소 이름).text
selectXmlNodeText= server.htmlencode(temp)
종료 함수
'---------------------------- ----------
'함수 이름: InsertXmlNodeText(befelementname,elementname,elementtext)
'항목 매개변수: elementname 삽입된 요소의 이름
' befelementname은 이 요소의 이름 앞에 요소를 삽입합니다.
'elementtext 삽입된 요소의 텍스트
'내보내기 매개변수: 없음
'------------------------------------------------
함수 InsertXmlNodeText(bef요소 이름,요소 이름,요소 텍스트)
희미한 요소,요소
set befelement=XMLMorntekDocument.selectSingleNode("//"&befelementname)
요소 설정= XMLMorntekDocument.createelement(요소 이름)
befelement.insert요소 앞에,befelement.firstchild
element.text=요소텍스트
종료 기능
'---------------------------------- -- -
'함수 이름: UpdateXmlNodeText(elementname,newelementtext)
'항목 매개변수: elementname 요소의 이름
' newelementtext 요소의 새 텍스트
'내보내기 매개변수: 없음
'------------------------------------------------
함수 UpdateXmlNodeText(요소 이름,새 요소 텍스트)
희미한 요소
요소 설정=XMLMorntekDocument.selectSingleNode("//"&요소 이름)
element.text=newelementtext
종료 기능
'---------------------------------- -- -
'함수 이름: DeleteXmlNodeText(요소 이름)
'항목 매개변수: elementname 요소의 이름
'내보내기 매개변수: 없음
'------------------------------------------------
함수 DeleteXmlNodeText(요소 이름)
XMLMorntekDocument.selectSingleNode("//"&요소 이름).text =""
함수 종료
%>