得到一个字符串在另一个字符串当中出现几次的函数

GetRepeatTimes(TheChar,TheString) 得到一个字符串在另一个字符串当中出现几次的函数(新)

例子：

<%
response.write GetRepeatTimes("w",www.dwww.cn)
response.write GetRepeatTimes("ww","wwwww")

%>

函数代码：

<%

Function GetRepeatTimes(TheChar,TheString)
GetRepeatTimes = (len(TheString)-len(replace(TheString,TheChar,"")))/len(TheChar)
End Function

%>