xml write or read 操作

寫入的字段加密，並轉為字符型字段
Dim converter As System.Text.UnicodeEncoding = New System.Text.UnicodeEncoding()
        Dim inputString As String = converter.GetString(Cryptogram.TCryptogram.EnCode("1211"))
        Me.Label1.Text += inputString.ToString

        Dim writer As XmlTextWriter = Nothing
        Try
            writer = New XmlTextWriter(Server.MapPath("xml/serverbase.xml"), Nothing)
            writer.Formatting = Formatting.Indented
            writer.Indentation = 4

            writer.WriteComment("sample XML fragment")

            ' Write an element (this one is the root).
            writer.WriteStartElement("book")

            ' Write the title.
            writer.WriteStartElement("title")
            writer.WriteString(inputString)
            writer.WriteEndElement()

            writer.Flush()
            writer.Close()

        Finally

            If Not (writer Is Nothing) Then
                writer.Close()
            End If
        End Try

讀出字段，並對字段解密
        Dim ConfigFile As String = "xml/serverbase.xml"

        Dim ConnStr As String = String.Empty

        If (File.Exists(Server.MapPath(ConfigFile))) Then
            Dim reader As XmlTextReader = New XmlTextReader(Server.MapPath(ConfigFile))
            While reader.Read()
                'If (reader.NodeType = XmlNodeType.Element) Then
                '    Select Case (reader.Name)
                '        Case "server"
                '            Exit Select
                '            'Case "database"
                '            '    Me.Label1.Text += "database="
                '            'Case "uid"
                '            '    Me.Label1.Text += "uid="
                '    End Select

                'End If
                If (reader.NodeType = XmlNodeType.Text) Then
                    Me.Label1.Text += Cryptogram.TCryptogram.DeCode(converter.GetBytes(reader.Value))
                End If
            End While
        End If