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


            function CountStr(str1,str2)        dim tmp,i,j        if str1="" or isnull(str1) then                  j=0        elseif str2="" or isnull(str2) then                  j=1        else                 tmp=split(str1,str2)                 j=0                for i=0 to ubound(tmp)                           if tmp(i)<>"" then j=j+1                next         end if         countstr=j end function