Not compress length: ".strlen($Contents); $s .= "
Compressed length: ".strlen(gzcompress($Contents,$level)); $Contents .= $s; }#end if header("Content-Encoding: $ENCODING"); print "\x1f\x8b\x08\x00\x00\x00\x00\x00"; $Size = strlen($Contents); $Crc = crc32($Contents); $Contents = gzcompress($Contents,$level); $Contents = substr($Contents, 0, strlen($Contents) - 4); print $Contents; print pack('V',$Crc); print pack('V',$Size); exit; } else { ob_end_flush(); exit; }#end if }#end function function oneLine($myHTML) { $myHTML=eregi_replace("\r\n","",$myHTML); $myHTML=eregi_replace("\n","",$myHTML); $myHTML=eregi_replace(chr(9),"",$myHTML); return $myHTML; }#end function ?>

".$hoy["mday"] ." / ".$meses[$hoy["mon"]-1] ." / ". $hoy["year"].""; //Visitantes online // Configuracion de las variables $arch = "dades.txt"; // Archivo de datos de los usuarios (coloque la ruta completa dentro del servidor). $logoutTime = 600; // Tiempo tras el cual un usuario es considerado inactivo (en segundos). $IP = $REMOTE_ADDR; $count = 0; $res = ''; $fp = fopen($arch,"r+"); $t = time(); $content = fread($fp,filesize($arch)); fclose($fp); $lineas = split("\n",$content); for ($i=0; $i < count($lineas); $i++) { $datos = split(':',$lineas[$i]); $n = $t - $logoutTime; if ($datos[0] != $IP && $datos[1] > ($n)) { $res .= "$datos[0]:$datos[1]\n"; $count++; }#end if }#end for $res .= "$IP:$t\n"; $count++; $fp = fopen($arch,"w+"); fwrite ($fp,$res); fclose($fp); ?> Contactar Mapa web Opinar Recomendar Suscribir Twitter @elbuyate Buscar echo " Secciones Diccionario El Mejor Buyate Ellas FamoLinks Antipiropos Burradas Piropos Historias Juegos Técnicas Universidad Inicio Web Agradecimientos Al detalle... Contactar Mapa Web Opinar Recomendar Suscribir Wallpapers Recomendar Recomienda esta página a todos tus amig@s y conocid@s, seguramente te lo agradecerán. Además puedes añadir tus propios comentarios... incluso si has llegado aquí desde el enlace inferior que aparece en cada página directamente se le recomendará esa página. Ya conoces nuestra web, puedes ser el primero que se la enseñe a tus amig@s, ¿por qué no lo haces? 299)) { $NomPrevio=mysql_query("select nombre from previos where enlace=$RecPag "); $QueNombre=mysql_fetch_row($NomPrevio); if($QueNombre[0]=="Diccionario") {$QueNombre[0]="Diccionario Universal";} // Estas recomendando... ".$QueNombre[0]." Estas recomendando... ".$QueNombre[0]." "; }#end if if ($RecEB == "si" && $evaluaCaptcha) { # Componemos el mensaje... if ($lapag==0) { $message="De $nombrec \n\nTe recomiendo que visites esta p�gina http://www.elbuyate.com"; } else { $message="De $nombrec \n\nTe recomiendo que visites esta p�gina http://www.elbuyate.com/?url=".$lapag." "; }#end if if ($comentario !="") { $message.="\n\n".$comentario; }#end if $message.="\n\nServicio de recomendaci�n de El Buyate. Un saludo."; # Fin del mensaje $para=0; if ($envemail_1!="") { $para++; mail("$envemail_1", "$nombrec te recomienda El Buyate", $message,"From: $emailrec \n"); }#end if if ($envemail_2!="") { $para++; mail("$envemail_2", "$nombrec te recomienda El Buyate", $message,"From: $emailrec \n"); }#end if if ($envemail_3!="") { $para++; mail("$envemail_3", "$nombrec te recomienda El Buyate", $message,"From: $emailrec \n"); }#end if if ($envemail_4!="") { $para++; mail("$envemail_4", "$nombrec te recomienda El Buyate", $message,"From: $emailrec \n"); }#end if if ($envemail_5!="") { $para++; mail("$envemail_5", "$nombrec te recomienda El Buyate", $message,"From: $emailrec \n"); }#end if # Emails para mi de lo q se recomienda... $ParaMi="Emails\n$envemail_1\n$envemail_2\n$envemail_3\n$envemail_4\n$envemail_5\n".$message; getIp($gIp); $ParaMi.="\nIP: ".$gIp; mail("webmaster@elbuyate.com", "$nombrec ha recomendado El Buyate", $ParaMi,"From: $emailrec \n"); # Fin Emails para mi de lo que se recomienda. echo " E-mail/s enviado/s con e-mail $emailrec. $nombrec, gracias por su colaboración. ¿Desea recomendar El Buyate a más gente? "; $pagesRec=mysql_query("select veces from contadores where contador='recomendar' "); $rowpagesRec=mysql_fetch_row($pagesRec); #echo "$rowpagesRec[0]"; $auxRec=$rowpagesRec[0]+$para; mysql_query("update contadores set veces=$auxRec where contador='recomendar'"); }#end if ?> Qué todo el mundo se entere! Tu nick/nombre (*) Tu E-Mail (*) Comentarios E-Mail Amigo 1 (*) E-Mail Amigo 2 E-Mail Amigo 3 E-Mail Amigo 4 E-Mail Amigo 5 Responda a la siguiente pregunta de seguridad Entre los siguientes caracteres: 4, r, 9, 1. Indique una letra Respuesta *:    (*) Campo/s obligatorio/s. "; } else { echo ""; }#end if ?> var uri = 'http://impes.tradedoubler.com/imp/pool/js/58892/346985?' + new String (Math.random()).substring (2, 11); document.write('<\/sc'+'ript>'); CODEtradedoubler; $codigoBannering=<< CODEbannering; $codigoDisenix=<< CODEdisenix; $codigoWebConference=<< CODEweb; $codigoLibro=<< CODELibro; $codigoMedievol=<< CODEMedievol; $codigoMedievol2=<< CODEMedievol2; $codigoSeedingUp1=<< CODESeeding1; $codigoSeedingUp2=<< CODESeeding2; $codigoSeedingUp3=<< CODESeeding3; //$codigoDisenix, //$misBanners=array($adServerTradeDoubler,$codigoBannering,$codigoWebConference); //$misBanners=array($adServerTradeDoubler,$codigoMedievol,$codigoMedievol2); //$misBanners=array(0,$adServerTradeDoubler,$codigoSeedingUp1,$codigoSeedingUp2,$codigoSeedingUp3); $codigoBooking=<< CODEBooking; //$misBanners=array(0,$adServerTradeDoubler); $misBanners=array(0,$codigoBooking); $TotalBanners=count($misBanners)-1; $numeroBan=mt_rand(0,$TotalBanners); while ($numeroBan==0) {$numeroBan=mt_rand(0,$TotalBanners);} $publicidad4=$misBanners[$numeroBan]; /* if ($url==102) { $publicidad4=$codigoLibro; }#end if */ return; if (!isset($recomendar)) { ?>  Recomiéndanos