各位前辈帮忙下,这段JS怎么改写为vb/ASP的FUNCTION,万分感谢.

Question

//去掉数组重复
function unique(data){
    data = data || [];
    var a = {};
    for (var i=0; i<data.length; i++) {
        var v = data[i];
        if (typeof(a[v]) == 'undefined'){
            a[v] = 1;
        }
    };
    data.length=0; 
    for (var i in a){
        data[data.length] = i;
    }
    return data;
}
//数字升序排序
function compareNumbers(a, b) {
    return a - b;// 降序 return b - a;
}
//统计
function tongji(allmastr){
    var ma_arr = allmastr.split(",");
    //
    var manum2 = new Array(50);//保存1－49对应的个数
    for(var i =0;i < manum2.length ; i++)
    {
        manum2[i] = 0;
    }
    //累加统计个数
    for(var i =0;i < ma_arr.length ; i++)
    {
        var i2 = parseInt(ma_arr[i],10);
        manum2[i2]+=1;
    }
    //获取次数列表
    var numarr = new Array();
    for(var i =1;i<=49 ; i++)
    {
        numarr.push(manum2[i]);
    }
    //去掉重复次数
    numarr = unique(numarr);
    //次数从低到高排序
    numarr.sort(compareNumbers);
    //
    var tjstr = "统计结果：\n";
    for(var i=0;i< numarr.length;i++)
    {
        var ci = numarr[i];
        var cistr = "〖"+ci+"次〗:";
        var mashu = 0;
        for(var j =1;j<=49 ; j++)
        {
            if(manum2[j] == ci)
            {
                mashu +=1 ;
                if(j < 10)
                {
                    j = "0"+j;
                }
                cistr += j+',' ;
            }
        }
        cistr += '（共'+ mashu +'个）\n' ;
        tjstr += cistr ;
    }
    tjstr += "\n";
    return tjstr;
}各位前辈帮忙下,这段JS怎么改写为ASP的FUNCTION,万分感谢.