ch7-9.asp

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

<%@ language="vbscript"%>
<%
'建立XMLOM对象
	set xmldoc=server.createObject("MSXML.DOMDocument")
    xmldoc.load(Server.MapPath("ch7-9.xml"))
	'如果此文档不存在在新建一个文档
    If xmldoc.parseError.ErrorCode <> 0 Then 
		 xmldoc.loadXML "<?xml version=""1.0"" encoding=""gb2312"" ?><xml><学生列表></学生列表></xml>"
  	End If
'判断文档是否加载成功
	if xmldoc.readystate=4 and xmldoc.parseError.errorCode=0 then        
'添加元素
'选择根节点
Set objRootlist = xmldoc.selectSingleNode("/xml/学生列表")
'添加根节点的子节点
Set oListNode = objRootlist.AppendChild(xmldoc.createElement("学生"))
'为学生节点添加内容
Set oDetailsNode = oListNode.appendChild(xmldoc.createElement("学号"))
  		oDetailsNode.Text = "200120103"
Set oDetailsNode = oListNode.appendChild(xmldoc.createElement("姓名"))
  		oDetailsNode.Text = "鲁红"		   
Set oDetailsNode = oListNode.appendChild(xmldoc.createElement("性别"))
oDetailsNode.Text = "女"	   
else
Response.write("错误原因："+xmldoc.parseError.reason)
End if 
'保存修改
xmldoc.save(Server.MapPath("ch7-9.xml"))
Set xmldoc=nothing
%>