中文XML论坛--[求助]..请高手。。。。来帮忙

贴子主题： [求助]..请高手。。。。来帮忙

本主题类别:

基于ASP。NET+XML的留言本
  Login.xml:à存储登陆用户的xml文件
<?xml version="1.0" encoding="GB2312"?>
<login>
  <user>
    <loginname>mike</loginname>
    <lgoinpwd>mike</lgoinpwd>
  </user>
  <user>
    <loginname>john</loginname>
    <lgoinpwd>123</lgoinpwd>
  </user>
</login>
guestbook.xml:->存储留言的xml文件
<?xml version="1.0" encoding="GB2312"?>
<guestbook>
  <guest>
    <name>令狐冲</name>
    <email>aa@sina.com</email>
    <qq>11111</qq>
    <homepage>www.sina.com</homepage>
    <comment>一个基于xml的留言本</comment>
  </guest>
</guestbook>
login.aspx.vb:à实现登陆的代码
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim doc As XmlDocument = New XmlDocument
        doc.Load(Server.MapPath("login.xml"))
        Dim fn As XmlNode = doc.SelectSingleNode("login/user[loginname='" & textbox1.Text & "']")
        If fn Is Nothing Then
            Response.Write("查无此人！")
        Else
            If fn.FirstChild.NextSibling.InnerText = textbox2.Text Then
                Response.Redirect("WebForm1.aspx")
            Else
                Response.Write("密码错误！")
            End If
        End If
End Sub

Webform1.aspx.vb:à实现留言的代码
Private Sub savexmldata()
Try

            '载入xml文档
        Dim doc As XmlDocument = New XmlDocument
        doc.Load(Server.MapPath("guestbook.xml"))
        '创建一个新的guest节点并将它添加到根节点下
        Dim newparentnode As XmlElement = doc.CreateElement("guest")
        doc.DocumentElement.AppendChild(newparentnode)
        '创建所有用于存储信息的节点
        Dim namenode As XmlElement = doc.CreateElement("name")
        Dim emailnode As XmlElement = doc.CreateElement("email")
        Dim qqnode As XmlElement = doc.CreateElement("qq")
        Dim homepagenode As XmlElement = doc.CreateElement("homepage")
        Dim commentnode As XmlElement = doc.CreateElement("comment")
        '获取文本信息
        Dim loginnametext As XmlText = doc.CreateTextNode(loginname.Text)
        Dim emailtext As XmlText = doc.CreateTextNode(email.Text)
        Dim qqtext As XmlText = doc.CreateTextNode(qq.Text)
        Dim homepagetext As XmlText = doc.CreateTextNode(homepage.Text)
        Dim commenttext As XmlText = doc.CreateTextNode(content.Text)
        '将上面创建的各个存储信息的节点添加到guest节点下但并不包含最终的值
        newparentnode.AppendChild(namenode)
        newparentnode.AppendChild(emailnode)
        newparentnode.AppendChild(qqnode)
        newparentnode.AppendChild(homepagenode)
        newparentnode.AppendChild(commentnode)
        '将上面获取的文本信息添加到与之相对应的节点中
        namenode.AppendChild(loginnametext)
        emailnode.AppendChild(emailtext)
        qqnode.AppendChild(qqtext)
        homepagenode.AppendChild(homepagetext)
        commentnode.AppendChild(commenttext)
        '保存存储信息的XML文件
        doc.Save(Server.MapPath("guestbook.xml"))
        '转向道显示所有用户留言信息的文件
            Response.Redirect("show.aspx")
        Catch ex As Exception
            Response.Write(ex.Message)
        End Try
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        savexmldata()
        loginname.Text = ""
        qq.Text = ""
        homepage.Text = ""
        email.Text = ""
        content.Text = ""
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        loginname.Text = ""
        qq.Text = ""
        homepage.Text = ""
        email.Text = ""
        content.Text = ""
    End Sub


	W 3 C h i n a ( since 2003 ) 旗下站点苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》	2,070.313ms