Código:
' se le pasa un texto
' valida los comentarios q se vallan a poner en la web xD
' devuelve 1 si el comentario es valido
' devuelve 0 si el comentario NO es valido
Function comentario_ok(cadena1)
Terror = array("palabra1","palabra2","palabra3")
cadena = cstr(cadena1)
'response.Write cadena &"<br>"
cadena = split(cadena," ",-1,1)
i = 0
total = 0
ok = 1
'response.Write("Ubound: "&ubound(cadena))
while (ubound(cadena) >= i) AND (ok = 1)
'todo a minusculas
cadena(i) = lcase(cadena(i))
'compara las palabras con las prohibidas
c = 0
while (c <= ubound(Terror)) AND (ok = 1)
' compara las cadenas devuelve 1 si a>b y -1 si a<b, 0 = iguales
ok = strcomp(cadena(i),Terror(c))
'response.Write (cadena(i) &" y "& terror(c) &" => "&ok&"<br>")
c = c + 1
wend
' las palabras menos de 15 letras
temp = len(cadena(i))
total = total + temp + 1
if temp >15 then
ok = 0
end if
i=i+1
'abs() = valor absoluto
ok = abs(ok)
wend
' Longitud total de la cadena inferior a 200
' ok debe ser 1 para q muestre bien la long total
if total >= 201then
ok = 0
end if
if ok = 1 then
comentario_ok = 1
else
comentario_ok = 0
end if
end function
