чат знакомств полифонические мелодии с голосом

На главную

mmf со словами

 


 



/", $line)) { $anek=true; } // Нашли конец, $anek=false; if (preg_match("/<\/pre>/", $line)) { $anek=false; $contents .="".$terminator; } if ($anek) { $line=preg_replace($patterns, $replacements, $line); $contents .=$line; } } fclose($fp); if ($contents=="") {return FALSE;} else { // $contents .=""; return TRUE; } } function go_yesterday() { global $cur, $mon, $day, $monat, $year; if ($day==1) { if ($monat==1) { if ($year==0) $year=99; else $year=$year-1; if ($year<10) $year="0".$year; $monat=12; $day=31; } else { switch ( $monat ) { case 5: $day=30; break; case 7: $day=30; break; case 10: $day=30; break; case 12: $day=30; break; case 3: if (date("L")==1) { $day=29; } else { $day=28; } break; default: $day=31; } $monat=$monat-1; if ($monat <10) { $monat="0".$monat;} } } else { $day=$day-1; } if ($day <10) { $day="0".$day;} } // Определяем, какую страницу мы будем читать и выводить на экран switch ( $op ) { // здесь можно указать не только свежие анекдоты default: $typ="j"; } // Генерируем адрес страницы //Вчера if ($yesterday=="yes") { $year=$y; $day=$d; $monat=$m; } $url="http://www.anekdot.ru/an/an".$year.$monat."/".$typ.$year.$monat.$day.".html"; //Вызываем функицю чтения контента $i=0; while (!webread($url)) { //Если свежих еще нет, то // Генерируем адрес страницы для вчерашнего дня go_yesterday(); $url="http://www.anekdot.ru/an/an".$year.$monat."/".$typ.$year.$monat.$day.".html"; $i++; if ($i>2) { $contents="
";break;} 
} 
// Выводим результаты работы на экран 
echo "

"; // Выводим на экран тип анекдота switch ( $op ) { //Здесь можно сложить различные типы если указать запрос(ы) выше default: echo "Свежие анекдоты"; } echo "
"; // Дата echo "$day.$monat.$year

"; // печатаем собственно анекдоты echo ""; echo $contents; ?>

 

 

  Copyright c 2004
return_links(); ?>