XML برای برنامه نويسان VB و ASP

مثال :  يک سندXML

<?xml version="1.0"?>
<mycomputer>
  <pc>
       <type>Laptop</type>
       <brand>Toshiba</brand>
       <model>Tecra 8000</model>
       <processor>300 Mhz Pentium II</processor>
       <ram>128 MB</ram>
       <drives>
           <drive>9 MB Hard Disk</drive>
           <drive>1.4 MB Floppy Disk</drive>
           <drive>CD-ROM</drive>
       </drives>
       <display>14 inch active matrix LCD panel</display>
        <modem>Toshiba internal V.90</modem>
          <network>Xircom Cardbus Ethernet II 10/100</network>
   </pc>
   <docking_station/>
   <case>
          <brand>USL</brand>
          <color>black</color>
         <fabric>vinyl</fabric>
    </case>
</mycomputer>

توضيحات

ويژگی

<?xml version="1.0"?>

تعريف XML. هر سند XML، می بايست با تعريف XMLآغاز گردد. تعريف فوق می بايست بصورت حروف کوچک انجام گردد . تعريف XMLبخشی از قسمت Prologيک سند XMLاست . در مثال ارائه شده ، تنها بخش موجود در prologهمين تعريف است . در بخش Prologمی توان DTDو يا XSLرا نيز مشخص نمود.

<?xml version="1.0"?>
<mycomputer>
...
</mycomputer>
 

المان های XML. سندهای XMLاز المان های متفاوتی تشکيل می گردند. يک المان دارای يک تگ آغاز ، محتويات و يک تگ پايان است .  <ram>128 MB</ram>  . تمام سندهای XMLدارای يک المان ريشه می باشند . در مثال ارائه شده mycomputer  بمنزله المان ريشه است .

<ram>128 MB</ram>

اسامی المان ها . نام درنظر گرفته برای المان ها ، می بايست با يک حرف ، _ ،  و يا يک کالون شروع شود. هر کاراکتر بعد از حرف اول ، می تواند يک حرف ، يک عدد ،  يک _ يک کالون ، يک Hyphenو يا يک نقطه باشد . اسامی المان ها نمی تواند شامل فضای خالی باشد .

محتويات المان ها . متن موجود بين تگ های آغاز و پايان بعنوان محتويات يک المان در نظر گرفته شده و می تواند شامل : >  ، <  و & باشد. با توجه به استفاده  خاص از کاراکترهای فوق در سندهای XML، در صورت ضرورت به استفاده از حروف فوق در متن محتويات يک المان ، می توان از کد معادل آنها استفاده کرد . مثلا" در صورت تعريف المان <formula> ، می توان محتويات آن را  بصورت زير مشخص می گردد .
 <formula>x &lt; y + 5</formula>

المان های تودرتو صحيح :
 <case>
    <brand>USL</brand>
    <color>black</color>
    <fabric>vinyl</fabric>
</case>
 

المان های تودرتو . تمام المان های تودرتو بطور کامل همراه المان های مادر خود قرار گرفته و می بايست شامل تگ های آغاز و پايان در بلاک داخلی مربوطه باشند .  در صورتيکه المان های فرزند دارای تگ های پايان در ساختار داخلی مربوطه نباشند ، سند XML  درست نخواهد بود . در مثال زير المان <brand> فرزند المان <case> است . بنابراين می بايست تگ پايان آن نيز درون المان <case>  قرار گيرد .
<case>
 <brand>    
<color>black</color>    
<fabric>vinyl</fabric>    
     </case>
</brand>

روش اول :
<element/>
روش دوم :
<element></element>

المان تهی .  يک المان تهی  را می توان به دو صورت مشخص نمود . در مثال ارائه شده يک المان تهی تعريف شده است :
<docking_station/>
 

مثال :  يک سندXML با تاکيد بر استفاده از خصلت ها برای ارائه اطلاعات اضافه

<?xml version="1.0"?>
<mycomputer>
   <pc type="Laptop" brand="Toshiba" model="Tecra 8000">
    <processor>300 Mhz Pentium II</processor>
    <ram>128 MB</ram>
    <drives>
       <drive>9 MB Hard Disk</drive>
       <drive>1.4 MB Floppy Disk</drive>
       <drive>CD-ROM</drive>
     </drives>
   <display>14 inch active matrix LCD panel</display>
   <modem>Toshiba internal V.90</modem>
   <network>Xircom Cardbus Ethernet II 10/100</network>
 </pc>
<docking_station/>
<case brand="USL">
   <color>black</color>
    <fabric>vinyl</fabric>
</case>
</mycomputer>

توضيحات

ويژگی

<element  
attribute_1="value_1" attribute_2="value_2" ...
attribute_n="value_n">
 

خصلت ها . المان PC،  دارای سه خصلت است .
<pc type="Laptop" brand="Toshiba" model="Tecra 8000">
خصلت ها در XMLشامل نام و مقدار می باشند . برخلاف Html، مقدار خصلت های استفاده شده در XML  ، می بايست بين علامت " " ، قرار گيرد .

<!-- توضيحات دلخواه-->
 

توضيحات . برای ارا ئه توضيحات در فايل های XML از فرم عمومی روبرو استفاده می شود .

<?xml version="1.0"?>
<mycomputer>
<pc xmlns:org="url:test.com:schema-org"
   xmlns:pc="url:test.com:schema-pc"  >
<org:type>Accounting</org:type>
<pc:type>Laptop</pc:type>
 

Namespace. فرض کنيد يک سند XMLرا ايجاد و قصد ترکيب آن با يک سند XMLديگر را داريم . يکی از مسائلی که ممکن است در زمان ترکيب دو سند مطرح گردد ، استفاده از اسامی مشابه برای المان هائی است که دارای مفهومی کاملا" متفاوت می باشند . ( مثلا" در يک سند از المان <name> بمنظور مشخص نمودن نام يک شهر استفاده شده و در سند ديگر از المان <name> برای مشخص نمودن نام کتاب استفاده شده است ) . بمنظور حل مشکل فوق از namespaceاستفاده می گردد . namespace، مجموعه ای از المان ها بهمراه خصلت های مربوطه بوده که به يک آدرس URLمرتبط تا منحصر بفرد بودن اسامی المان ها را تضمين نمايد . برای تعريف يک namespaceاز خصلت xmlnsبهمراه تگ شروع يک المان استفاده می گردد . پس از تعريف namespace، زمينه استفاده از آن برای هر يک از المان های موجود در سند xmlفراهم می گردد .در مثال روبرو ، دو namespaceبا نام pc  و orgتعريف و در ادامه ساير المان ها ی موجود در سند از آنان استفاده نموده اند .

<? name data?>

دستورالعمل های پردازش . از دستورالعمل های پردازش بمنظور ارسال اطلاعات خاص برای برنامه ای که قصد پردازش سند XMLرا دارد ، استفاده  می گردد . تعريف XMLکه در ابتدای فايل های XMLقرار می گيرد ، نمونه ای از اينگونه دستورات است .  برخی از دستورات پردازش که با xmlشروع می گردند، رزو شده می باشند .

مثال :  يک نمونه  DTDداخلی

