ASP的数组不支持键值对，可用Scripting.Dictionary字典对象实现

最新推荐文章于 2026-08-17 16:00:13 发布

原创最新推荐文章于 2026-08-17 16:00:13 发布 · 1.3k 阅读

2 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

web

当前文章被收录于：

web

101 篇文章 0 人学习

订阅专栏查看详情

ASP

当前文章被收录于：

ASP

5 篇文章 0 人学习

订阅专栏查看详情

当前文章被以下社区和专栏收录：

这篇博客介绍了如何在ASP中利用Scripting.Dictionary对象来替代不支持键值对的数组，强调了Dictionary对象的两个主要优点：可以使用字符串作为下标且长度灵活。文中给出了示例代码，展示了如何创建和操作Dictionary对象，以及如何通过键获取值。

Scripting.Dictionary优点：

1、数组下标可以是字符串

2、长度不是固定的

３、可以利用ＡＤＯ　rs.addNew　插入一行数组

转换数组为字符串，并用指定的分隔符连接

str = join(thisArray, 分隔符)

示例

dim sdic

dim i, key,val

key=array('a','b','c')

val=array('text1','text2','text3')

set sdic= Server.CreateObject("Scripting.Dictionary") ' 字典对象

For i =0 To UBound(key)
sdic.Add key(i),val(i) '值可以是数字，字符，或数组等
Next

response.write(sdic.Item("b"))

更详细的应用，以下转：

Dim objDict
Set objDict = WSH.CreateObject("Scripting.Dictionary")
' .Add(key, value)    
objDict.Add "a", "value1"
objDict.Add "b", "value2"
objDict.Add "c", "value3"
'直接通过key=b索引到value2
WSH.Echo(objDict.Item("b"))   'item可省略，objDict("b")
objDict.Remove("b") ' 删除索引b及其对应的值

' 以下是遍历字典
Dim objKeys, objItems, i
objKeys = objDict.Keys
objItems = objDict.Items
For i = 0 To objDict.Count - 1
    WSH.Echo("Key=" & objKeys(i) & _
    " AND Value=" & objItems(i));
Next
' 判断指定的key是否存在
If objDict.Exists("b") Then
    WSH.Echo("Found it")
Else
    WSH.Echo("Not Exists!")
End If
objDict.RemoveAll  ' 清空字典内所有的key及其对应value
Set objDict = Nothing