asp中
<%
Function CountIn(sText,sFind)
'判断某一字符串在某字符串出现多少次
Dim iCount,iPos
If Len(sFind) > 0 Then
iPos = 1
Do
iPos = InStr(iPos, sText, sFind)
If iPos > 0 Then
iCount = iCount + 1
iPos = iPos + Len(sFind)
End If
Loop While iPos > 0
Else
iCount = 0
End If
CountIn = iCount
End Function
%>