ASP实现类似hashMap功能的类

这篇文章主要介绍了ASP实现类似hashMap功能的类

java中的hashMap存取数据非常方便，可惜ASP中没有类似的类。作者在开发程序中需要类似的数据类型，于是构造了一个能基本类似hashMap功能的类，可以实现键值存取操作等，存取的数据可以为ASP 中的任何基本类型。

下面是程序的代码，贴到一个空的ASP中可以直接运行。

1. <%
2. setvevb=newJb
3. '给mp对象赋值
4. vevb.putva,vevb.com
5. vevb.putvb,www.vevb.net
6. vevb.putvc,http://www.vevb.net
7. response.write[键值数量]:&vevb.count
8. response.write<br>
9. response.write[a]:&vevb.getv(a)
10. response.write<br>
11. response.write:&vevb.getv(b)
12. response.write<br>
13. response.write[c]:&vevb.getv(c)
14. response.write<hr>
15. '删除key为b的键值
16. vevb.delvb
17. response.write[键值数量]:&vevb.count
18. response.write<br>
19. response.write[a]:&vevb.getv(a)
20. response.write<br>
21. response.write:&vevb.getv(b)
22. response.write<br>
23. response.write[c]:&vevb.getv(c)
24. response.write<hr>
25. '清空vevb的所有值
26. vevb.clear
27. '给key为c的键值重新赋值
28. vevb.putvc,http://www.vevb.net
29. response.write[键值数量]:&vevb.count
30. response.write<br>
31. response.write[a]:&vevb.getv(a)
32. response.write<br>
33. response.write:&vevb.getv(b)
34. response.write<br>
35. response.write[c]:&vevb.getv(c)
36. response.write<hr>
37. ClassMtMap
38. privatearr()
39. privatearr_len
40. '构造函数
41. privateSubClass_Initialize
42. '其中arr(0,n)为key,arr(1,n)为value
43. arr_len=0
44. redimarr(1,arr_len)
45. endsub
47. '赋值,如果存在则覆盖
48. publicsubputv(k,v)
49. dimis_update
50. is_update=false
51. arr_len=ubound(arr,2)
52. fori=0toarr_len-1
53. ifk=arr(0,i)then
54. arr(1,i)=v
55. is_update=true
56. exitfor
57. endif
58. next
59. ifnotis_updatethen
60. arr_len=arr_len+1
61. redimpreservearr(1,arr_len)
62. arr(0,arr_len)=k
63. arr(1,arr_len)=v
64. endif
65. endsub
66. '取得key为k的键值
67. publicfunctiongetv(k)
68. dimv
69. v=
70. fori=0toarr_len
71. ifk=arr(0,i)then
72. v=arr(1,i)
73. exitfor
74. endif
75. next
76. getv=v
77. endfunction
79. '删除key为k的键值
80. publicsubdelv(k)
81. arr_len=ubound(arr,2)
82. fori=0toarr_len
83. ifk=arr(0,i)then
84. v=arr(1,i)
85. fork=itoarr_len-1
86. arr(0,k)=arr(0,k+1)
87. arr(1,k)=arr(1,k+1)
88. next
89. arr_len=arr_len-1
90. redimpreservearr(1,arr_len)
91. exitfor
92. endif
93. next
94. endsub
96. '获得vevb中键值的数量
97. publicpropertygetcount()
98. count=arr_len
99. endproperty
101. '清空vevb中所有的键值
102. publicsubclear()
103. arr_len=0
104. redimarr(1,1)
105. endsub
106. endclass
107. %>

以上就是分享的ASP如何实现类似hashMap功能的类，希望对大家的学习有所启发。