ob_start();
ob_implicit_flush(0);
function CheckCanGzip() {
global $HTTP_ACCEPT_ENCODING;
if (headers_sent() || (connection_status()!=0) ){ return 0; }
// Comprobamos que el servidor accepta compresión de datos.
if (strpos($_SERVER["HTTP_ACCEPT_ENCODING"], 'x-gzip') !== false) return "x-gzip";
if (strpos($_SERVER["HTTP_ACCEPT_ENCODING"],'gzip') !== false) return "gzip";
return 0;
}#end function
/* $level contiene el nivel de compresión: de 0 a 9, donde 0=ninguno y 9=máximo. */
function GzDocOut($level=1,$debug=0) {
$ENCODING = CheckCanGzip();
if ($ENCODING) {
print "\n\n";
$Contents = ob_get_contents();
//$Contents=oneLine($Contents);
ob_end_clean();
if ($debug) {
$s = "
$enH1="";
if ($datosChic[0]!="") {
$enH1=$datosChic[0]." - ";
}#end if
?>
echo htmlentities($enH1); ?>FamoLinks
Vamos a tratar de conseguir la mejor y única recopilación de enlaces a páginas que alberguen todo tipo de imágenes, vídeos, datos o información de las Famosas Españolas. Esto NO es un directorio de Webs de Sexo simplemente son enlaces a páginas donde podemos encontrar fotos de famosas españolas.
$TotalEnlaces=mysql_query("select count(*) from chicasenl where activo='s'");
$Total=mysql_fetch_row($TotalEnlaces);
?>
Con un total de echo $Total[0];?> enlaces...
$id=$_REQUEST["id"];
if ($id!=0) # Foto de la chica junto a los enlaces y demás cosas...
{
?>
$datosChica=mysql_query("select nombre,foto from chicas where id=$id and activo='s'");
$datos=mysql_fetch_row($datosChica);
$datos[0]=utf8_encode($datos[0]);
echo ("
".$datos[0]."
");
$AuxVisua=mysql_query("select sum(visto) from chicasenl where id_chica=$id and activo='s'");
$Visual=mysql_fetch_row($AuxVisua);
/* < 100 --- 1 verde
>100 y <200 --- 2 verdes
>200 y <300 --- 3 verdes
>300 y <400 --- 4 verdes
>400 y <500 --- 5 verdes
despu�s amarillos
< 1000 --- 1 amarillos
>1000 y <2000 --- 2 amarillos
>2000 y <3000 --- 3 amarillos
>3000 y <4000 --- 4 amarillos
>4000 y <5000 --- 5 amarillos
despu�s rojos...
--> */
if ($Visual[0]<1000) { #verdes
if ($Visual[0]>500) {$mostrar=5;}
else {$mostrar=($Visual[0]/100)+1;}
$icono="buyate_verde2.gif";
}
elseif ($Visual[0] <10000) { #rojos
if ($Visual[0]>5000) {$mostrar=5;}
else {$mostrar=($Visual[0]/1000);}
$icono="buyate_rojo2.gif";
}
else { #amarillos
if ($Visual[0]>50000) {$mostrar=5;}
else {$mostrar=($Visual[0]/10000);}
$icono="buyate_amarillo2.gif";
}#end if
for ($m=1;$m<=$mostrar;$m++) {
echo (" ");
}#end for
$EnlacesChicas=mysql_query("select url,visto,tipo from chicasenl where id_chica=$id and activo='s' order by tipo desc,id_chica,fecha_inc ");
$aux=1;
echo ("
';
}
else {
$OffSet=$_REQUEST["OffSet"];
if ($OffSet==0) { $OffSet=0; }#end if
$registros=32;
$son=mysql_query("select count(distinct(chicas.id)) from chicas,chicasenl where chicas.id=chicasenl.id_chica and chicas.activo='s'");
$Columnas=0;
$tenemos=mysql_fetch_row($son);
if ($tenemos[0]<=$registros) { $enlazando="";}
else {
$enlazando="
|";
$cuantos=1;
$vEnlaces=0;
for ($i=0;$i<$tenemos[0]+1;$i=$i+$registros) {
if ($OffSet==$i){
$fuente="";
$cierrafuente="";
}
else {
$fuente="";
$cierrafuente="";
}#end if
if ($cuantos==1) { $navega=$fuente."Últimos".$cierrafuente; }
else { $navega=$fuente.$cuantos.$cierrafuente; }
//$enlazando=$enlazando." $navega |";
$enlazando=$enlazando." $navega |";
$cuantos++;
$vEnlaces++;
if ($vEnlaces==15) {
$vEnlaces=0;
$enlazando.=" ";
}#end if
}
$enlazando=$enlazando."
";
echo $enlazando;
}#end if
$publiEn=16;
$publiAux=0;
?>
$Chicas=mysql_query("select distinct(chicas.id),nombre,foto from chicas,chicasenl where chicas.id=chicasenl.id_chica and chicas.activo='s' order by nombre limit $OffSet,$registros");
$Columnas=0;
while($row=mysql_fetch_row($Chicas)) {
$TieneVis=mysql_query("select sum(visto) from chicasenl where id_chica=$row[0] and activo='s'");
$TieneVisto=mysql_fetch_row($TieneVis);
$urlaux = limpiarCadena($row[1]);
$miEnlace = "http://www.elbuyate.com/famolinks/".$urlaux."/".$row[0];
$row[1]=utf8_encode($row[1]);
$Texto=$row[1].", visitas ".$TieneVisto[0];
//echo ("