Función CheckTheChar(TheChar,TheString)
'TheChar="La cadena a detectar"
'TheString="Cadena a detectar"
si inStr(TheString,TheChar) entonces
para n =1 a Len(TheString)
si Mid(TheString,n,Len(TheChar))=TheChar entonces
CheckTheChar=CheckTheChar+1
terminar si
Próximo
CheckTheChar="este personaje"&CheckTheChar&"veces"
demás
CheckTheChar="0 veces"
terminar si
Función final
ejemplo:
código de programa
Respuesta.Escribir CheckTheChar("todos","a224todos4a434a4todos654arewr4a4a")
código de programa
<%
'Detecta el número de veces que aparece la cadena Str1 en la cadena Str2
Función pública SearchChar(Str1, Str2)
Dim I, Contador
Contador = 0
Si InStr(Str2, Str1) Entonces
Para I = 1 a Len(Str2)
Si Mid(Str2, I, Len(Str1))=Str1 Entonces
Contador = Contador + 1
Terminar si
Próximo
terminar si
Carácter de búsqueda=Contador
Función final
%>
<nombre del formulario="formulario1" método="publicación" acción="">
<p>Ingrese dos cadenas:</p>
<p> Cadena 1:
<nombre de entrada="texto1" tipo="texto" id="texto">
</p>
<p> Cadena 2:
<nombre de entrada="texto2" tipo="texto" id="texto">
<tipo de entrada="enviar" nombre="Enviar" valor="Enviar">
</p>
</formulario>
<%
Oscuro
X=Solicitud.Formulario("texto1")
Y=Solicitud.Form("texto2")
Si X<>"" e Y<>"" Entonces
%>
<p>Cadena 1: <%=X%></p>
<p>Cadena 2: <%=Y%></p>
<p>El número de veces que la cadena 1 aparece en la cadena 2<%=SearchChar(X,Y)%></p>
<%
Terminar si
%>
Después de una simple transformación, se puede convertir en una función que detecta cuando hay más de 2 URL en el contenido del mensaje y lo bloquea.