📄 xmlwriter.aspx
字号:
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Xml" %>
<script runat=server>
sub Page_Load(obj as object, e as eventargs)
dim writer as XMLTextWriter
try
writer = new XMLTextWriter(Server.MapPath _
("books2.xml"), nothing)
writer.WriteStartDocument
writer.Formatting = Formatting.Indented
writer.Indentation = 3
writer.WriteStartElement("bookstore")
writer.WriteStartElement("book")
writer.WriteAttribute("genre", "history")
writer.WriteAttribute("style", "hardcover")
writer.WriteElementString("title", "Vietnam")
writer.WriteStartElement("author")
writer.WriteElementString("first-name", _
"Michael")
writer.WriteElementString("last-name", _
"Avery")
writer.WriteEndElement()
writer.WriteElementString("price", _
"6.99")
writer.WriteEndElement()
writer.WriteEndElement()
writer.Flush
catch ex as Exception
Response.Write("Error accessing XML file")
finally
writer.Close
Response.Write("Finished processing")
end try
end sub
</script>
<html><body>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -