ÈçºÎÓÃASP¶ÁÈ¡ XML - Web ¿ª·¢ / ASP

<?xml version="1.0"?>
<root>
<status>433</status>
<msg>Õâ¸öÊǺº×Ö</msg>
<serialno>123</serialno>
</root>

ÈçºÎÓÃASP¶ÁÈ¡ statusÖµ msgÖµ serialnoÖµ

---

LZҪѧ»áÓÃËÑË÷ÒýÇæ

---

http://topic.csdn.net/u/20090626/19/67DD3047-1F86-4291-B8EF-62D6782D52F1.html

---

ÓÃMSXML!¸øÄãСʾÀý:
VBScript code:

strPath=Server.MapPath("/template/infotag.xml")
Set parser=Server.CreateObject("Microsoft.XMLDOM")
parser.Load(strPath)
If parser.parseError.errorCode<>0 then
Response.Write "load error..."

End If
Set itemList=parser.selectNodes("//item[@parent='0']")
Dim floatCursor:floatCursor=35
Dim maxindex:maxindex=itemList.length
Response.Write "<div class='item'>"
For I=0 to maxindex-1
Dim strTitle,strID
strTitle=itemList.item(i).firstChild.nodeValue
strID=itemList.item(i).getAttribute("id")

Set childNodes=parser.selectNodes("//item[@parent='"&strID&"']")
If childNodes.length-1>floa