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
檢查TheChar="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個，則屏蔽之類的函數。