<?xml version="1.0"?>
    <!DOCTYPE message [
    <!ELEMENT message (#PCDATA)>
    ]>
<message>
     Internal  DTD
</message>

مثال :  يک نمونه  DTDخارجی

<?xml version="1.0"?>
<!DOCTYPE message SYSTEM "message.dtd">
<message>
   External  DTD
</message>

مثال :  يک سندXMLبهمراه DTDمربوطه

<?xml version="1.0"?>
<!DOCTYPE mycomputer [
<!ELEMENT mycomputer (pc, docking_station, case)>
<!ELEMENT pc (processor, ram, drives, display,modem, network)>
<!ATTLIST pc
type (Laptop|Desktop) "Desktop"
brand CDATA #IMPLIED
model CDATA #IMPLIED>
<!ELEMENT processor (#PCDATA)>
<!ELEMENT ram (#PCDATA)>
<!ELEMENT drives (drive*)>
<!ELEMENT drive (#PCDATA)>
<!ELEMENT display (#PCDATA)>
<!ELEMENT modem (#PCDATA)>
<!ELEMENT network (#PCDATA)>
<!ELEMENT docking_station (#PCDATA)>
<!ELEMENT case (color, fabric)>
<!ATTLIST case
brand CDATA #IMPLIED>
<!ELEMENT color (#PCDATA)>
<!ELEMENT fabric (#PCDATA)>
]>

<mycomputer>
<pc type="Laptop" brand="Toshiba" model="Tecra 8000">
<processor>300 Mhz Pentium II</processor>
<ram>128 MB</ram>
<drives>
<drive>9 MB Hard Disk</drive>
<drive>1.4 MB Floppy Disk</drive>
<drive>CD-ROM</drive>
</drives>
<display>14 inch active matrix LCD panel</display>
<modem>Toshiba internal V.90</modem>
<network>Xircom Cardbus Ethernet II 10/100</network>
</pc>
<docking_station/>
<case brand="USL">
<color>black</color>
<fabric>vinyl</fabric>
</case>
</mycomputer>

مثال :  بخش آغازين يک سندXML  و نحوه  استفاده از DTDبصورت خارجی

<?xml version="1.0"?>
<!DOCTYPE mycomputer SYSTEM "mycomputer.dtd">
<mycomputer>
        ....  
</mycomputer>

مثال :  XML-Data Schema   مربوط به سند XML

<schema xmlns = "http://www.w3.org/2001/XMLSchema">
<ElementType name="mycomputer" content="eltOnly" order="seq">
      <element type="pc"/>
      <element type="docking_station"/>
      <element type="case"/>
</ElementType>
<ElementType name="pc" content="eltOnly" order="seq">
     <element type="processor"/>
     <element type="ram"/>
     <element type="drives"/>
     <element type="display"/>
     <element type="modem"/>
     <element type="network"/>
</ElementType>
<ElementType name="pc">
     <AttributeType name="type"
      xmlns:dt="urn:schemas-microsoft-com:datatypes"
      dt:type="enumeration" dt:values="Laptop Desktop"
      default="Desktop"/>
     <AttributeType name="brand" required="no"/>
     <AttributeType name="model" required="no"/>
     <attribute type="type"/>
     <attribute type="brand"/>
     <attribute type="model"/>
</ElementType>
    <ElementType name="processor" content="textOnly"/>
    <ElementType name="ram" content="textOnly"/>
    <ElementType name="drives" content="eltOnly">
       <element type="drive" minOccurs="0" maxOccurs="*"/>
</ElementType>
    <ElementType name="drive" content="textOnly"/>
    <ElementType name="display" content="textOnly"/>
    <ElementType name="modem" content="textOnly"/>
    <ElementType name="network" content="textOnly"/>
    <ElementType name="docking_station" content="textOnly"/>
    <ElementType name="case" content="eltOnly" order="seq">
        <element type="color"/>
        <element type="fabric"/>
</ElementType>
<ElementType name="case">
    <AttributeType name="brand" required="no"/>
    <attribute type="brand"/>
</ElementType>
<ElementType name="color" content="textOnly"/>
<ElementType name="fabric" content="textOnly"/>
</Schema>

مثال :  يک سندXML  نمونه (mycomputer.xml)

<?xml version="1.0"?>
<mycomputer>
  <pc>
     <type>Laptop</type>
     <brand>Toshiba</brand>
     <model>Tecra 8000</model>
     <processor>300 Mhz Pentium II</processor>
     <ram>128 MB</ram>
     <drives>
        <drive>9 MB Hard Disk</drive>
        <drive>1.4 MB Floppy Disk</drive>
        <drive>CD-ROM</drive>
     </drives>
     <display>14 inch active matrix LCD panel</display>
     <modem>Toshiba internal V.90</modem>
     <network>Xircom Cardbus Ethernet II 10/100</network>
   </pc>
   <docking_station/>
    <case>
      <brand>USL</brand>
      <color>black</color>
      <fabric>vinyl</fabric>
   </case>
</mycomputer>

مثال :  بازيابی اولين گره موجود در سند mycomputer.xml  ( نسخه VBScript)

<HTML>
<HEAD>
<TITLE>XML Example </TITLE>
<SCRIPT LANGUAGE=vbscript>
<!--
Function getXML()
Dim xmlDoc
Dim xmlRoot
Dim xmlNode
Set xmlDoc = CreateObject("Microsoft.xmldom")
xmlDoc.async = False
xmlDoc.load("mycomputer.xml")
Set xmlRoot = xmlDoc.documentElement
Set xmlNode = xmlRoot.childNodes(0)
divHere.innerHTML = _
"<H3>" & xmlNode.nodeName & "</H3>"
End Function
-->
</SCRIPT>
</HEAD>
<BODY onload="getXML()">
<H1>بازيابی اولين گره</H1>
<DIV ID="divHere"></DIV>
</BODY>
</HTML>

در صورت مشاهده صفحه فوق در مرورگر ، خروجی زير مشاهده خواهد شد :
بازيابی اولين گره
pc

مثال :  بازيابی اولين گره موجود در سند mycomputer.xml  ( نسخه JavaScript)

<HTML>
<HEAD>
<TITLE>XML Example </TITLE>
<SCRIPT LANGUAGE=javascript>
<!--
function getXML() {
var xmlDoc
var xmlRoot
var xmlNode
xmlDoc = new ActiveXObject("Microsoft.xmldom")
xmlDoc.async = false
xmlDoc.load("mycomputer.xml")
xmlRoot = xmlDoc.documentElement
xmlNode = xmlRoot.childNodes(0)
divHere.innerHTML =
"<H3>" + xmlNode.nodeName + "</H3>"
}
//-->
</SCRIPT>
</HEAD>
<BODY onload="getXML()">
<H1>بازيابی اولين گره</H1>
<DIV ID="divHere"></DIV>
</BODY>
</HTML>

در صورت مشاهده صفحه فوق در مرورگر ، خروجی زير مشاهده خواهد شد :
بازيابی اولين گره
pc

مثال :  کدهای لازم بمنظور ايجاد يک نمونه شی XML DOMو استقرار سند XMLدر حافظه

Set xmlDoc = CreateObject("Microsoft.xmldom")
xmlDoc.async = False
xmlDoc.load("mycomputer.xml")

مثال :  کدهای لازم بمنظور ايجاد يک نمونه شی XML DOMو استقرار سند XMLدر حافظه

xmlDoc = new ActiveXObject("Microsoft.xmldom")
xmlDoc.async = false
xmlDoc.load("mycomputer.xml")

مثال :  بازيابی تمام گره های موجود در يک سند XMLو نمايش آنها با يک فرمت مناسب

<HTML>
<HEAD>
<TITLE>XML Example </TITLE>
<STYLE>
H3 {color: blue}
</STYLE>
<SCRIPT LANGUAGE=vbscript>
<!--
Option Explicit
Function getXML()
Dim xmlDoc
Dim xmlRoot
Dim xmlPNode
Dim xmlNode
Dim strDoc
Set xmlDoc = CreateObject("Microsoft.xmldom")
xmlDoc.async = False
xmlDoc.load("mycomputer.xml")
Set xmlRoot = xmlDoc.documentElement
For Each xmlPNode In xmlRoot.childNodes
  strDoc = strDoc & "<H3>" & xmlPNode.nodeName & "</H3>"
  If xmlPNode.childNodes.length = 0 Then
     strDoc = strDoc & "<I>No data</I>"
  Else
    strDoc = strDoc & "<TABLE border>"
    For Each xmlNode In xmlPNode.childNodes
    strDoc = strDoc & "<TR>" & _
    "<TD><B>" & xmlNode.nodeName & ":</B></TD>" & _
    "<TD>" & xmlNode.text + "</TD>" & "</TR>"
   Next
 End If
  strDoc = strDoc & "</TABLE>"
Next
divHere.innerHTML = strDoc
End Function
-->
</SCRIPT>
</HEAD>
<BODY onload="getXML()">
<H1 align="center" dir="rtl">بازيابی تمام المانهای يک سندXML</H1>
<DIV ID="divHere"></DIV>
</BODY>
</HTML>

خروجی برنامه فوق پس از مشاهده صفحه مربوطه در مرورگر به شکل زير خواهد بود :
بازيابی تمام المان های يک سند XML
pc

docking_station
No data
case

مثال :  بازيابی تمام گره های موجود در يک سند XML (نسخه جاوااسکريپت )

xmlRoot = xmlDoc.documentElement
strDoc = "<TABLE>"
for (intI=0; intI <= xmlRoot.childNodes.length-1;intI++) {
      xmlPNode = xmlRoot.childNodes(intI)
      strDoc = strDoc +"<H3>" + xmlPNode.nodeName + "</H3>"
      if (xmlPNode.childNodes.length == 0)
         strDoc = strDoc + "<I>No data</I>"
     else {
               strDoc = strDoc + "<TABLE border>"
               for (intJ=0;intJ <= xmlPNode.childNodes.length-1;intJ++) {
                 xmlNode = xmlPNode.childNodes(intJ)
                 strDoc = strDoc + "<TR>" +
                 "<TD><B>" + xmlNode.nodeName + ":</B></TD>" +
                 "<TD>" + xmlNode.text + "</TD>" +
                "</TR>"
              }
       strDoc = strDoc + "</TABLE>"
     }
}

مثال : بازيابی يک المان خاص با استفاده از متد getElementsByTagName( نسخه Vbscript)

Function getXML()
  Dim xmlDoc
  Dim xmlNodes
  Set xmlDoc = CreateObject("Microsoft.xmldom")
  xmlDoc.async = False
  xmlDoc.load("mycomputer.xml")
  Set xmlNodes = xmlDoc.getElementsByTagName("pc/ram")
  divHere.innerHTML = xmlNodes.item(0).text
End Function

مثال: بازيابی يک المان خاص با استفاده از متد getElementsByTagName( نسخه javascript)

function getXML() {
   var xmlDoc
   var xmlNodes
   xmlDoc = new ActiveXObject("Microsoft.xmldom")
   xmlDoc.async = false
   xmlDoc.load("mycomputer.xml")
   xmlNodes = xmlDoc.getElementsByTagName("pc/ram")
   divHere.innerHTML = xmlNodes.item(0).text
}

مثال :  نمايش خصلت های يک المان ( نسخه VBScript)

<HTML>
<HEAD>
<TITLE>XML Example </TITLE>
<SCRIPT LANGUAGE=vbscript>
<!--
  Function getXML( )
    Dim xmlDoc
    Dim xmlAtt
    Dim xmlPNode
    Dim strDoc
    Dim xmlNodes
    Dim xmlPCNode
    Set xmlDoc = CreateObject("Microsoft.xmldom")
    xmlDoc.async = False
    xmlDoc.load("mycomputer.xml")
    Set xmlNodes = xmlDoc.getElementsByTagName("pc")
     Set xmlPCNode = xmlNodes.item(0)
     For Each xmlAtt in xmlPCNode.attributes
        strDoc = strDoc & "<BR><B>" & xmlAtt.nodeName & ":</B>" & _
        xmlAtt.text
     Next
     divHere.innerHTML = strDoc
  End Function
-->
</SCRIPT>
</HEAD>
<BODY onload="getXML( )">
<H1 align="center" dir="rtl">بازيابی خصلت های يکالمان</H1>
<DIV ID="divHere"></DIV>
</BODY>
</HTML>

خروجی برنامه فوق پس از مشاهده صفحه مربوطه در مرورگر به صورت زير است :
بازيابی خصلت های يک المان

type:Laptop
brand:Toshiba
model:Tecra 8000

مثال :  نمايش خصلت های يک المان ( نسخه JavaScript) - فقط حلقه تکرار آورده شده است .

 for (intI=0;intI <= xmlPCNode.attributes.length-1;intI++) {
   xmlAtt = xmlPCNode.attributes(intI)
   strDoc = strDoc +  "<BR><B>" + xmlAtt.nodeName + ": </B>" +
   xmlAtt.text
}

مثال :  پردازش يک فايل XMLبرروی سرويس دهنده و ارائه خروجی مناسب

<%@ Language=VBScript %>
<%Option Explicit%>
<HTML>
<HEAD>
<TITLE>XML/ASP Example </TITLE>
<STYLE>
H3 {color: blue}
</STYLE>
</HEAD>
<H1>Mycomputer XML Tree Parsed on the Server</H1>
<%
 Dim xmlDoc
 Dim xmlRoot
 Dim xmlPNode
 Dim xmlNode
 Dim strDoc
 Set xmlDoc = Server.CreateObject("Microsoft.xmldom")
 xmlDoc.async = False
 xmlDoc.load(Server.MapPath("mycomputer.xml"))
 Set xmlRoot = xmlDoc.documentElement
 For Each xmlPNode In xmlRoot.childNodes
  strDoc = strDoc & "<H3>" & xmlPNode.nodeName & "</H3>"
  If xmlPNode.childNodes.length = 0 Then
     strDoc = strDoc & "<I>No data</I>"
  Else
    strDoc = strDoc & "<TABLE border>"
    For Each xmlNode In xmlPNode.childNodes
      strDoc = strDoc & "<TR>" & _
      "<TD><B>" & xmlNode.nodeName & ":</B></TD>" & _
      "<TD>" & xmlNode.text + "</TD>" & _
      "</TR>"
   Next
 End If
 strDoc = strDoc & "</TABLE>"
Next
Response.Write strDoc
%>
</BODY>
</HTML>