用ASP+XML打造留言本
'' objRootsite.childNodes.item(StarNodes)所对应的节点就是<list>节点因为不至一个<list>节点所以用了item()
来识别当前节点数据，随着StarNodes的递减<list>节点根着往上移一个个读取<list>节点数据。
''objRootsite.childNodes.item(StarNodes).childNodes.item(1).text所对应的节点为具体的每个节点的文本值，这里
(1)所对应的就是username用户名（因为<list>节点的子节点才是我们真正所要的）
''******************************************************************************
text = replace(text,chr(13),"<br>")
''替代回车
text = replace(text,chr(32)," ")
''替代空格
%>
<tr bgcolor="#F0F0F0">
<td width="21%" height="94" valign="top">姓 名：<%=username%><br>
来 自：<%=fromwhere%><br>
</td>
<td width="79%" height="94" valign="top"> | <a href="<%=homepage%>" target=_blank title="<%=username%
>的主页">主页</a>
| | <a href="mailto:<%=email%>" title="给<%=username%>写信">信箱</a> | |<font color="#CC6633">
留言时间：<%=Posttime%> </font>|
<hr>
<%=text%> </td>
</tr>
<tr bgcolor="#FFFFFF" align="right">
<td colspan="2"> </td>
</tr>
<%
StarNodes=StarNodes-1
wend
set objXML=nothing
%>
<tr bgcolor="#FFFFFF" align="right">
<td colspan="2"> 共有<<%=PageNum%>>页
<%
if cint(PageNo)<>PageNum then''分页
response.write "<a href="/index.asp?PageNo="&(PageNo+1)&"''></a>"
end if
if cint(PageNo)<>1 then
response.write "<a href="/index.asp?PageNo="&(PageNo-1)&"''></a> "
end if
%>
</td>
</tr>
</table>
</body>
</html>
六、建立写新留言程序(PostNew.asp)
这个文件要实现的功能就是写入新的XML节点，首先创建一个XML对像然后把XML读入内存中，利用appendChild()方法
加入我们生成的XML节点。
<%
username=request.form("username")
if username<>"" then
fromwhere =request.form("fromwhere")
homepage =request.form("homepage")
email =request.form("email")
text =request.form("text")
text =replace(text,"<","<")
Posttime =now()
strSourceFile = Server.MapPath("/") & "\List.xml"
''获取XML文件的路径这里根据你的虚拟目录不同而不同
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
''创建XML对像
objXML.load(strSourceFile)
''把XML文件读入内存中
Set objRootlist = objXML.documentElement.selectSingleNode("NewList")
''选取<NewList>节点
if objRootlist.hasChildNodes then
''判断<NewList>是否有子节点（因为如果是每一次<NewList>是没有子节点的，
'' 如果不加判断在第一次运得时就会报错
id = objRootlist.lastchild.firstchild.text+1
''这里获得将要插入子节点的ＩＤ号，其ＩＤ号为<NewList>的最后一个子节点(lastchild)的第一个子节点(firstchild)
的ＩＤ号加1（这里我们按照关系型数据库的ＩＤ号来递增）
else
''如是没有字子节点则是第一次留言ＩＤ号设为１
id=1
end if
brstr=chr(13)&chr(10)&chr(9)
''为了插入XML文件中的节点换行空格排列整齐
''（当然你也可以不用这样只是为了XML数据好看而以）
XMLnode=brstr&"<list>"&brstr & _
"<id>"&id&"</id>"&brstr & _
"<username>"&u