用ASP XML打造留言本(2)_Xml教程
教程Tag：暫無Tag,歡迎添加,賺取U幣!
推薦：用XSL翻譯Web服務(wù)應(yīng)用程序Web服務(wù)應(yīng)用程序存在的一個常見問題是，真正的后端軟件不支持XML（或者至少不支持你Web服務(wù)所使用的標(biāo)準(zhǔn)化的XML）。要解決這個問題，很多架構(gòu)都實施了一個翻譯階段，用來解釋收到的XML，并將它
五、建立顯示XML數(shù)據(jù)的ASP文件(index.asp)
這個文件要實現(xiàn)的功能就是讀取并顯示XML數(shù)據(jù)，首先創(chuàng)建一個XML對像然后把XML讀入內(nèi)存中，利用DOM分離出我們所要的數(shù)據(jù)。
| 以下為引用的內(nèi)容： ＜% strSourceFile = Server.MapPath("/") & "\List.xml" '獲取XML文件的路徑這里根據(jù)你的虛擬目錄不同而不同 Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM") '以自由線程創(chuàng)建一個XML對像 objXML.load(strSourceFile)'把XML文件讀入內(nèi)存 Set objRootsite = objXML.documentElement.selectSingleNode("NewList") '選取NewList節(jié)點 %＞ ＜html＞ ＜head＞ ＜title＞留言本＜/title＞ ＜meta http-equiv="Content-Type" content="text/html; charset=gb2312"＞ ＜style type="text/css"＞ ＜!-- td { font-family: "宋體"; font-size: 9pt; text-decoration: none} a { font-family: "宋體"; font-size: 9pt; color: #0066CC; text-decoration: none} a:hover { color: #FF6600; text-decoration: underline} --＞ ＜/style＞ ＜/head＞＜body bgcolor="#0099CC" text="#000000"＞ ＜table width="80%" border="0" cellspacing="1" cellpadding="4" align="center" bgcolor="#CCCCCC"＞ ＜tr bgcolor="#000000"＞ ＜td colspan="2"＞＜font color="#FFFFFF"＞留言溥 ＜a href="PostNew.asp"＞＜font color=#FFFFFF＞寫新留言＜/font＞＜/a＞＜/font＞＜/td＞ ＜/tr＞ ＜% PageSize =10'假設(shè)每頁顯示10條留言 AllNodesNum =objRootsite.childNodes.length-1 '獲取子節(jié)點數(shù)據(jù)（因為是從節(jié)點數(shù)從0開始的所最大子節(jié)點數(shù)要減1） PageNum=AllNodesNum\PageSize 1'算出總頁數(shù) PageNo=request.querystring("PageNo") if PageNo="" then'如果是每一次獲得頁面則定位到每一頁顯示最新的留言 PageNo=PageNum end if StarNodes=PageNo*PageSize-1'獲得起始節(jié)點 EndNodes=(PageNo-1)*PageSize'獲得結(jié)束節(jié)點 if EndNodes＜0 then EndNodes=0 end if if StarNodes＞AllNodesNum then'判斷起始節(jié)點數(shù)是否超過總的節(jié)點數(shù) EndNodes=EndNodes-(StarNodes-AllNodesNum) '如果超過則結(jié)束節(jié)點要減去(StarNodes-AllNodesNum)的差值否則下標(biāo)會超界出錯 StarNodes=AllNodesNum end if if EndNodes＜0 then EndNodes=0 end if while StarNodes＞=EndNodes '從結(jié)束節(jié)點到超始節(jié)點之間讀取節(jié)點數(shù)據(jù) username = objRootsite.childNodes.item(StarNodes).childNodes.item(1).text '獲得用戶名 fromwhere = objRootsite.childNodes.item(StarNodes).childNodes.item(2).text '獲得用戶來自那里 Posttime = objRootsite.childNodes.item(StarNodes).childNodes.item(3).text '獲得留言時間 homepage = objRootsite.childNodes.item(StarNodes).childNodes.item(4).text '獲得用戶主頁 email = objRootsite.childNodes.item(StarNodes).childNodes.item(5).text '獲得用戶Eamil text = objRootsite.childNodes.item(StarNodes).childNodes.item(6).text '獲昨留言內(nèi)容 '***************************************************************************** '這里使作了XML的DOM來讀取數(shù)據(jù),顯然objRootsite對像所對應(yīng)的節(jié)點為＜NewList＞ ' objRootsite.childNodes.item(StarNodes)所對應(yīng)的節(jié)點就是＜list＞節(jié)點因為不至一個＜list＞節(jié)點所以用了item()來識別當(dāng)前節(jié)點數(shù)據(jù)，隨著StarNodes的遞減＜list＞節(jié)點根著往上移一個個讀�。糽ist＞節(jié)點數(shù)據(jù)。 'objRootsite.childNodes.item(StarNodes).childNodes.item(1).text所對應(yīng)的節(jié)點為具體的每個節(jié)點的文本值，這里(1)所對應(yīng)的就是username用戶名（因為＜list＞節(jié)點的子節(jié)點才是我們真正所要的） '****************************************************************************** text = replace(text,chr(13),"＜br＞") '替代回車 text = replace(text,chr(32)," ") '替代空格 %＞ ＜tr bgcolor="#F0F0F0"＞ ＜td width="21%" height="94" valign="top"＞姓 名：＜%=username%＞＜br＞ 來 自：＜%=fromwhere%＞＜br＞ ＜/td＞ ＜td width="79%" height="94" valign="top"＞ | ＜a href="＜%=homepage%＞" target=_blank title="＜%=username%＞的主頁"＞主頁＜/a＞ | | ＜a href="mailto:＜%=email%＞" title="給＜%=username%＞寫信"＞信箱＜/a＞ | |＜font color="#CC6633"＞ 留言時間：＜%=Posttime%＞ ＜/font＞| ＜hr＞ ＜%=text%＞ ＜/td＞ ＜/tr＞ ＜tr bgcolor="#FFFFFF" align="right"＞ ＜td colspan="2"＞ ＜/td＞ ＜/tr＞ ＜% StarNodes=StarNodes-1 wend set objXML=nothing %＞ ＜tr bgcolor="#FFFFFF" align="right"＞ ＜td colspan="2"＞ 共有<＜%=PageNum%＞>頁 ＜% if cint(PageNo)＜＞PageNum then'分頁 response.write "＜a href='index.asp?PageNo="&(PageNo 1)&"'＞上一頁＜/a＞" end if if cint(PageNo)＜＞1 then response.write "＜a href='index.asp?PageNo="&(PageNo-1)&"'＞下一頁＜/a＞ " end if %＞ ＜/td＞ ＜/tr＞ ＜/table＞ ＜/body＞ ＜/html＞ |
分享：用XMLHTTP很好的一個例子雖然ting88沒有注冊的用戶不能下載歌曲,但搞定它也非難事啊:) 進(jìn)入www.ting88.com的網(wǎng)站,把歌手專輯頁面的URL復(fù)制到文本框中再提交就可以得到歌曲的下載路徑,如:http://www.ting88.com/MusicL
相關(guān)Xml教程：
- xml創(chuàng)建節(jié)點(根節(jié)點、子節(jié)點)
- WML開發(fā)教程之 WAP網(wǎng)站服務(wù)器配置方法
- WMLScript的語法基礎(chǔ)
- 收集的WML Script標(biāo)準(zhǔn)函數(shù)庫
- WML教程之文本框控件Input
- 無線標(biāo)記語言(WML)基礎(chǔ)之WMLScript 基礎(chǔ)
- xml文件的結(jié)構(gòu)解讀
- 關(guān)于XSL - XSL教程
- 選擇模式 - XSL教程 - 2
- XPath入門 - XSL教程 - 3
- 匹配模式 - XSL教程 - 4
- 測試模式 - XSL教程 - 5
- 相關(guān)鏈接：
- 教程說明：
Xml教程-用ASP XML打造留言本(2)
。