献给XML初学者，一个简单的例程

第16行有错。

 1   
 2username=request.form("username")   
 3if username<>"" then   
 4fromwhere =request.form("fromwhere")   
 5homepage =request.form("homepage")   
 6email =request.form("email")   
 7text =request.form("text")   
 8text =replace(text,"<","<")   
 9Posttime =now()   
10strSourceFile = Server.MapPath("/") & "\List.xml"   
11Set objXML = Server.CreateObject("Microsoft.XMLDOM")   
12objXML.load(strSourceFile)   
13Set objRootlist = objXML.documentElement.selectSingleNode("NewList")   
14if objRootlist.hasChildNodes then   
15id = objRootlist.lastchild.firstchild.text+1   
16(firstchild)   
17else   
18id=1   
19end if   
20brstr=chr(13)&chr(10)&chr(9)   
21XMLnode=brstr&"

<list>"&brstr & _
"<id>"&id&"</id>"&brstr & _
"<username>"&username&"</username>"&brstr & _
"<fromwhere>"&fromwhere&"</fromwhere>"&brstr & _
"<posttime>"&Posttime&"</posttime>"&brstr & _
"<homepage>"&homepage&"</homepage>"&brstr & _
"<email>"&email&"</email>"&brstr & _
"<text>"&text&"</text>"&brstr & _
"</list>

 1"&chr(13)   
 2set objXML2=Server.CreateObject("Microsoft.XMLDOM")   
 3objXML2.loadXML(XMLnode)   
 4set rootNewNode=objXML2.documentElement   
 5objRootlist.appendChild(rootNewNode)   
 6objXML.save(strSourceFile)   
 7set objXML=nothing   
 8set objXML2=nothing   
 9response.write "Thanks your B."   
10response.end   
11end if

 1<html>
 2<head>
 3<title>Untitled Document</title>
 4<meta content="text/html; charset=utf-8" http-equiv="Content-Type"/>
 5<style type="text/css">   
 6<!--   
 7td { font-size: 9pt}   
 8\-->   
 9</style>
10</head>
11<body bgcolor="#0099CC" text="#000000">
12<table align="center" bgcolor="#FFFFFF" border="0" cellpadding="4" cellspacing="1" width="80%">
13<form action="PostNew.asp" method="post" name="form1">
14<tr bgcolor="#000000">
15<td colspan="2"><font color="#FFFFFF">New Book</font></td>
16</tr>
17<tr bgcolor="#EFEFEF">
18<td align="right" width="19%">Name:</td>
19<td width="81%">
20<input name="username" type="text"/>   
21** </td>
22</tr>
23<tr bgcolor="#EFEFEF">
24<td align="right" width="19%">ComeFrom:</td>
25<td width="81%">
26<input name="fromwhere" type="text" value="China"/>
27</td>
28</tr>
29<tr bgcolor="#EFEFEF">
30<td align="right" width="19%">WebSite:</td>
31<td width="81%">
32<input name="homepage" type="text" value="http://"/>
33</td>
34</tr>
35<tr bgcolor="#EFEFEF">
36<td align="right" width="19%">Email:</td>
37<td width="81%">
38<input name="email" type="text"/>
39</td>
40</tr>
41<tr bgcolor="#EFEFEF">
42<td align="right" valign="top" width="19%">Context:</td>
43<td width="81%">
44<textarea cols="60" name="text" rows="10"></textarea>
45</td>
46</tr>
47<tr bgcolor="#EFEFEF">
48<td align="right" width="19%"> </td>
49<td width="81%">
50<input name="Submit" type="submit" value="Submit"/>
51<input name="Submit2" type="reset" value="Reset"/>
52</td>
53</tr>
54</form>
55</table>
56</body>
57</html>

---------------------------------------------------------------

1.16行删除
2.list.xml(初始文件)

1<data>
2<newlist>
3</newlist>
4</data>

:_)
---------------------------------------------------------------

我斗胆贴出自己的一个程序来,也是类似功能的!
函数：添加条目
Function AddPersonData(oXMLCode)
Dim sourceFile,xObj1,xObj2
Dim rootNode,newNode,currentNode

AddPersonData = 0

sourceFile = Request.ServerVariables("APPL_PHYSICAL_PATH") & "IntroDir.xml"
Set xObj1 = Server.CreateObject("Microsoft.XMLDOM")
Set xObj2 = Server.CreateObject("Microsoft.XMLDOM")

