日韩天天综合网_野战两个奶头被亲到高潮_亚洲日韩欧美精品综合_av女人天堂污污污_视频一区**字幕无弹窗_国产亚洲欧美小视频_国内性爱精品在线免费视频_国产一级电影在线播放_日韩欧美内地福利_亚洲一二三不卡片区

用ASP XML打造留言本(3)_Xml教程

編輯Tag賺U幣
教程Tag：暫無Tag,歡迎添加,賺取U幣!

推薦：用XSL翻譯Web服務(wù)應(yīng)用程序
Web服務(wù)應(yīng)用程序存在的一個(gè)常見問題是，真正的后端軟件不支持XML（或者至少不支持你Web服務(wù)所使用的標(biāo)準(zhǔn)化的XML）。要解決這個(gè)問題，很多架構(gòu)都實(shí)施了一個(gè)翻譯階段，用來解釋收到的XML，并將它

五、建立顯示XML數(shù)據(jù)的ASP文件(index.asp)

這個(gè)文件要實(shí)現(xiàn)的功能就是讀取并顯示XML數(shù)據(jù)，首先創(chuàng)建一個(gè)XML對像然后把XML讀入內(nèi)存中，利用DOM分離出我們所要的數(shù)據(jù)。

六、建立寫新留言程序(PostNew.asp)

這個(gè)文件要實(shí)現(xiàn)的功能就是寫入新的XML節(jié)點(diǎn)，首先創(chuàng)建一個(gè)XML對像然后把XML讀入內(nèi)存中，利用appendChild()方法加入我們生成的XML節(jié)點(diǎn)。

以下為引用的內(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")
'選取＜NewList＞節(jié)點(diǎn)
if objRootlist.hasChildNodes then
'判斷＜NewList＞是否有子節(jié)點(diǎn)（因?yàn)槿绻敲恳淮危糔ewList＞是沒有子節(jié)點(diǎn)的，
’ 如果不加判斷在第一次運(yùn)得時(shí)就會報(bào)錯(cuò)
id = objRootlist.lastchild.firstchild.text 1
'這里獲得將要插入子節(jié)點(diǎn)的ＩＤ號，其ＩＤ號為＜NewList＞的最后一個(gè)子節(jié)點(diǎn)(lastchild)的第一個(gè)子節(jié)點(diǎn)(firstchild)的ＩＤ號加1（這里我們按照關(guān)系型數(shù)據(jù)庫的ＩＤ號來遞增）
else
'如是沒有字子節(jié)點(diǎn)則是第一次留言ＩＤ號設(shè)為１
id=1
end if
brstr=chr(13)&chr(10)&chr(9)
'為了插入XML文件中的節(jié)點(diǎn)換行空格排列整齊
’（當(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")
'建立一個(gè)新XML對像
objXML2.loadXML(XMLnode)
'把XML版片段讀入內(nèi)存中
set rootNewNode=objXML2.documentElement
'獲得objXML2的根節(jié)點(diǎn)
objRootlist.appendChild(rootNewNode)
'把XML片段插入到List.xml中
objXML.save(strSourceFile)
'存儲lsit.xml文件（因?yàn)椴淮鎯ist.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很好的一個(gè)例子
雖然ting88沒有注冊的用戶不能下載歌曲,但搞定它也非難事啊:) 進(jìn)入www.ting88.com的網(wǎng)站,把歌手專輯頁面的URL復(fù)制到文本框中再提交就可以得到歌曲的下載路徑,如:http://www.ting88.com/MusicL

共3頁上一頁123下一頁
來源：模板無憂//所屬分類：Xml教程/更新時(shí)間：2008-08-22
相關(guān)Xml教程：