一个检测一个字符串在另一个字符串当中出现几次的函数

Function CheckTheChar(TheChar,TheString)
'TheChar="要检测的字符串"
'TheString="待检测的字符串"
if inStr(TheString,TheChar) then
for n =1 to Len(TheString)
if Mid(TheString,n,Len(TheChar))=TheChar then 
CheckTheChar=CheckTheChar+1
End if
Next
CheckTheChar="这个字符"&CheckTheChar&"次"
else
CheckTheChar="0次"
end if
End Function

example:

 程序代码
Response.Write CheckTheChar("大家","a224大家4a434a4大家654arewr4a4a")

 程序代码
<%
'检测字符串Str1在字符串Str2中出现的次数
Public Function SearchChar(Str1, Str2)
Dim I, Counter
Counter = 0
If InStr(Str2, Str1) Then
For I = 1 To Len(Str2)
If Mid(Str2, I, Len(Str1))=Str1 Then
Counter = Counter + 1
End If
Next
End if
SearchChar = Counter
End Function
%>
<form name="form1" method="post" action="">
<p> 输入两个字符串：</p>
<p> 字符串1:
<input name="text1" type="text" id="text">
</p>
<p> 字符串2:
<input name="text2" type="text" id="text">
<input type="submit" name="Submit" value="提交">
</p>
</form>
<%
Dim X,Y
X=Request.Form("text1")
Y=Request.Form("text2")
If X<>"" and Y<>"" Then
%>
<p>字符串1：<%=X%></p>
<p>字符串2：<%=Y%></p>
<p>字符串1在字符串2中出现的次数<%=SearchChar(X,Y)%></p>
<%
End If
%>
 

简单改造之后就可以变成一个检测当留言内容中url超过2个，则屏蔽之类的函数。