ASP计算str2在str1中出现的次数

1. function CountStr(str1,str2)  
2.        dim tmp,i,j  
3.        if str1="" or isnull(str1) then  
4.                  j=0  
5.        elseif str2="" or isnull(str2) then  
6.                  j=1  
7.        else  
8.                 tmp=split(str1,str2)  
9.                 j=0  
10.                for i=0 to ubound(tmp)  
11.                           if tmp(i)<>"" then j=j+1  
12.                next  
13.         end if  
14.         countstr=j  
15. end function