繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp读取xml实例代码
- ASP
- 收集整理的ASP的常用内置函数
- 高手推荐的比较有用的ASP函数集合
- ASP中JavaScript处理复杂表单的生成与验证
- asp下tag的实现,简单介绍与部分代码
- 在ASP中用组件检测当前网卡地址的代码
- asp中COM组件中如何连接数据库的代码
- 用ASP创建MDaemon用户的代码
- ASP使用FSO读取模板的代码
- ASP开发中可能遇到的错误信息中文说明大全（整理收集）
- 添加超级用户的.asp代码[蓝屏的原创,凯文改进,Ms未公布的漏洞]
- 全面优化ASP应用程序的性能的方法
- 实现ASP程序执行时间统计类的代码
- ASP中利用execute实现动态包含文件的方法
- asp中向文本框输出数据原样式的函数
- ADODB.Stream组件Charset属性值集合
- 关于ASP代码的加密的几个方法
- 支持权重的无组件ASP广告显示代码
- ASP下实现自动采集程序及入库的代码
- asp读取远程文件并保存到本地代码
- 为什么ASP中执行动态SQL总报错误信息？提示语句语法错误
ASP 中的 asp读取xml实例代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2010-01-10 浏览: 297 ::
收藏到网摘: n/a
读取xml文件的实例代码。 language.xml
复制代码 代码如下:
<?xml version="1.0" encoding="gb2312"?>
<languageRoot>
<!--简体中文-->
<language>
<LanguageName>简体中文</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文件错误"
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
%>
以上代码，经软晨学习网编辑测试通过。
评论 (0) All
