xmldomwrite.aspx

来自「asp入门到精通的源代码」· ASPX 代码 · 共 33 行

ASPX
33
字号
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Xml" %>

<script runat=server>
   sub Page_Load(obj as object, e as eventargs)
      dim xmldoc as new XMLDocument()
         
      try
         xmldoc.Load(Server.MapPath("books3.xml"))
         dim eleBook as XmlElement = xmldoc.CreateElement _
            ("book")
         dim attStyle as XmlAttribute = xmldoc.CreateAttribute _
            ("style")

         eleBook.SetAttributeNode(attStyle)
         eleBook.SetAttribute("style", "hardback")

         dim root as XmlElement = xmldoc.Item("bookstore")
         root.AppendChild(eleBook)
         
         xmldoc.Save(Server.MapPath("books3.xml"))

      catch ex as Exception
         strOutput = "Error accessing XML file"
      end try
      
      output.Text = "Append operation successful"
   end sub
</script>

<html><body>
   <asp:Label id="output" runat="server" />
</body></html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?