<script language="JScript" runat="Server">
function JSCount(rs) {
    if (rs.State != 1) return 0;
    var a = [];
    var t;
    while (!rs.EOF) {
        t = rs.Fields.Item("ziduan").Value;
        if ("" != t) a.push(t);
        rs.MoveNext();
    }
    rs.Close();

    t = a.join(",").split(",").sort().join(",");
    t = t.replace(/(([^,]+),)(\1)*\2/g, "$2");
    return t.split(",");
}
</script>
<%
    Dim arr
    Set arr = JSCount(null)
    Response.Write arr.length
    Response.Write arr.toString()
    Set arr = Nothing
%>

<%
    Dim arr
    Set arr = JSCount(conn.Execute("SELECT [ziduan] FROM [db]"))
    Response.Write arr.length
    Response.Write arr.toString()
    Set arr = Nothing
%>

<script language="JScript" runat="Server">
function JSCount(rs) {
    var a = [];
    if (rs.State != 1) return a;
    var t;
    while (!rs.EOF) {
        t = rs.Fields.Item("ziduan").Value;
        if ("" != t) a.push(t);
        rs.MoveNext();
    }
    rs.Close();

    t = a.join(",").split(",").sort().join(",");
    var r = /([^,]+)(?:,\1)*/g;
    var mr = null;
    a = [];
    while ((mr=r.exec(t)) != null) {
        var x = mr[0].split(",");
        a.push({name:x[0], count:x.length});
    }
    a.get = function(i) { return this[i]; };
    return a;
}
</script>
<%
    Dim arr, i, obj
    Set arr = JSCount(conn.Execute("SELECT [ziduan] FROM [db]"))
    For i = 0 To arr.length-1

        'Set obj = arr.get(i)
        'Response.Write obj.name & " ------------ " & obj.count & "<br />"
        'Set obj = Nothing

        Response.Write arr.get(i).name & " ------------ " & arr.get(i).count
    Next
    Set arr = Nothing
%>

<%
On Error Resume Next
Dim Conn,ConnStr
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("a.mdb")    
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.connectionstring = ConnStr
Conn.open
If Err Then
    Err.Clear
    Conn.close()
    Set Conn = Nothing
    Response.Clear()
    Response.Write "数据库连接出错!"
    Response.End
End If
Dim myComm,rs,myRs
on error resume next
Connectdb()
Set myComm = Server.CreateObject("ADODB.COMMAND")
With myComm
    .ActiveConnection = Conn
    .CommandText = "select * from [db]"
    .CommandType = &H0001
    .Prepared = true
End With    
set rs = myComm.Execute()
Dim Vtemp:Vtemp = rs.Getrows '这里将记录集赋值在一个二维数组中，这个方法性能是一个抛物线。
rs.close
set rs = nothing
Conn.close
set Conn = nothing    
'==================以上是数据库查询，以下是核心程序==================
Dim i,V,Vt,Str
for i=0 to UBound(Vtemp,2)
    Vt = Vt&","&Vtemp(1,i)
next

Vt = mid(Vt,2)
V = split(Vt,",")

str = "共有"&UBound(V)+1&"个元素，其中："
for i=0 to UBound(V)
    if not Instr(str,V(i))>0 then
        len(Vt)-len(replace(Vt,V(i),""))
        str = str&V(i)&len(Vt)-len(replace(Vt,V(i),""))&"个，"
    end if
next
Response.Write(str&"<br />"&Vt)
%>

Dim i,V,Vt,Str
for i=0 to UBound(Vtemp,2)
    Vt = Vt&","&Vtemp(1,i)
next
'以上将数据库的记录全部分配在一个数组中，同时用到临时字符串（即：数据库db表中所有 ziduan 列用,分隔在一个Vt变量中）
Vt = mid(Vt,2)
V = split(Vt,",")
'将Vt字符串按,所谓分隔符赋值于一个数组V
str = "共有"&UBound(V)+1&"个元素，其中："
for i=0 to UBound(V)
    if not Instr(str,V(i))>0 then'如果str变量中不已经包含这个元素就进行处理
        len(Vt)-len(replace(Vt,V(i),""))'计算出这个元素出现过几次
        str = str&V(i)&len(Vt)-len(replace(Vt,V(i),""))&"个，"'将元素的出现次数以及元素值放在变量str中等待显示
    end if
next
Response.Write(str&"<br />"&Vt)

<script>
alert("<%=rs.Fields.Item("ziduan").Value%>")
</script>

<script language="JScript" runat="Server">
function JSCount(rs, field) {
    var a = [];
    if (rs.State != 1) return a;
    var t;
    while (!rs.EOF) {
        t = rs.Fields.Item(field).Value;
        if ("" != t) a.push(t);
        rs.MoveNext();
    }
    rs.Close();

    t = a.join(",").split(",").sort().join(",");
    var r = /([^,]+)(?:,\1)*/g;
    var mr = null;
    a = [];
    while ((mr=r.exec(t)) != null) {
        var x = mr[0].split(",");
        a.push({name:x[0], count:x.length, toString:function(){return this.name;}});
    }
    a.get = function(i) { return this[i]; };
    return a;
}
</script>
<%
    Dim arr, i, obj, F

    F = "ziduan" ' 这里改成查数据库


    Set arr = JSCount(conn.Execute("SELECT [ziduan] FROM [db]"), F)

    Response.Write "共" & arr.length & "个元素:" & arr.join(",") & "<br />"

    For i = 0 To arr.length-1

        'Set obj = arr.get(i)
        'Response.Write obj.name & " ------------ " & obj.count & "<br />"
        'Set obj = Nothing

        Response.Write arr.get(i).name & " ------------ " & arr.get(i).count & "<br />"
    Next
    Set arr = Nothing
%>