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

[dep_boy]

str1="aaaaabbb中国ca中国alk中国jla"
搜索出str1中含'中国'的个数有什么办法..

[lihuasoft]

<%

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)

%>