动态网第8章 操作文件.pptVIP

% 遍历XML文档的所有节点 Set objXML = Server.CreateObject(MSXML.DOMDocument) objXML.Load(Server.MapPath(List1.xml)) If objXML.readyState = 4 And objXML.parseError.errorCode = 0 Then readxml(objXML) Else Response.Write 加载XML文档失败！br出错原因： objXML.parseError.reason End If % % 在当前目录创建book.xml文档，并写入简单的留言信息 Dim objXML,version,root Set objXML = server.CreateObject(Msxml.domdocument) 定义Document对象实例 定义XML文档的第1行声明处理指令实例 Set version = objXML.createProcessingInstruction(xml,version=1.0 encoding=GB2312) objXML.appendchild(version) 把声明处理指令实例写入Document对象 Set root = objXML.createElement(留言本) 定义“留言本”元素 objXML.appendChild(root) 把该元素作为根元素写入Document对象 Set childNode = objXML.createElement(留言) 定义“留言”元素 root.appendChild childNode 把该元素作为子元素写入Document对象 ? 定义顶层元素并赋值 Set childnextNode = objXML.createElement(用户名) 定义“用户名”元素 childnextNode.Text = 张三 为该元素设置文本 childNode.appendChild(childnextNode) 把该元素作为“留言”的子元素写入Document对象 ? Set childnextNode = objXML.createElement(留言内容) childnextNode.Text = 这时张三的留言 childNode.appendChild(childnextNode) ? Set childnextNode = objXML.createElement(留言时间) childnextNode.Text = Date childNode.appendChild(childnextNode) ? objXML.save(Server.Mappath(book.xml)) 把Document对象保存到当前目录下的book.xml中 % %建立XML Document对象 Set objXML = Server.CreateObject(MSXML.DOMDocument) objXML.Load(server.MapPath(new.xml)) If objXML.ParseError.ErrorCode 0 Then 如果发生错误则为Document对象增加处理指令和根元素 objXML.loadxml ?xml version=1.0 encoding=gb2312 ?留言本/留言本 End If If objXML.readystate = 4 and objXML.parseError.errorCode = 0 Then 判断文档是否加载成功 Set objRootlist=objXML.selectSingleNode(留言本) 选择节点 Set oListNode = objRootlist.AppendChild(objXML.CreateElement(留言)) 增加根节点的子节点 Set oDetailsNode = oListNode.AppendChild(objXML.CreateElement(姓名))为“留言”增加元素 oDetailsNode.text = 李四 为元素增加文本 Set oDetailsNode = oListNode.AppendChild(objXML.CreateElement(QQ)) oDetailsNode