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＞"&username&"＜/username＞"&brstr & _
"＜fromwhere＞"&fromwhere&"＜/fromwhere＞"&brstr & _
"＜Posttime＞"&Posttime&"＜/Posttime＞"&brstr & _
"＜homepage＞"&homepage&"＜/homepage＞"&brstr & _
"＜email＞"&email&"＜/email＞"&brstr & _
"＜text＞"&text&"＜/text＞"&brstr & _
"＜/list＞"&chr(13)
'根据得到的数据建立XML片段
set objXML2=Server.CreateObject("Microsoft.XMLDOM")
'建立一个新XML对像
objXML2.loadXML(XMLnode)