ASP字典的使用（包含记录集）

1. Set objDict_Type=Server.CreateObject("Scripting.Dictionary")
   
2. sql="select sValue,sName from Dict_Data where [sDict_Type]='Student_Score_Type' order by iSort"
   
3. set rs=conn.Execute(sql)
   
4.     '//获取统计数据
   
5. 
   
6.         while not rs.eof
   
7.          
   
8.         objDict_Type.Add cstr(rs(1)),rs(0).value
   
9.         
   
10.         rs.movenext
    
11.         wend
    
12. rs.close
    
13. set rs=nothing
    
14. 
    
15. Dim objKeys, objItems, i
    
16. objKeys = objDict_Type.Keys
    
17. objItems = objDict_Type.Items
    
18.    
    
19. 
    
20. For i = 0 To objDict_Type.Count - 1
    
21.     Response.Write "Key=" & objKeys(i) &_
    
22.              " AND Value=" & objItems(i)&vbcrlf
    
23. Next
    
24. 
    
25. Set objDict_Type=nothing

复制代码

1.         Set objDict=Server.CreateObject("Scripting.Dictionary")       
   
2.          
   
3.          
   
4.         objDict.Add cstr(uid),true
   
5.               '//select member
   
6.                         sql="select id from admin where [iParent] in("&uid&")"
   
7.                         set rs=conn.Execute(sql)
   
8.                         while not rs.eof
   
9.                                    If Not objDict.Exists(cstr(rs(0))) Then
   
10.                                  
    
11.                          objDict.Add cstr(rs(0)),True
    
12.                         End If
    
13.                                
    
14.                         rs.movenext
    
15.                         wend
    
16.                         rs.close
    
17.                         set rs=nothing
    
18.       Get_User_List=Join(objDict.keys,",")
    
19.         Set objDict = Nothing
    
20.        
    
21.         dim key
    
22.         for each key in objDict.keys
    
23.                 response.write key & " = " & objDict(key)&VBCRLF
    
24.         next         

复制代码

新增键值

1. Dim Dic
   
2. Set Dic = CreateObject("Scripting.Dictionary")
   
3. '向Dictionary物件中新增键值对
   
4. Dic.Add "Name", "Sirrah" 'Add方法第一个参数是Key值，第二个是Item值
   
5. Dic.Add "Age", 23　

复制代码

　
刪除键值 　　

1. Dim Dic
   
2. Set Dic = CreateObject("Scripting.Dictionary")
   
3. Dic.Add "Name", "Sirrah" '向Dictionary物件中新增键值对
   
4. Dic.Add "Age", 23
   
5. Dic.Item("Age") = 22 '修改键Age的值
   
6. Print Dic.Item("Age") '输出22

复制代码

判断键是否存在　　

1. Dim Dic
   
2. Set Dic = CreateObject("Scripting.Dictionary")
   
3. Dic.Add "Name", "Sirrah" '向Dictionary物件中新增键值对
   
4. Dic.Add "Age", 23
   
5. Print Dic.Exists("Age") '判断键是否存在　

复制代码

一个完整的字典创建管理遍历的实例，包含字典的新增、刪除、判断键是否存在、修改键、修改值、遍历、统计键值对个数

1. <%
   
2. '建立字典
   
3. Dim Dict : Set Dict = CreateObject("Scripting.Dictionary")
   
4. 
   
5. '新增键值对
   
6. Dict.Add "Key1", "Item1"
   
7. Dict.Add "Key2", "Item2"
   
8. Dict.Add "Key3", "Item3"
   
9. 
   
10. '字典中键值对数量
    
11. Response.Write "字典中現有键值对数量: " & Dict.Count ' 打印结果
    
12. 
    
13. '检查指定键是否存在
    
14. If Dict.Exists("Key1") Then
    
15. Response.Write "Key1 存在!"
    
16. Else
    
17. Response.Write "Key1 不存在!"
    
18. End If
    
19. 
    
20. If Dict.Exists("Keyn") Then
    
21. Response.Write "Keyn 存在!"
    
22. Else
    
23. Response.Write "Keyn 不存在!"
    
24. End If
    
25. 
    
26. '遍历字典
    
27.   Sub TraverseDict
    
28.    Dim DictKeys, DictItems, Counter
    
29.    DictKeys = Dict.Keys
    
30.    DictItems = Dict.Items 'Items返回一个包含所有Item值的阵列
    
31.          For Counter = 0 To Dict.Count - 1 'Count返回Dictionary物件键数目
    
32.          Response.Write _
    
33.           "键: " & DictKeys(Counter) & _ '& 字符串连接
    
34.           "值: " & DictItems(Counter)
    
35.          Next
    
36.   End Sub
    
37. 
    
38. TraverseDict
    
39. 
    
40. 
    
41. '在一个键值对中，修改键或修改值
    
42. Dict.Key("Key2") = "Keyx"
    
43. Dict.Item("Key1") = "Itemx"
    
44. TraverseDict
    
45. 
    
46. '删除指定键
    
47. Dict.Remove("Key3")
    
48. TraverseDict
    
49. 
    
50. '删除全部键
    
51. Dict.RemoveAll
    
52. Response.Write "字典中现有键值对数量: " & Dict.Count
    
53. %>

复制代码