ASP 언어를 완성하면 XML 문서에 지정된 노드 텍스트를 추가, 삭제, 수정, 볼 수 있습니다. 필요한 친구가 이를 참조할 수 있습니다. 다음과 같이 코드 코드를 복사합니다.
<%
'------------------------------------------------ - --------------
'프로그램 소개 : 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>오류&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(임시)
종료 기능
'------------------------------------------------
'함수 이름: 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 =
종료 기능
%>