ASP实现类似hashMap功能的类

ASP中实现类似HashMap的数据结构

熟悉Ja va的朋友都知道，HashMa

为了解决这个痛点，我们完全可以通过VBScript的类（Class）机制，亲手打造一个具备基本HashMap功能的工具类。这个自制的类可以实现键值对的存入、读取、删除和清空，并且其值可以支持ASP中的所有基本数据类型。

话不多说，下面就是完整的实现代码。你可以将其复制到一个空的ASP文件中，直接运行来看效果。

<%
set jb51 = new Jb
'给mp对象赋值
jb51.putv "a","jb51.net"
jb51.putv "b","www.jb51.net"
jb51.putv "c","https://www.jb51.net"
response.write "[键值数量]:"&jb51.count
response.write "
"
response.write "[a]:"&jb51.getv("a")
response.write "
"
response.write ":"&jb51.getv("b")
response.write "
"
response.write "[c]:"&jb51.getv("c")
response.write "
"
'删除key为"b"的键值
jb51.delv "b"
response.write "[键值数量]:"&jb51.count
response.write "
"
response.write "[a]:"&jb51.getv("a")
response.write "
"
response.write ":"&jb51.getv("b")
response.write "
"
response.write "[c]:"&jb51.getv("c")
response.write "
"
'清空jb51的所有值
jb51.clear
'给key为"c"的键值重新赋值
jb51.putv "c","https://www.jb51.net"
response.write "[键值数量]:"&jb51.count
response.write "
"
response.write "[a]:"&jb51.getv("a")
response.write "
"
response.write ":"&jb51.getv("b")
response.write "
"
response.write "[c]:"&jb51.getv("c")
response.write "
"

Class MtMap
    private arr()
    private arr_len

    '构造函数
    private Sub Class_Initialize
        '其中 arr(0,n)为key,arr(1,n)为value
        arr_len = 0
        redim arr(1,arr_len)
    end sub

    '赋值,如果存在则覆盖
    public sub putv(k,v)
        dim is_update
        is_update = false
        arr_len = ubound(arr,2)
        for i=0 to arr_len-1
            if k=arr(0,i) then
                arr(1,i) = v
                is_update = true
                exit for
            end if
        next
        if not is_update then
            arr_len = arr_len +1
            redim preserve arr(1,arr_len)
            arr(0,arr_len) = k
            arr(1,arr_len) = v
        end if
    end sub

    '取得key为"k"的键值
    public function getv(k)
        dim v
        v = ""
        for i=0 to arr_len
            if k=arr(0,i) then
                v = arr(1,i)
                exit for
            end if
        next
        getv = v
    end function

    '删除key为"k"的键值
    public sub delv(k)
        arr_len = ubound(arr,2)
        for i=0 to arr_len
            if k=arr(0,i) then
                v = arr(1,i)
                for k = i to arr_len-1
                    arr(0,k) = arr(0,k+1)
                    arr(1,k) = arr(1,k+1)
                next
                arr_len = arr_len - 1
                redim preserve arr(1,arr_len)
                exit for
            end if
        next
    end sub

    '获得jb51中键值的数量
    public property get count()
        count = arr_len
    end property

    '清空jb51中所有的键值
    public sub clear()
        arr_len = 0
        redim arr(1,1)
    end sub
end class
%>

通过上面的代码示例和自实现的`MtMap`类，我们成功在ASP环境中搭建了一个轻量级的键值对存储工具。其思路清晰，实现直接，对于理解数据结构在具体语言中的落地颇有帮助。希望这个实现能给正在处理类似需求的你，带来一些实用的启发和思路。