asp讀取xml實(shí)例代碼
更新時(shí)間：2009年12月15日 13:38:07 作者：
讀取xml文件的實(shí)例代碼。
language.xml
<?xml version="1.0" encoding="gb2312"?>
<languageRoot>
<!--簡(jiǎn)體中文-->
<language>
<LanguageName>簡(jiǎn)體中文</LanguageName>
<LanguageValue>SimpilifiedChinese</LanguageValue>
<LanguageImages>images</LanguageImages>
<LanguageFile></LanguageFile>
</language>
<!--繁體中文-->
<language1>
<LanguageName>繁體中文</LanguageName>
<LanguageValue>TraditionalChinese</LanguageValue>
<LanguageImages>imagesBig5</LanguageImages>
<LanguageFile>ddd</LanguageFile>
</language1>
</languageRoot>
sl.asp
<%
Set objXML2 = Server.CreateObject("Msxml2.DOMDocument")
objXML2.async = False
loadResult = objXML2.load(Server.MapPath("language.xml"))
if not loadResult then
Response.write "裝載XML文件錯(cuò)誤"
Response.end
end If
Set objNodes = objXML2.getElementsByTagName("languageRoot/language")
For i = 0 to objNodes.length - 1
Response.write Trim(objNodes(i).selectSingleNode("LanguageName").Text)&"<br>"
Response.write Trim(objNodes(i).selectSingleNode("LanguageValue").Text)&"<br>"
Response.write Trim(objNodes(i).selectSingleNode("LanguageImages").Text)&"<br>"
Next
set objNodes = Nothing
Set objNodes = objXML2.getElementsByTagName("languageRoot/language1")
For i = 0 to objNodes.length - 1
Response.write Trim(objNodes(i).selectSingleNode("LanguageName").Text)&"<br>"
Response.write Trim(objNodes(i).selectSingleNode("LanguageValue").Text)&"<br>"
Response.write Trim(objNodes(i).selectSingleNode("LanguageImages").Text)&"<br>"
Response.write Trim(objNodes(i).selectSingleNode("LanguageFile").Text)&"<br>"
Next
set objNodes = Nothing
Set objXML = Nothing
%>
以上代碼，經(jīng)腳本之家編輯測(cè)試通過。
復(fù)制代碼 代碼如下:
<?xml version="1.0" encoding="gb2312"?>
<languageRoot>
<!--簡(jiǎn)體中文-->
<language>
<LanguageName>簡(jiǎn)體中文</LanguageName>
<LanguageValue>SimpilifiedChinese</LanguageValue>
<LanguageImages>images</LanguageImages>
<LanguageFile></LanguageFile>
</language>
<!--繁體中文-->
<language1>
<LanguageName>繁體中文</LanguageName>
<LanguageValue>TraditionalChinese</LanguageValue>
<LanguageImages>imagesBig5</LanguageImages>
<LanguageFile>ddd</LanguageFile>
</language1>
</languageRoot>
sl.asp
復(fù)制代碼 代碼如下:
<%
Set objXML2 = Server.CreateObject("Msxml2.DOMDocument")
objXML2.async = False
loadResult = objXML2.load(Server.MapPath("language.xml"))
if not loadResult then
Response.write "裝載XML文件錯(cuò)誤"
Response.end
end If
Set objNodes = objXML2.getElementsByTagName("languageRoot/language")
For i = 0 to objNodes.length - 1
Response.write Trim(objNodes(i).selectSingleNode("LanguageName").Text)&"<br>"
Response.write Trim(objNodes(i).selectSingleNode("LanguageValue").Text)&"<br>"
Response.write Trim(objNodes(i).selectSingleNode("LanguageImages").Text)&"<br>"
Next
set objNodes = Nothing
Set objNodes = objXML2.getElementsByTagName("languageRoot/language1")
For i = 0 to objNodes.length - 1
Response.write Trim(objNodes(i).selectSingleNode("LanguageName").Text)&"<br>"
Response.write Trim(objNodes(i).selectSingleNode("LanguageValue").Text)&"<br>"
Response.write Trim(objNodes(i).selectSingleNode("LanguageImages").Text)&"<br>"
Response.write Trim(objNodes(i).selectSingleNode("LanguageFile").Text)&"<br>"
Next
set objNodes = Nothing
Set objXML = Nothing
%>
以上代碼，經(jīng)腳本之家編輯測(cè)試通過。
相關(guān)文章
asp時(shí)間加減運(yùn)算 和轉(zhuǎn)換問題2009-03-03
Discuz!NT 論壇整合ASP的方法2009-06-06
asp代碼實(shí)現(xiàn)檢測(cè)組件是否安裝的函數(shù)
asp代碼實(shí)現(xiàn)檢測(cè)組件是否安裝的函數(shù)...2007-08-08
這篇文章主要介紹了asp獲取虛擬目錄根路徑的代碼,需要的朋友可以參考下2017-04-04
asp創(chuàng)建訪問統(tǒng)計(jì)代碼，實(shí)例2008-10-10
做了CDN加速的ASP網(wǎng)站獲取用戶真實(shí)IP程序
寫了下asp取真實(shí)IP的代碼，搭環(huán)境測(cè)試無代理、一級(jí)或多級(jí)代理的情況，可以正常獲取2010-11-11
ASP去掉字符串頭尾連續(xù)回車和空格的Function
去掉字符串頭尾的連續(xù)的回車和空格 去掉字符串開頭的連續(xù)的回車和空格 去掉字符串末尾的連續(xù)的回車和空格2008-12-12
【摘 要】本文詳細(xì)介紹關(guān)于asp代碼實(shí)例學(xué)習(xí)：注冊(cè)登陸代碼的文章專題。2008-05-05
目前已經(jīng)有很多生成html的新聞系統(tǒng)，但是都是用的模板，本函數(shù)實(shí)現(xiàn)把a(bǔ)sp頁面產(chǎn)生的html代碼保存成為一個(gè)html文件，這樣就沒有必要改動(dòng)原來的頁面就可以輕松完成一個(gè)生成html的新聞系統(tǒng)了。^_^2008-12-12
asp取得數(shù)組中的最大值的方法...2007-11-11