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