📄 xmlreader2.aspx
字号:
<%@ Import Namespace="System.Xml" %>
<script language="VB" runat=server>
sub Page_Load(obj as object, e as eventargs)
dim reader as XMLTextReader
dim i as integer
dim curPrice as Decimal
try
reader = new XMLTextReader(Server.MapPath("books.xml"))
While reader.Read()
Select Case reader.NodeType
Case XMLNodeType.Element
if reader.HasAttributes then
for i = 0 to reader.AttributeCount - 1
Response.Write(reader.GetAttribute(i) & " ")
next
Response.Write("<br>")
end if
Case XMLNodeType.Text
Response.Write(reader.Value & "<br>")
End Select
End While
catch ex as Exception
Response.Write("Error accessing XML file")
finally
reader.close
end try
end sub
</script>
<html><body>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -