28,409
社区成员




Dim dic,rsData
Set dic=server.CreateObject ("Scripting.Dictionary")
Do While Not rs.eof
rsData=rs("name") & ""
If Not dic.exists(rsData) Then
dic.add rsData, 1
Else
dic(rsData)= dic(rsData)+1
End If
rs.movenext
Loop