当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP实例教程:Dictionary对象

ASP
session的用法具体解说
模仿PHP写的ASP分页
用排序串字段实现树状结构(例程:保存贴子内容)
Recordset对象方法详解
为Html 的Select 加一个提示语和输入方法
PerlScript编写ASP
嘿,大家瞧瞧这老外在页面之间传递元素的办法
防止使用者按上一頁按鈕
利用owc建立EXECL的例子
ASPHttp使用范例-远程读取别人的页面,并自动写入库
实现文件下载而不是由ie打开的代码
ASP在Scripting.Dictionary对象的作用是什么?
一种效率极高的分类算法(转--非常好,帮助很大对于想做好asp的朋友)
论坛关键技术,树状记录表的堆栈展开
例子:文本搜索
用ASP实现播放Flash的例子
利用global.asa计划执行程序(转)
关于如何保障Winnt +asp +sql web站点的安全经验
用Asp修改注册表
优化MICROSOFT ACCESS提高速度

ASP实例教程:Dictionary对象


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-28   浏览: 245 ::
收藏到网摘: n/a

Dictionary 对象

指定的键存在吗?

本例演示如何受首先创建一个Dictionary对象,然后使用Exists方法来检查指定的键是否存在。

本实例代码如下:

<html>
<body>
<%
dim d
set d=Server.CreateObject("Scripting.Dictionary")
d.Add "c", "China"
d.Add "i", "Italy"
if d.Exists("c")= true then
    Response.Write("键存在。")
else
    Response.Write("键不存在。")
end if
set d=nothing
%>
</body>
</html>

本文由软晨学习网(http://www.ruanchen.com)整理发布!转载请注明出处,谢谢!

本实例运行结果如下:

 键存在。

返回一个所有项目的数组

本例演示如何使用Items方法来返回所有项目的一个数组。

本实例代码如下:

<html>
<body>
<%
dim d,a,i,s
set d=Server.CreateObject("Scripting.Dictionary")
d.Add "c", "China"
d.Add "i", "Italy"
Response.Write("<p>项目的值是:</p>")
a=d.Items
for i = 0 To d.Count -1
    s = s & a(i) & "<br>"
next
Response.Write(s)
set d=nothing
%>
</body>
</html>

本实例运行结果如下:

 项目的值是:
China
Italy

返回一个所有键的数组

本例演示如何使用Keys方法来返回所有键的一个数组。

本实例代码如下:

<html>
<body>
<%
dim d,a,i,s
set d=Server.CreateObject("Scripting.Dictionary")
d.Add "c", "China"
d.Add "i", "Italy"
Response.Write("<p>键的值是:</p>")
a=d.Keys
for i = 0 To d.Count -1
    s = s & a(i) & "<br>"
next
Response.Write(s)
set d=nothing
%>
</body>
</html>

本实例运行结果如下:

键的值是:
c
i

返回某个项目的值

本例演示如何使用Item属性来返回某个项目的值。

本实例代码如下:

<html>
<body>
<%
dim d
set d=Server.CreateObject("Scripting.Dictionary")
d.Add "c", "China"
d.Add "i", "Italy"
Response.Write("项目 i 的值是:" & d.item("i"))
set d=nothing
%>
</body>
</html>

本实例运行结果如下:

项目 i 的值是:Italy

设置一个键

本例演示如何使用Key属性来在Dictionary对象中设置一个键。

本实例代码如下:

<html>
<body>
<%
dim d
set d=Server.CreateObject("Scripting.Dictionary")
d.Add "c", "China"
d.Add "i", "Italy"
d.Key("i") = "it"
Response.Write("键 i 已设置为 it,其值是:" & d.Item("it"))
set d=nothing
%>
</body>
</html>

本实例运行结果如下:

键 i 已设置为 it,其值是:Italy

返回键/项目对的数目

本例演示如何使用Count属性来返回键/项目对的数目。

本实例代码如下:

<html>
<body>
<%
dim d, a, s, i
set d=Server.CreateObject("Scripting.Dictionary")
d.Add "c", "China"
d.Add "i", "Italy"
Response.Write("key/item 对的数目是:" & d.Count)
set d=nothing
%>
</body>
</html>

本实例运行结果如下:

key/item 对的数目是:2