Funktion CheckTheChar(TheChar,TheString)
'TheChar="Die zu erkennende Zeichenfolge"
'TheString="Zu erkennender String"
if inStr(TheString,TheChar) then
für n =1 bis Len(TheString)
wenn Mid(TheString,n,Len(TheChar))=TheChar dann
CheckTheChar=CheckTheChar+1
Ende wenn
Nächste
CheckTheChar="dieses Zeichen"&CheckTheChar&"times"
anders
CheckTheChar="0 mal"
Ende wenn
Funktion beenden
Beispiel:
Programmcode
Response.Write CheckTheChar("everyone","a224everyone4a434a4everyone654arewr4a4a")
Programmcode
<%
'Ermitteln Sie, wie oft String Str1 in String Str2 vorkommt
Öffentliche Funktion SearchChar(Str1, Str2)
Dim I, Counter
Zähler = 0
Wenn InStr(Str2, Str1) Dann
Für I = 1 To Len(Str2)
Wenn Mid(Str2, I, Len(Str1))=Str1, dann
Zähler = Zähler + 1
Ende wenn
Nächste
Ende wenn
SearchChar=Zähler
Funktion beenden
%>
<form name="form1" method="post" action="">
<p>Geben Sie zwei Zeichenfolgen ein:</p>
<p> Zeichenfolge 1:
<Eingabename="text1" type="text" id="text">
</p>
<p> Zeichenfolge 2:
<Eingabename="text2" type="text" id="text">
<input type="submit" name="Submit" value="Submit">
</p>
</form>
<%
Schwach
X=Request.Form("text1")
Y=Request.Form("text2")
Wenn X<>"" und Y<>"" Dann
%>
<p>Zeichenfolge 1: <%=X%></p>
<p>Zeichenfolge 2: <%=Y%></p>
<p>Die Häufigkeit, mit der Zeichenfolge 1 in Zeichenfolge 2 erscheint<%=SearchChar(X,Y)%></p>
<%
Ende wenn
%>
Nach einer einfachen Transformation kann es in eine Funktion umgewandelt werden, die erkennt, wenn der Nachrichteninhalt mehr als 2 URLs enthält, und diese blockiert.