Código PHP:
<html>
<head>
<SCRIPT language=JavaScript><!--
function ValidateForm(form)
{
if (form.name.value == "")
{ alert("Por favor ingrese su Nombre"); form.name.focus(); return; }
if (form.to.value == "")
{ alert("Por favor ingrese la dirección de email destino"); form.to.focus(); return; }
if (form.from.value == "")
{ alert("Por favor ingrese su dirección de e-mail"); form.from.focus(); return; }
if (form.to.value.indexOf('@', 0) == -1 ||
form.to.value.indexOf('.', 0) == -1)
{ alert("Por favor verifique las direcciones de e-mail, existe alguna que no es valida o esta escrita incorrectamente."); form.to.focus(); return; }
if (form.from.value.indexOf('@', 0) == -1 ||
form.from.value.indexOf('.', 0) == -1)
{ alert("Por favor verifique su direccion de e-mail, tal vez no este escrita correctamente."); form.from.focus(); return; }
comprobarCoherencia();
}
//------EDITABLE-----------
var palabraMasCorta=2;
var maximoDeVocales=2;
var maximoDeConsonantes=2;
var nombreDelCampo="name";
//---------------------------
var palabra=new Array();
var maximoconsonante=new Array();
var maximovocal=new Array();
var laFrase="";
var vocales="AEIOUÁÉÍÓÚ";
var consonantes="BCDFGHJKLMNÑPQRSTVWXYZ";
var mal=0;
var malmal=0;
var espacio=0;
var campo
function comprobarCoherencia(unCampo){
if(unCampo){nombreDelCampo=unCampo;}
malmal=0;
mal=0;
espacio=0
//localizar el campo que es
for (a=0;a<document.forms[0].elements.length;a++){
if(document.forms[0].elements[a].name==nombreDelCampo){
campo=document.forms[0].elements[a];
break;
}
}
if(a==document.forms[0].elements.length){
alert("No existe campo llamado "+nombreDelCampo+"\nCompruebe que coinciden mayusculas y minúsculas");
return false}
frase=campo.value;
frase=frase.toUpperCase();
for (a=0;a<frase.length;a++){
letra=frase.charAt(a);
if(letra==" "){espacio+=1
if(espacio<2){
laFrase+=letra;
}}
else{
//Quitar los caracteres extraños y poner las primeras letras de cada
// palabra en mayusculas
if(isNaN(letra) && letra.toUpperCase()!=letra.toLowerCase()){
espacio=0;
laFrase+=(laFrase.charAt(laFrase.length-1)==" " ||a==0)?letra:letra.toLowerCase();
}
}
}
// Quitar los espacios de más
if(laFrase.substring(laFrase.length-1)==" "){
laFrase=laFrase.substring(0,laFrase.length-1);
}
if(laFrase.charAt(0)==" "){
laFrase=laFrase.substring(1,laFrase.length);
}
//sustituir lo introducido por el resultado de quitar los espacios de más
// y los caracteres extraños
campo.value=laFrase;
if(laFrase==""){return false;}
//Separar por palabras la frase
frase=laFrase;
laFrase="";
palabra=frase.split(" ");
//Comprobar la coherencia y que no haya
//más consonantes y vocales juntas del
//máximo permitido
for (b=0;b<palabra.length;b++){
maximoconsonante[b]=0;
maximovocal[b]=0;
control=0;
consonante=0;
vocal=0;
for(a=0;a<palabra[b].length;a++){
letra=palabra[b].charAt(a).toUpperCase();
if (vocales.indexOf(letra)>-1){
consonante=0
vocal+=1
if(vocal>maximovocal[b]){
maximovocal[b]=vocal;
}
}
if(consonantes.indexOf(letra)>-1){
vocal=0
consonante+=1
if(consonante>maximoconsonante[b]){
maximoconsonante[b]=consonante;
}
}
}
}
// Marcar los errores
for (a=0;a<palabra.length;a++){
b=a+1;
Mensaje="Palabra número " + b + ": "+palabra[a];
if (maximoconsonante[a]>maximoDeConsonantes){
Mensaje+="\nTiene mas de "+maximoDeConsonantes+" consonantes juntas";
mal=1;malmal=1
}
if(maximovocal[a]>maximoDeVocales){
Mensaje+="\nTiene mas de "+ maximoDeVocales+ " vocales juntas";
mal=1;malmal=1
}
if(palabra[a].length<=palabraMasCorta){
Mensaje+="\nEs demasiado corta";
mal=1;malmal=1
}
if(mal==1){alert(Mensaje);}
mal=0;
}
if(malmal==0){document.forms[0].submit()}
}
//-->
</script>
<title></title>
</head>
<BODY
BGPROPERTIES=FIXED
bgcolor=black
leftmargin=1
topmargin=0
background=""
link=#0000ff
text=#000000
vLink=#800080>
<FONT color=green face="verdana">
<!-- EMPIEZa RaPIDOMaIL -->
<form action="perl/p2.cgi" method=POST>
<input type="hidden" value="http://www.SuperMundo.com/" name="respuesta">
<INPUT TYPE="hidden" value="El sitio [url]www.SuperMundo.com[/url] me gusto mucho!" NaME="asunto">
<center>
<table width=100% border=2 cellpadding=0 cellspacing=0>
<tr border=2 bgcolor="#006633"><font size="-1" face="arial, Helvetica" color="#ffffff"><b><td bgcolor="#FFFF00" bordercolor="#0000FF" bordercolorlight="#00FF00" bordercolordark="#FF0000"><font size=+1><b>Recomienda esta página<br>Pone las direcciones de tus amigos separadas por comas(,)</font></font></font></font></font></tr>
<tr border=2 width="90" bgcolor="cyan" bordercolor="red">
<td><b>Para:</b> <input value="" type="text" name="to" SIZE=70><br>
<b>Tu E-mail:</b><INPUT TYPE="text" NaME="from" SIZE=23>
<b>Tu Nombre:</b><INPUT TYPE="text" NaME="name" SIZE=23>
<input type=hidden NaME="email_body" value="Te envio este e-mail porque encontre un sitio bien interesante; aqui encontraras de todo, videos, juegos, poemas de amor, etc, se que te gustara, no dejes de visitarlo!!!, quiero demostrarte que siempre estoy pensando en ti y todos mis amigos.">
<input onclick=ValidateForm(this.form) type=button value="Enviar">
</tr>
</table>
</form>
<center>
<!-- TERMINa RaPIDOMaIL -->
</body>
</html>