Question

这样显示用asp代码怎么实现？

fname="aaabbaaccddd"
将上面的fname读取成以下形式 并按个数由大到小排列
字母 个数
a 5
d 3
b 2
c 2

Answer 1

<%
Dim str,list,i,fname
fname="aaabbaaccddd" '一般是其他地方传过来的，随机变化，字符字数都不定
For i=1 To Len(fname) '循环
 str=Mid(fname,i,1) '取得其中一个字符
 If instr(list,str)=0 Then '假如这个字符没有显示
  Response.write str&"    "&UBound(Split(fname,str))&"<br />" '显示字符与统计多少个
  list=list&str '加入已经显示队列
 End If
Next
%>

Answer 2

如果确定都是英文字符，那么就比较好办！
a=CheckTheChar("a",fname)
b=CheckTheChar("b",fname)
c=CheckTheChar("c",fname)
d=CheckTheChar("d",fname)

Function CheckTheChar(TheChar,TheString)
CheckTheChar=0
if inStr(TheString,TheChar) then
for n =1 to Len(TheString)
if Mid(TheString,n,Len(TheChar))=TheChar then
CheckTheChar=CheckTheChar+1
End if
Next
end if
End Function

剩下的就是对得到的数据进行排序。