📄 5-11.asp
字号:
<html>
<head>
<title>字典组件应用示例</title>
</head>
<body>
<H2 align="center">字典组件</H2>
<%
Dim myDictionary '定义一个组件实例变量
Dim strKey,strValue '定义两个变量待用
Set myDictionary=Server.CreateObject("Scripting.Dictionary")
myDictionary.Add "Apple","Red" '设置字典条目的属性值
myDictionary.Add "Orange","Orange"
myDictionary.Add "Banana","Yellow"
Response.Write "<p>字典中的所有条目是：</p>"
For Each key in myDictionary '循环显示所有条目
Response.Write "关键字为："&key&" 属性值为："&myDictionary.Item(key)&"<br>"
Next
Response.Write "<p></p>"
myDictionary.Item("Apple")="Green" '修改字典条目属性
Response.Write "<p>修改后字典中的所有条目是：</p>"
For Each key in myDictionary '循环显示所有条目
Response.Write "关键字为："&key&" 属性值为："&myDictionary.Item(key)&"<br>"
Next
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -