28,408
社区成员
发帖
与我相关
我的任务
分享
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