在ASP中如何读/写/删除/修改XML文件

1 Response.ContentType ="text/html" 

 1   
 2dim xmlDoc,root,pi,childNode,childNode_1,childNode_2,childNode_3   
 3dim rs,sql,temp,i,path   
 4dim forum_Name,forum_class_info,forum_class_num   
 5  
 6'Set xmlDoc = CreateObject("Msxml2.DOMDocument.4.0")   
 7Set xmlDoc=Server.CreateObject ("Microsoft.XMLDOM")   
 8Set rs=Server.CreateObject ("adodb.recordset")   
 9  
10'生成根节点   
11Set root=xmlDoc.createNode("element","forum_collect","")   
12xmlDoc.appendChild(root)   
13Set childNode=xmlDoc.createNode("element","forum_info","")   
14root.appendChild (childNode)   
15  
16Set pi = xmlDoc.createProcessingInstruction("xml", "version=""1.0"" encoding=""GB2312""")   
17xmlDoc.insertBefore pi, root   
18  
19  
20'生成论坛根节点   
21sql="Select top 1 forum_info From [config] order by id"   
22rs.Open sql,conn,1,1   
23temp=Instr(rs(0),",")   
24forum_Name=Left(rs(0),temp-1)   
25rs.Close ()   
26Set childNode_1=xmlDoc.createNode("element","forum_name","")   
27childNode_1.text = forum_Name   
28childNode.appendChild (childNode_1)   
29  
30sql="Select id,[class] From [class] order by orders ,id"   
31rs.Open sql,conn,1,1   
32forum_class_info=rs.GetRows ()   
33forum_class_num=UBound(forum_class_info,2)   
34rs.Close ()   
35  
36for i=0 to forum_class_num   
37Set childNode_1=xmlDoc.createNode("element","forum_class","")   
38childNode.appendChild (childNode_1)   
39Set childNode_2=xmlDoc.createNode("element","forum_class_name","")   
40childNode_2.text = forum_class_info(1,i)   
41childNode_1.appendChild (childNode_2)   
42  
43sql="Select boardid,boardtype From board Where [class]="&forum_class_info(0,i)   
44rs.Open sql,conn,1,1   
45while rs.EOF =false   
46Set childNode_2=xmlDoc.createNode("element","forum_list","")   
47childNode_1.appendChild (childNode_2)   
48Set childNode_3=xmlDoc.createNode("element","forum_list_name","")   
49childNode_3.text = rs(1)   
50childNode_2.appendChild (childNode_3)   
51Set childNode_3=xmlDoc.createNode("element","forum_list_id","")   
52childNode_3.text = rs(0)   
53childNode_2.appendChild (childNode_3)   
54rs.MoveNext ()   
55wend   
56rs.Close ()   
57next   
58  
59path=Server.MapPath ("forumList.xml")   
60Response.Write(xmlDoc.xml)   
61xmlDoc.save (path)