XML¶ÁÈ¡ÎÊÌâ - Web ¿ª·¢ / ASP
<?xml version="1.0" encoding="UTF-8" ?>
<list version="3.0">
<title>title</title>
<book>
<type>
<id>1022</msgid>
<name>66</name>
</type>
......
<type>
<id>1023</id>
<name>77</name>
</type>
</book>
</list>
¶ÁÈ¡£º
Set XML = Server.CreateObject ("Microsoft.XMLDOM")
xml.async = False
xml.Load Request
set root=xml.documentElement
title= root.childNodes.item(0).text
Set oXMLItems = root.selectNodes("book")
oXMLtype=oXMLItems(0).selectNodes("type")
iLength = oXMLtype.length - 1
For i = 0 To iLength
Set oXMLItem = oXMLmessages.item(i)
id= oXMLItem.getAttribute("id")
name= oXMLItem.getAttribute("name")
Next
¸ßÊÖÖ¸µã´íÔÚÄÄ°¡¡£¡£¡£
<?xml version="1.0" encoding="UTF-8" ?>
<list version="3.0">
<title>title</title>
<book>
<type>
<id>1022</msgid>
<name>66</name>
Ïà¹ØÎÊ´ð£º
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
ΪʲôÎҵijÌÐòµ÷ÓÃXMLÅäÖÃÎļþÖеİ¢À²®ÎÄÏÔʾ²»³öÀ´£¿ÆäËûµÄÓïÖÖ¶¼¿ÉÒÔ£¬ÈçÖÐÎÄ£¬Ó¢ÎÄ£¬µÂÎĶ¼¿É¡£
ÎÒ½«XMLµÄ±àÂë¸ÄΪutf-8ºÍunicodeµÄµ½µÃ½á¹û¶¼Ò»Ñù.
°¢À²®ÎĵÄ×Ö¿âÄãÓÐô£¿
ÓÐ,ÎÒµÄEXEÊÇ·ÅÔÚpc»úÉÏÖ´Ðе ......
ÏÂÃæÊÇXML³õʼÎļþÄÚÈÝ
XML code:
<upd:Update xmlns:lar="http://schemas.microsoft.com/msus/2002/12/LogicalApplicabilityRules" xmlns:cmd="http://schemas.microsoft.com/msus/2002/12/Up ......