搜索字符串中特定字符个数

<%



str1="aaaaabbb中国ca中国alk中国jla" 



dim Count

Count = 0



for I = 1 to Len(Str1)-1 step 1 

  if Mid(Str1, I, 2) = "中国" then

    Count = Count + 1

  end if

next



response.write CStr(Count)



%>