xObj1.load(sourceFile)
Set rootNode = xObj1.documentElement

If Not IsObject(rootNode) Then
Exit Function
End if

xObj2.loadXML(oXMLCode)
Set newNode = xObj2.documentElement
Set currentNode = rootNode.appendChild(newNode)

xObj1.save(sourceFile)

Set xObj1 = nothing
Set xObj2 = nothing

AddPersonData = 1
End Function

其中：oXMLCode是一个新增节点信息，具体内容如下：
Dim Title,Tips,LinkSrc
Title = Request.Form("title")
Tips = Request.Form("tips")
LinkSrc = Request.Form("linksrc")
Dim XMLCode
XMLCode = " "
XMLCode = XMLCode & "<条目>"
XMLCode = XMLCode & "<标题>" & Title & "

"
XMLCode = XMLCode & "<链接>" & LinkSrc & "

"
XMLCode = XMLCode & "<说明>" & Tips & "

"
XMLCode = XMLCode & "

"
---------------------------------------------------------------
改出来了，源程序贴出来，奉献给象我一样的初学者。

 1   
 2username=request.form("username")   
 3if username<>"" then   
 4fromwhere =request.form("fromwhere")   
 5homepage =request.form("homepage")   
 6email =request.form("email")   
 7text =Server.URLEncode(request.form("text"))   
 8Posttime =now()   
 9strSourceFile = Server.MapPath("list.xml")   
10Set objXML = Server.CreateObject("Microsoft.XMLDOM")   
11blnRet = objXML.load(strSourceFile)   
12If blnRet Then   
13Set objRootlist = objXML.documentElement   
14if objRootlist.hasChildNodes then   
15id = objRootlist.lastchild.firstchild.text+1   
16else   
17id=1   
18end if   
19Else   
20objXML.appendChild(objXML.createProcessingInstruction("xml","version=""1.0"""))   
21set objRootlist = objXML.createElement("NewList")   
22objXML.appendChild(objRootlist)   
23id = 1   
24End If   
25brstr=chr(13)&chr(10)&chr(9)   
26XMLnode=brstr&"

 1"&chr(13)   
 2set objXML2=Server.CreateObject("Microsoft.XMLDOM")   
 3objXML2.loadXML(XMLnode)   
 4set rootNewNode=objXML2.documentElement   
 5objRootlist.appendChild(rootNewNode)   
 6objXML.save(strSourceFile)   
 7set objXML=nothing   
 8set objXML2=nothing   
 9response.redirect(strSourceFile)   
10end if

 1<html>
 2<head>
 3<title>Untitled Document</title>
 4<meta content="text/html; charset=utf-8" http-equiv="Content-Type"/>
 5<style type="text/css">   
 6<!--   
 7td { font-size: 9pt}   
 8\-->   
 9</style>
10</head>
11<body bgcolor="#0099CC" text="#000000">
12<table align="center" bgcolor="#FFFFFF" border="0" cellpadding="4" cellspacing="1" width="80%">
13<form action="PostNew.asp" method="post" name="form1">
14<tr bgcolor="#000000">
15<td colspan="2"><font color="#FFFFFF">New Book</font></td>
16</tr>
17<tr bgcolor="#EFEFEF">
18<td align="right" width="19%">Name:</td>
19<td width="81%">
20<input name="username" type="text"/>   
21** </td>
22</tr>
23<tr bgcolor="#EFEFEF">
24<td align="right" width="19%">ComeFrom:</td>
25<td width="81%">
26<input name="fromwhere" type="text" value="China"/>
27</td>
28</tr>
29<tr bgcolor="#EFEFEF">
30<td align="right" width="19%">WebSite:</td>
31<td width="81%">
32<input name="homepage" type="text" value="http://"/>
33</td>
34</tr>
35<tr bgcolor="#EFEFEF">
36<td align="right" width="19%">Email:</td>
37<td width="81%">
38<input name="email" type="text"/>
39</td>
40</tr>
41<tr bgcolor="#EFEFEF">
42<td align="right" valign="top" width="19%">Context:</td>
43<td width="81%">
44<textarea cols="60" name="text" rows="10"></textarea>
45</td>
46</tr>
47<tr bgcolor="#EFEFEF">
48<td align="right" width="19%"> </td>
49<td width="81%">
50<input name="Submit" type="submit" value="Submit"/>
51<input name="Submit2" type="reset" value="Reset"/>
52</td>
53</tr>
54</form>
55</table>
56</body>
57</html>