الموقع العربي الاول للعبة Silkroad Online

اولا طبعا لازم تعمل import ل system.xml

كود PHP:


		
			
 Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click

        Dim writer As New XmlTextWriter("product.xml", System.Text.Encoding.UTF8)

        writer.WriteStartDocument(True)

        writer.Formatting = Formatting.Indented

        writer.Indentation = 2

        writer.WriteStartElement("Table")



        NewNode(1, "Youssef", "S4A", writer)

        NewNode(2, "Mohamed", "S4A", writer)



        writer.WriteEndElement()

        writer.WriteEndDocument()

        writer.Close()

    End Sub

كود PHP:


		
			
  Private Sub NewNode(ByVal ID As String, ByVal Name As String, ByVal pString As String, ByVal writer As XmlTextWriter)

        writer.WriteStartElement("Youssefs table")

        writer.WriteStartElement("ID")

        writer.WriteString(ID)

        writer.WriteEndElement()

        writer.WriteStartElement("Name")

        writer.WriteString(Name)

        writer.WriteEndElement()

        writer.WriteStartElement("String")

        writer.WriteString(pString)

        writer.WriteEndElement()

        writer.WriteEndElement()

    End Sub