Função CheckTheChar(TheChar,TheString)
'TheChar="A string a ser detectada"
'TheString="String a ser detectada"
se inStr(TheString,TheChar) então
para n =1 para Len(TheString)
se Mid(TheString,n,Len(TheChar))=TheChar então
CheckTheChar=CheckTheChar+1
Terminar se
Próximo
CheckTheChar="este caractere"&CheckTheChar&"vezes"
outro
CheckTheChar="0 vezes"
terminar se
Função final
exemplo:
código do programa
Response.Write CheckTheChar("todos","a224todos4a434a4todos654arewr4a4a")
código do programa
<%
'Detecta o número de vezes que a string Str1 aparece na string Str2
Função pública SearchChar(Str1, Str2)
Dim I, contador
Contador = 0
Se InStr(Str2, Str1) Então
Para I = 1 para Len(Str2)
Se Mid(Str2, I, Len(Str1))=Str1 Então
Contador = Contador + 1
Terminar se
Próximo
Terminar se
SearchChar=Contador
Função final
%>
<nome do formulário="form1" método="post" action="">
<p>Insira duas strings:</p>
<p> Sequência 1:
<input name="text1" type="text" id="text">
</p>
<p> Sequência 2:
<input name="text2" type="text" id="text">
<input type="submit" name="Enviar" value="Enviar">
</p>
</form>
<%
Escurecer
X=Solicitação.Form("texto1")
Y=Solicitação.Form("texto2")
Se X<>"" e Y<>"" Então
%>
<p>Sequência 1: <%=X%></p>
<p>Sequência 2: <%=Y%></p>
<p>O número de vezes que a string 1 aparece na string 2<%=SearchChar(X,Y)%></p>
<%
Terminar se
%>
Após uma simples transformação, pode ser transformado em uma função que detecta quando há mais de 2 URLs no conteúdo da mensagem e a bloqueia.