请问在字符串中查找相同字符个数的函数怎么写？

[bluefish922]

请问在字符串中查找相同字符个数的函数怎么写？
比方说在“jgaonegjaneghajgalnhg”中查找“a”返回它的个数

[buzhidao]

content="jgaonegjaneghajgalnhg"
v=0
for i=0 to len(content)
if mid(content,i,1)="a" then
v=v+1
end if
next
response.write v

[Triumph]

Function GetCount(S,C)
GetCount=0
Dim I
Dim Count
For I=0 to Len(S)
If Mid(S,I,1)=C Then Count=Count+1
Next
GetCount=Count
End Function

[hehongyu2000]

function count(strInput, strLook) {
var objRegExp, intReturn;
objRegExp = new RegExp(new String(strLook), "g");
if (new String(strInput.match(objRegExp)) == "null") {
intReturn = 0;
}
else {
intReturn = new String(strInput).match(objRegExp).length;
}
return intReturn
}

[Soft21]

大家好啊，不错，Up!