用ASP+XML打造留言本 - 3

用ASP+XML打造留言本 - 3
(01-6-6 15)
　　六、建立寫新留言程式(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 & _