ch7-8.asp

《XML语言及应用》作者华铨平—examples

<% @ language="vbscript"%>
<%
   Dim xmlDoc,pi 
   set xmldoc=server.createObject("MSXML.DOMDocument")
xmlDoc.async = False
'创建文档的跟元素
set root=xmlDoc.createElement("studentlist")
		  xmldoc.documentElement=root
If (xmlDoc.parseError.errorCode <> 0) Then
   Dim myErr
   Set myErr = xmlDoc.parseError
   MsgBox("出错啦！" & myErr.reason)
Else
   '为文档添加处理指令
   Set pi = xmlDoc.createProcessingInstruction("xml", "version='1.0' encoding='GB2312'")
   xmlDoc.insertBefore pi, xmlDoc.childNodes.Item(0)
   '为文档添加子元素
   root.appendChild(xmldoc.createElement("学生"))
   set xuesheng=xmldoc.selectSingleNode("/studentlist/学生")
   '为子元素添加内容
   set itemNode1=xuesheng.appendChild(xmldoc.createElement("学号"))
	   itemNode1.text="200120101"
   set itemNode2=xuesheng.appendChild(xmldoc.createElement("姓名"))
	   itemNode2.text="季慧奇"
   set itemNode2=xuesheng.appendChild(xmldoc.createElement("性别"))
	   itemNode2.text="女"	  
   xmldoc.save(Server.MapPath("generate.xml"))
End If
%>