Hola Rizzo,
Gracias por tu ayuda
.
Bueno aki pongo el codigo parte por parte.
Codigo para cargar los swf. (esto va en el swf principal)
Cita: stop();
var mcl:MovieClipLoader = new MovieClipLoader ();
var mclL:Object = new Object ();
mclL.onLoadProgress = function(target,loaded,total) {
loader.percent.text = Math.round ((loaded/total) * 100) + " %";
}
mclL.onLoadInit = function() {
loader._visible = false;
loader.percent.text = "";
}
mcl.addListener(mclL);
/*Carga la seccion de GuestBook*/
guestbook.onRelease = function() {
loader._visible = true;
mcl.loadClip("guestbook/GuestBook.swf",holder);
}
Ahora vamonos al codigo del
GuestBook.swf
Este es el codigo para leer el archivo php (esto va en el primer fotograma del archivo GuestBook.swf)
Cita: NumLow = 0;
NumHigh = 10;
loadVariablesNum ("GuestBook.php?NumLow="+NumLow+"&NumHigh="+NumHig h+"&R="+random(999), 0);
stop();
Ahora el codigo para cargar los datos capturados en el swf (este codigo va en el boton de enviar)
Cita: on (release) {
if (Name eq "") {
_root.Status = "Falta tu nombre";
} else if (Email eq "") {
_root.Status = "Fata tu email";
} else if (Website eq "") {
_root.Status = "Falta url";
} else {
Submit = "Yes";
NumHigh = 10;
NumLow = 0;
_root.GuestBook = "Procesando Nuevo comentario... ";
loadVariablesNum ("GuestBook.php", 0, "POST");
_root.Status = "Tu comentario ha sido guardado exitosamente en nuestro libro de visitas.";
gotoAndStop (2);
}
}
Ahora el codigo del archivo PHP. (jijiji este es un poco largo)
Código PHP:
<?php
//Variable nombre del mes
$nommes = array("Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre");
//variable nombre del día
$nomdia = array("Domingo", "Lunes", "Martes", "Miercoles", "Jueves", "Viernes", "Sabado");
$dia = date("j"); //Dia del mes en numero
$mes = date("n"); //Mes actual en numero
$diasemana = date("w"); //Dia de semana en numero
$hoy = $nomdia[$diasemana].", ".$dia." de ".$nommes[$mes-1]." del ".date(Y).", ".date(h).":".date(i);
$Submit = $_POST["Submit"];
$Name = $_POST["Name"];
$Email = $_POST["Email"];
$Website = $_POST["Website"];
$Comments = $_POST["Comments"];
$NumLow = $_REQUEST["NumLow"];
$NumHigh = $_REQUEST["NumHigh"];
$Name = ereg_replace("[^A-Za-z0-9 ]", "", $Name);
$Email = ereg_replace("[^A-Za-z0-9 \@\.\-\/\']", "", $Email);
$Comments = ereg_replace("[^A-Za-z0-9 \@\.\-\/\']", "", $Comments);
$Website = eregi_replace("http://", "", $Website);
$Website = ereg_replace("[^A-Za-z0-9 \@\.\-\/\'\~\:]", "", $Website);
$Name = stripslashes($Name);
$Email = stripslashes($Email);
$Website = stripslashes($Website);
$Comments = stripslashes($Comments);
// ########## Lectura y escritura al archivo txt #############
if ($Submit == "Yes") {
// Next line tells the script which Text file to open.
$filename = "GuestBook.txt";
// Se abrio el archivo declarado arriba para lecturag
$fp = fopen( $filename,"r");
$OldData = fread($fp, 80000);
fclose( $fp );
// Me da la fecha en que el comentario fue hecho (aqui toma las variavles que se definieron arriba para darle formato en español)
$Today = $hoy;
// Le da salida y un formato a la informacion para que pueda ser vista por el swf
$Input = "<font color=\"#0000FF\" size=\"\" face=\"Arial, Helvetica, sans-serif\">$Today</font><br>Nombre: <b>$Name</b><br>Email: <b><u><a href=\"mailto:$Email\">$Email</a></u></b><br>Website: <b><u><a href=\"http://$Website\" target=\"_blank\">$Website</a></u></b><br><b>Comentarios: </b>$Comments<br><br>.:::.";
/* Nueve los comentarios viejos hacia abajo y pone el comentario nuevo al principio utilizando la variable '&GuestBook='*/
$New = "$Input$OldData";
// Abre y escribe en el archivo txt
$fp = fopen( $filename,"w");
if(!$fp) die("&GuestBook=cannot write $filename ......&");
fwrite($fp, $New, 800000);
fclose( $fp );
}
// Le da Formato y salida a los nuevos comentarios del GuestoBook hacia el swf
// El archivo a abrir
$filename = "GuestBook.txt";
// Se abrio el archivo declarado arriba para lectura
$fp = fopen( $filename,"r");
$Data = fread($fp, 800000);
fclose( $fp );
// Divide los comentarios en la cadena utilizando estos simbolos ".:::."
$DataArray = split (".:::.", $Data);
// Cuenta el numero de cometarios que hay en el archivo txt y lo muestra en el swf
$NumEntries = count($DataArray) - 1;
print "&TotalEntries=$NumEntries&NumLow=$NumLow&NumHigh=$NumHigh&GuestBook=";
for ($n = $NumLow; $n < $NumHigh; $n++) {
print $DataArray[$n];
if (!$DataArray[$n]) {
Print "<font color=\"#FF0000\" size=\"\" face=\"Arial, Helvetica, sans-serif\">No hay mas mensajes</font><br>";
exit;
}
}
?>
Bueno aqui esta todo lo que tengo, creo que es todo
Se me hace un poco extrsaño esto pero bueno, de antemano muchas gracias
De nuevo gracias Rizzo por tu ayuda
Saludos
Ataragtis
.
.
