MiThink 记事本

在网上看到这个题目：
用户在文本框中任意输入字符和数字，当用户单击命令按钮时，统计各个字母和数字出现的次数，并将其在浏览器中输出。

想起之前看过一篇相关的文章，自己无聊就写了一下。

function t(c)
if c="" then exit function
        c = trim(c)
        b = left(c,1)
        d = replace(c,b,"")
        response.write(b&":"&(len(c)-len(d))&"<br>")
        if len(d)>0 then t(d)
end function

调用方法：

dim a
a = "a23b3a"
t(a)

统计结果：
a:2
2:1
3:2
b:1