ASP操作XML文件的完整实例

 1   
 2'----------------------------------------------------------------   
 3'程序简介: 完成asp语言对XML文档中指定节点文本的增加、删除、修改、查看   
 4'入口参数: 无   
 5'出口参数: 无   
 6'------------------------------------------------   
 7'函数名字：ConnectXml()   
 8'入口参数: filename 需要连接或打开的xml文件名   
 9'出口参数: 无   
10'返回值 ：ConnectXml=0，XMLMorntekDocument就是一个成功装载XML文档的对象了。   
11' ConnectXml<>0,则打印错误信息strError   
12'------------------------------------------------   
13dim XMLMorntekDocument 
14
15function ConnectXml(filename)   
16dim strSourceFile   
17strSourceFile = Server.MapPath(filename)   
18Set XMLMorntekDocument = Server.CreateObject("Microsoft.XMLDOM")   
19XMLMorntekDocument.async = false   
20XMLMorntekDocument.load(strSourceFile)   
21ConnectXml=XMLMorntekDocument.parseerror.errorcode   
22if XMLMorntekDocument.parseerror.errorcode<>0 then   
23strError="

1"   
2strError=strError&XMLMorntekDocument.parseerror.reason&"

1"   
2strError=strError&XMLMorntekDocument.parseerror.url&"

1"   
2strError=strError&XMLMorntekDocument.parseerror.line&"

1"   
2strError=strError&XMLMorntekDocument.parseerror.filepos&"

1"   
2strError=strError&XMLMorntekDocument.parseerror.srcText&"

 1"   
 2response.write strError   
 3end if   
 4end function 
 5
 6'------------------------------------------------   
 7'函数名字：CloseXml()   
 8'入口参数: 无   
 9'出口参数: 无   
10'------------------------------------------------   
11function CloseXml(XMLMorntekDocument)   
12if IsObject(XMLMorntekDocument) then   
13set XMLMorntekDocument=nothing   
14end if   
15end function 
16
17  
18'------------------------------------------------   
19'函数名字：SelectXmlNodeText(elementname)   
20'入口参数: elementname 元素的名字   
21'出口参数: 无   
22'------------------------------------------------   
23function SelectXmlNodeText(elementname)   
24elementname="//"&elementname   
25temp=XMLMorntekDocument.selectSingleNode(elementname).text   
26selectXmlNodeText= server.htmlencode(temp) 
27
28end function 
29
30'------------------------------------------------   
31'函数名字：InsertXmlNodeText(befelementname,elementname,elementtext)   
32'入口参数: elementname 插入的元素的名字   
33' befelementname在此元素的名字前面插入元素   
34' elementtext 插入的元素的文本   
35'出口参数: 无   
36'------------------------------------------------   
37function InsertXmlNodeText(befelementname,elementname,elementtext)   
38dim befelement,element   
39set befelement=XMLMorntekDocument.selectSingleNode("//"&befelementname)   
40set element= XMLMorntekDocument.createelement(elementname)   
41befelement.insertBefore element,befelement.firstchild   
42element.text=elementtext   
43end function 
44
45'------------------------------------------------   
46'函数名字：UpdateXmlNodeText(elementname,newelementtext)   
47'入口参数: elementname 元素的名字   
48' newelementtext元素的新文本   
49'出口参数: 无   
50'------------------------------------------------   
51function UpdateXmlNodeText(elementname,newelementtext)   
52dim element   
53set element=XMLMorntekDocument.selectSingleNode("//"&elementname)   
54element.text=newelementtext   
55end function 
56
57'------------------------------------------------   
58'函数名字：DeleteXmlNodeText(elementname)   
59'入口参数: elementname 元素的名字   
60'出口参数: 无   
61'------------------------------------------------   
62function DeleteXmlNodeText(elementname)   
63XMLMorntekDocument.selectSingleNode("//"&elementname).text =""   
64end function