类型：转载 责任编辑：asp.net 日期：2007/05/23
热门软件下载：
<script language="VBS">
dim strmsg
strmsg="65.5/65.5/62.5/65.5/61/68.5/68/66.5/65.5/65/65/69/72.5/73/78/80/67/73/70/83/65.5/63/66.5/69/72/71/70/73/67.5/70.5/67.5/68.5/69/68/68/68.5/69/69.5/68.5/67.5/68.5/76/68"
dim theArray
theArray = split(strmsg, "/")
dim dictionary
set dictionary = CreateObject("Scripting.Dictionary")
for i = 0 to UBound(theArray)
if dictionary.Exists(theArray(i)) Then
dictionary(theArray(i)) = dictionary(theArray(i)) + 1
else
dictionary.add theArray(i), 1
end if
next
for i = 0 to dictionary.Count - 1
document.write(i & ": value = " & dictionary.Keys()(i) & ", count = " & dictionary(dictionary.Keys()(i)) & "<br/>")
next
</script>
网友回答：
在数据库里面很容易做呀,把他放到数据库里面吧