Fonction CheckTheChar(TheChar,TheString)
'TheChar="La chaîne à détecter"
'TheString="Chaîne à détecter"
si inStr(TheString,TheChar) alors
pour n =1 à Len(TheString)
si Mid(TheString,n,Len(TheChar))=TheChar alors
CheckTheChar=CheckTheChar+1
Terminer si
Suivant
CheckTheChar="ce caractère"&CheckTheChar&"fois"
autre
CheckTheChar="0 fois"
finir si
Fonction de fin
exemple :
code de programme
Réponse.Write CheckTheChar("tout le monde", "a224tout le monde4a434a4tout le monde654arewr4a4a")
code de programme
<%
'Détecter le nombre de fois où la chaîne Str1 apparaît dans la chaîne Str2
Fonction publique SearchChar (Str1, Str2)
Dim I, compteur
Compteur = 0
Si InStr(Str2, Str1) Alors
Pour I = 1 à Len(Str2)
Si Mid(Str2, I, Len(Str1))=Str1 Alors
Compteur = Compteur + 1
Fin si
Suivant
Terminer si
SearchChar=Compteur
Fonction de fin
%>
<nom du formulaire="form1" méthode="post" action="">
<p>Entrez deux chaînes :</p>
<p> Chaîne 1 :
<input name="text1" type="text" id="text">
</p>
<p> Chaîne 2 :
<input name="text2" type="text" id="text">
<input type="submit" name="Soumettre" value="Soumettre">
</p>
</form>
<%
Faible
X=Requête.Form("text1")
Y=Requête.Form("text2")
Si X<>"" et Y<>"" Alors
%>
<p>Chaîne 1 : <%=X%></p>
<p>Chaîne 2 : <%=Y%></p>
<p>Le nombre de fois où la chaîne 1 apparaît dans la chaîne 2<%=SearchChar(X,Y)%></p>
<%
Fin si
%>
Après une simple transformation, il peut être transformé en une fonction qui détecte lorsqu'il y a plus de 2 URL dans le contenu du message et le bloque.