用ASP+XML打造留言本 - 3

六、建立写新留言程序(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")
'选取节点
if objRootlist.hasChildNodes then
'判断是否有子节点（因为如果是每一次是没有子节点的，
’ 如果不加判断在第一次运得时就会报错
id = objRootlist.lastchild.firstchild.text+1
'这里获得将要插入子节点的ID号，其ID号为的最后一个子节点(lastchild)的第一个子节点(firstchild)
的ID号加1（这里我们按照关系型数据库的ID号来递增）
else
'如是没有字子节点则是第一次留言ID号设为１
id=1
end if
brstr=chr(13)&chr(10)&chr(9)
'为了插入XML文件中的节点换行空格排列整齐
’（当然你也可以不用这样只是为了XML数据好看而以）
XMLnode=brstr&""&brstr & _
""&id&""&brstr & _
""&username&""&brstr & _
""&fromwhere&""&brstr & _
""&Posttime&""&brstr & _
""&homepage&""&brstr & _
""&email&""&brstr & _
""&text&""&brstr & _
""&chr(13)
'根据得到的数据建立XML片段
set objXML2=Server.CreateObject("Microsoft.XMLDOM")
'建立一个新XML对像
objXML2.loadXML(XMLnode)
'把XML版片段读入内存中
set rootNewNode=objXML2.documentElement
'获得objXML2的根节点
objRootlist.appendChild(rootNewNode)
'把XML片段插入到List.xml中
objXML.save(strSourceFile)
'存储lsit.xml文件（因为不存储List.xml只在内存中更新了）
set objXML=nothing
set objXML2=nothing
response.write "谢谢您的留言"
response.end

end if
%Untitled Documenttd { font-size: 9pt}
--
新留言
姓 名：
来 自：
主 页：Email：
内 容：

分享：