|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
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是怎么工作的。 |
|