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功能的類，希望對大家的學習有所啟發。