📄 temp.aspx
字号:
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Xml" %>
<script runat="server">
sub Page_Load(obj as Object, e as EventArgs)
'retrieve information
dim i as integer
dim objLibrary as XmlTextReader = _
ConfigurationSettings.GetConfig("system.web/Library")
'display information
While objLibrary.Read()
Select Case objLibrary.NodeType
Case XmlNodeType.Element
if objLibrary.HasAttributes then
for i = 0 to objLibrary.AttributeCount - 1
lblLibrary.Text += objLibrary. _
GetAttribute(i) & " "
next
lblLibrary.Text += ", "
end if
Case XmlNodeType.Text
lblLibrary.Text += objLibrary.Value & "<br>"
End Select
End While
objLibrary.Close
end sub
</script>
<html><body>
<asp:Label id="lblLibrary" runat="server"/>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -