Inicio>Tutorial de programación de red>Tutorial ASP

ASP implementa clases similares a las funciones de Hashmap

Autor：Eve Cole Fecha de actualización：2025-02-25 15:32:02

Este artículo presenta principalmente clases de implementos ASP similares a las funciones de hashmap

Hashmap en Java es muy conveniente para acceder a los datos, pero desafortunadamente no hay una clase similar en ASP. El autor necesita tipos de datos similares en el programa de desarrollo, por lo que construyó una clase que básicamente puede ser similar a la función hashmap, que puede implementar operaciones de acceso de valor clave, etc. Los datos accedidos pueden ser cualquier tipo básico en el ASP.

A continuación se muestra el código del programa, que se puede ejecutar directamente en un ASP vacío.

  1. <%
  2. setVevb = newJB
  3. 'Asignar valor al objeto MP
  4. Vevb.putva, Vevb.com
  5. VEVB.putvb, www.Vevb.net
  6. VEVB.putvc, http: //www.vevb.net
  7. Response.WRITE [Número de valor clave]: & 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. 'Eliminar el valor de la clave con la tecla B
  16. VEVB.DELVB
  17. Response.WRITE [Número de valor clave]: & 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. 'Borrar todos los valores de VEVB
  26. VEVB.
  27. 'Reasignar el valor clave de la clave a C
  28. VEVB.putvc, http: //www.vevb.net
  29. Response.WRITE [Número de valor clave]: & 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. Mapa de clase
  38. privatearr ()
  39. privatearr_len
  40. 'Constructor
  41. privatesubclass_initialize
  42. 'Donde arr (0, n) es clave, arr (1, n) es valor
  43. arr_len = 0
  44. redimarr (1, arr_len)
  45. Endsub
  47. 'Asignación, si está presente, sobrescribe
  48. Publicsubputv (K, V)
  49. dimis_update
  50. is_update = falso
  51. arr_len = ubund (arr, 2)
  52. fori = 0toarr_len-1
  53. ifk = arr (0, i) entonces
  54. arr (1, i) = V
  55. is_update = verdadero
  56. salir
  57. endif
  58. próximo
  59. ifnotis_updatethen
  60. arr_len = arr_len+1
  61. redemperServearr (1, arr_len)
  62. arr (0, arr_len) = k
  63. arr (1, arr_len) = v
  64. endif
  65. Endsub
  66. 'Obtenga el valor de la clave con la tecla K
  67. PublicFunctionGetv (k)
  68. dimv
  69. v =
  70. fori = 0toarr_len
  71. ifk = arr (0, i) entonces
  72. v = arr (1, i)
  73. salir
  74. endif
  75. próximo
  76. getV = V
  77. Función final
  79. 'Eliminar el valor de la clave con la tecla K
  80. Publicsubdelv (k)
  81. arr_len = ubund (arr, 2)
  82. fori = 0toarr_len
  83. ifk = arr (0, i) entonces
  84. v = arr (1, i)
  85. horquilla = itoarr_len-1
  86. arr (0, k) = arr (0, k+1)
  87. arr (1, k) = arr (1, k+1)
  88. próximo
  89. arr_len = arr_len-1
  90. redemperServearr (1, arr_len)
  91. salir
  92. endif
  93. próximo
  94. Endsub
  96. 'Obtenga el número de valores clave en VEVB
  97. publicPropertygetCount ()
  98. count = arr_len
  99. endpropertía
  101. 'Borrar todos los valores clave en VEVB
  102. PublicsubClear ()
  103. arr_len = 0
  104. Redimarr (1,1)
  105. Endsub
  106. clase final
  107. %>

Lo anterior es cómo ASP puede implementar clases similares a las funciones de Hashmap.

Artículos relacionados