用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.xml(标准化越来越近了)DOM)
创建xml(标准化越来越近了)对像
objxml(标准化越来越近了).load(strSourceFile)
把xml(标准化越来越近了)文件读入内存中
Set objRootlist = objxml(标准化越来越近了).documentElement.selectSingleNode(NewList)
选取＜NewList＞节点
if objRootlist.hasChildNodes then
判断＜NewList＞是否有子节点（因为如果是每一次＜NewList＞是没有子节点的，
’ 如果不加判断在第一次运得时就会报错
这里获得将要插入子节点的ＩＤ号，其ＩＤ号为＜NewList＞的最后一个子节点(lastchild)的第一个子节点(firstchild)的ＩＤ号加1（这里我们按照关系型数据库的ＩＤ号来递增）
else
如是没有字子节点则是第一次留言ＩＤ号设为１
id=1
end if
brstr=chr(13)chr(10)chr(9)
为了插入xml(标准化越来越近了)文件中的节点换行空格排列整齐
’（当然你也可以不用这样只是为了xml(标准化越来越近了)数据好看而以）
xml(标准化越来越近了)node=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 objxml(标准化越来越近了)2=Server.CreateObject(Microsoft.xml(标准化越来越近了)DOM)
建立一个新xml(标准化越来越近了)对像
objxml(标准化越来越近了)2.loadxml(标准化越来越近了)(xml(标准化越来越近了)node)
把xml(标准化越来越近了)版片段读入内存中
set rootNewNode=objxml(标准化越来越近了)2.documentElement
获得objxml(标准化越来越近了)2的根节点
objRootlist.appendChild(rootNewNode)
把xml(标准化越来越近了)片段插入到List.xml(标准化越来越近了)中
objxml(标准化越来越近了).save(strSourceFile)
存储lsit.xml(标准化越来越近了)文件（因为不存储List.xml(标准化越来越近了)只在内存中更新了）
set objxml(标准化越来越近了)=nothing
set objxml(标准化越来越近了)2=nothing
response.write 谢谢您的留言
response.end

end if
%＞
＜html＞
＜head＞
＜title＞Untitled Document＜/title＞
＜meta http-equiv=Content-Type content=text/html; charset=gb2312＞
＜style type=text/css＞
＜!--
td { font-size: 9pt}
--＞
＜/style＞
＜/head＞
＜body bgcolor=#0099CC text=#000000＞
＜table width=80% border=0 cellspacing=1 cellpadding=4 align=center bgcolor=#FFFFFF＞
＜form action=PostNew.asp method=post name=form1＞
＜tr bgcolor=#000000＞
＜td colspan=2＞＜font color=#FFFFFF＞新留言＜/font＞＜/td＞
＜/tr＞
＜tr bgcolor=#EFEFEF＞
＜td width=19% align=right＞姓 名：＜/td＞
＜td width=81%＞
＜input type=text name=username＞
** ＜/td＞
＜/tr＞
＜tr bgcolor=#EFEFEF＞
＜td width=19% align=right＞来 自：＜/td＞
＜td width=81%＞
＜input type=text name=fromwhere value=中国＞
＜/td＞
＜/tr＞
＜tr bgcolor=#EFEFEF＞
＜td width=19% align=right＞主 页：＜/td＞
＜td width=81%＞