用ASP XML打造留言本(3)_Xml教程
教程Tag：暫無Tag,歡迎添加,賺取U幣!
推薦：用XSL翻譯Web服務(wù)應(yīng)用程序Web服務(wù)應(yīng)用程序存在的一個常見問題是，真正的后端軟件不支持XML（或者至少不支持你Web服務(wù)所使用的標準化的XML）。要解決這個問題，很多架構(gòu)都實施了一個翻譯階段，用來解釋收到的XML，并將它
五、建立顯示XML數(shù)據(jù)的ASP文件(index.asp)
這個文件要實現(xiàn)的功能就是讀取并顯示XML數(shù)據(jù)，首先創(chuàng)建一個XML對像然后把XML讀入內(nèi)存中，利用DOM分離出我們所要的數(shù)據(jù)。
六、建立寫新留言程序(PostNew.asp)
這個文件要實現(xiàn)的功能就是寫入新的XML節(jié)點，首先創(chuàng)建一個XML對像然后把XML讀入內(nèi)存中，利用appendChild()方法加入我們生成的XML節(jié)點。
| 以下為引用的內(nèi)容： ＜% 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文件的路徑這里根據(jù)你的虛擬目錄不同而不同 Set objXML = Server.CreateObject("Microsoft.XMLDOM") '創(chuàng)建XML對像 objXML.load(strSourceFile) '把XML文件讀入內(nèi)存中 Set objRootlist = objXML.documentElement.selectSingleNode("NewList") '選�。糔ewList＞節(jié)點 if objRootlist.hasChildNodes then '判斷＜NewList＞是否有子節(jié)點（因為如果是每一次＜NewList＞是沒有子節(jié)點的， ’ 如果不加判斷在第一次運得時就會報錯 id = objRootlist.lastchild.firstchild.text 1 '這里獲得將要插入子節(jié)點的ＩＤ號，其ＩＤ號為＜NewList＞的最后一個子節(jié)點(lastchild)的第一個子節(jié)點(firstchild)的ＩＤ號加1（這里我們按照關(guān)系型數(shù)據(jù)庫的ＩＤ號來遞增） else '如是沒有字子節(jié)點則是第一次留言ＩＤ號設(shè)為１ id=1 end if brstr=chr(13)&chr(10)&chr(9) '為了插入XML文件中的節(jié)點換行空格排列整齊 ’（當(dāng)然你也可以不用這樣只是為了XML數(shù)據(jù)好看而以） 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) '根據(jù)得到的數(shù)據(jù)建立XML片段 set objXML2=Server.CreateObject("Microsoft.XMLDOM") '建立一個新XML對像 objXML2.loadXML(XMLnode) '把XML版片段讀入內(nèi)存中 set rootNewNode=objXML2.documentElement '獲得objXML2的根節(jié)點 objRootlist.appendChild(rootNewNode) '把XML片段插入到List.xml中 objXML.save(strSourceFile) '存儲lsit.xml文件（因為不存儲List.xml只在內(nèi)存中更新了） set objXML=nothing set objXML2=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%"＞ ＜input type="text" name="homepage" value="http://"＞ ＜/td＞ ＜/tr＞ ＜tr bgcolor="#EFEFEF"＞ ＜td width="19%" align="right"＞Email：＜/td＞ ＜td width="81%"＞ ＜input type="text" name="email"＞ ＜/td＞ ＜/tr＞ ＜tr bgcolor="#EFEFEF"＞ ＜td width="19%" align="right" valign="top"＞內(nèi) 容：＜/td＞ ＜td width="81%"＞ ＜textarea name="text" cols="60" rows="10"＞＜/textarea＞ ＜/td＞ ＜/tr＞ ＜tr bgcolor="#EFEFEF"＞ ＜td width="19%" align="right"＞ ＜/td＞ ＜td width="81%"＞ ＜input type="submit" name="Submit" value="提交"＞ ＜input type="reset" name="Submit2" value="重填"＞ ＜/td＞ ＜/tr＞ ＜/form＞ ＜/table＞ ＜/body＞ ＜/html＞ |
分享：用XMLHTTP很好的一個例子雖然ting88沒有注冊的用戶不能下載歌曲,但搞定它也非難事啊:) 進入www.ting88.com的網(wǎng)站,把歌手專輯頁面的URL復(fù)制到文本框中再提交就可以得到歌曲的下載路徑,如:http://www.ting88.com/MusicL
相關(guān)Xml教程：
- 相關(guān)鏈接：
- 教程說明：
Xml教程-用ASP XML打造留言本(3)
。