ASP检测字符串A在字符串B中出现的次数

函数代码如下：

<%'thechar="被thestring包含的字符串"，thestring="包含thechar的字符串" 
function checkthechar(thechar,thestring) 
 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 
 else 
 checkthechar=0 
 end if 
end function%>

<%'调用示例，结果为2
response.write checkthechar("站","中国站长天空，站长建站乐园")%>