复制代码代码如下所示：
<
----------------------------------------------------------------
程序介绍：完成ASP语言添加、删除、修改和查看XML文档中指定的节点文本
入口参数：否
导出参数：NO
------------------------------------------------
功能名称：ConnectXml（）
条目参数：文件名需要连接或打开的XML文件的名称
导出参数：NO
'return value: ConnectXml=0, XMLMorntekDocument is an object that successfully loads XML documents.
connectxml <> 0，然后打印错误信息strerror
------------------------------------------------
昏暗的xmlmorntekdocument

功能connectxml（文件名）
昏暗的strsourcefile
strsourcefile = server.mappath（文件名）
集xmlmorntekdocument = server.createobject（微软。XMLDOM ）
xmlmorntekdocument.async = false
XMLMorntekDocument.load（strsourcefile）
connectxml = xmlmorntekdocument.parseerror.errorcode
如果xmlmorntekdocument。分析错误。错误代码< > 0
strerror =错误xmlmorntekdocument.parseerror.errorcode
strerror = strerrorxmlmorntekdocument.parseerror.reason
strerror = strerrorxmlmorntekdocument.parseerror.url
strerror = strerrorxmlmorntekdocument.parseerror.line
strerror = strerrorxmlmorntekdocument.parseerror.filepos
strerror = strerrorxmlmorntekdocument.parseerror.srctext
response.write strerror
最后如果
端功能

------------------------------------------------
功能名称：CloseXml（）
入口参数：否
导出参数：NO
------------------------------------------------
功能closexml（xmlmorntekdocument）
如果IsObject（xmlmorntekdocument）然后
集xmlmorntekdocument =没有
最后如果
端功能


------------------------------------------------
功能名称：SelectXmlNodeText（ElementName）
输入参数：的ElementName元素的名称
导出参数：NO
------------------------------------------------
SelectXmlNodeText（ElementName）功能
ElementName = / / ElementName
温度= XMLMorntekDocument.selectSingleNode（ElementName文本）。
selectxmlnodetext = server.htmlencode（临时）

端功能

------------------------------------------------
功能名称：InsertXmlNodeText（befelementname，ElementName elementtext）
输入参数：插入的ElementName元素名称
befelementname插入元素在该元素的名称前
的elementtext插入的元素的文本
导出参数：NO
------------------------------------------------
功能insertxmlnodetext（befelementname，ElementName elementtext）
昏暗的befelement，元
集（befelement = xmlmorntekdocument.selectsinglenode / / befelementname）
集元= xmlmorntekdocument.createelement（ElementName）
Befelement.insertBefore element, befelement.firstchild
文本= elementtext元素。
端功能

------------------------------------------------
功能名称：UpdateXmlNodeText（ElementName newelementtext）
输入参数：的ElementName元素的名称
newelementtext元新文本
导出参数：NO
------------------------------------------------
函数的UpdateXmlNodeText（ElementName newelementtext）
昏暗的元素
集（元= xmlmorntekdocument.selectsinglenode / / ElementName）
文本= newelementtext元素。
端功能

------------------------------------------------
功能名称：DeleteXmlNodeText（ElementName）
输入参数：的ElementName元素的名称
导出参数：NO
------------------------------------------------
DeleteXmlNodeText（ElementName）功能
（xmlmorntekdocument.selectsinglenode / /。文本= ElementName）
端功能
%>