仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 556|回复: 7
打印 上一主题 下一主题

[学习教程] ASP网页设计遍历XML文档前往二维数组(ASP)(更新版)...

[复制链接]
小妖女 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:44:33 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件,简单易用,无需专业技术支持。xml|遍历|数组|xml|遍历|数组<%onerrorresumenext
<![CDATA[]]>成绩没处置
xmlfile="???.xml"
Setxml=Server.CreateObject("MSXML.DOMDocument")
xml.async=false
xml.load(xmlfile)

PublicFunctionPrettyPrint(node,tabLevel)
onerrorresumenext
Ifnode.nodeNamevbNullStrinAndnode.nodeName"#text"Then
PrettyPrint=PrettyPrint&tabLevel&"[sp2]0[sp2]"+node.nodeName+"[sp1]"
ForEachiInnode.Attributes
pstr=pstr+i.Name+"="+i.Value+""
Next
PrettyPrint=PrettyPrint&tabLevel&"[sp2]2[sp2]"+pstr+"[sp1]"
EndIf
Ifnode.hasChildNodesThen
ForEachchildNodeInnode.childNodes
tabLevel=tabLevel+1
PrettyPrint=PrettyPrint+PrettyPrint(childNode,tabLevel)
Next
Else
PrettyPrint=PrettyPrint&tabLevel-1&"[sp2]1[sp2]"+node.Text+"[sp1]"
EndIf
EndFunction
PublicFunctionShowXml(s)
onerrorresumenext
ta=split(s,"[sp1]")
k=ubound(ta)-1
response.write"sta("&k&",2)<p>"
redimsta(k,2)
fori=0tok
ta2=split(ta(i),"[sp2]")
cs1=ta2(0)
cs2=ta2(1)
cs3=ta2(2)
Response.write"sta("&cs1&","&cs2&")="&cs3&"<br>"
sta(cs1,cs2)=cs3
Next
ShowXml=sta
EndFunction
test=ShowXml(PrettyPrint(xml.documentElement,0))
response.write"<tablewidth=100%border=1bgcolor=#dddddd>"+chr(13)
response.write"<trbgcolor=#767A7D>"
response.write"<td>nodeName</td><td>nodeValue</td><td>Attributes</td>"
response.write"</tr>"+chr(13)
forb=0toubound(test)
Iftest(b,0)""then
response.write"<tr"
Ifb=0thenresponse.write"bgcolor=#939495"endif
IfIsEmpty(test(b,1))andb0thenresponse.write"bgcolor=#BABBBC"endif
response.write">"
response.write"<td>"&test(b,0)&"</td>"
response.write"<td>"&test(b,1)&"</td>"
response.write"<td>"&test(b,2)&"</td>"
response.write"</tr>"+chr(13)
Endif
next
response.write"</table>"
%>

PrettyPrint函数前往字符串
ShowXml函数处置PrettyPrint的前往值并前往一个二维数组
</p>ActiveServerPage技术为应用开发商提供了基于脚本的直观、快速、高效的应用开发手段,极大地提高了开发的效果。在讨论ASP的安全性问题之前,让我们来看看ASP是怎么工作的。
沙发
发表于 2015-1-20 11:37:07 | 只看该作者
另外因为asp需要使用组件,所以了解一点组件的知识(ADODB也是组件)
深爱那片海 该用户已被删除
板凳
发表于 2015-1-20 11:37:07 | 只看该作者
还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。
小女巫 该用户已被删除
地板
发表于 2015-1-29 06:58:29 | 只看该作者
学习ASP其实应该上升到如何学习程序设计这种境界,其实学习程序设计又是接受一种编程思想。比如ASP如何学习,你也许在以前的学习中碰到过。以下我仔细给你说几点:
乐观 该用户已被删除
5#
发表于 2015-2-5 23:31:43 | 只看该作者
我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。
兰色精灵 该用户已被删除
6#
发表于 2015-2-14 05:17:29 | 只看该作者
ASP(ActiveServerPages)是Microsfot公司1996年11月推出的WEB应用程序开发技术,它既不是一种程序语言,也不是一种开发工具,而是一种技术框架,不须使用微软的产品就能编写它的代码,能产生和执行动态、交互式、高效率的站占服务器的应用程序。
爱飞 该用户已被删除
7#
发表于 2015-3-19 02:23:57 | 只看该作者
跟学别的语言一样,先掌握变量,流程控制语句(就是ifwhileselect)等,函数/过程,数组
精灵巫婆 该用户已被删除
8#
发表于 2015-3-27 03:11:41 | 只看该作者
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-23 05:52

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表