Просмотр файла wap.rzz.ru/wap_book/sex/index.php

<?php

$five = 800; // число символов на странице
$dir = './book/';  //папка с текстов. файлами, ВСЕ ФАЙЛЫ ОБЯЗАТЕЛЬНО С РАСШИРЕНИЕМ .txt
$tranc = 1;  // поменяй на 0 если не хочишь использовать встроенный перекодировщик

header("Content-type: text/vnd.wap.wml");
$echo = "<?xml version=\"1.0\"  encoding=\"windows-1251\"?><!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\"". " \"http://www.wapforum.org/DTD/wml_1.1.xml\"><wml><card title=\"book\"><p align=\"center\">";




$open_dir=opendir($dir);
while (false!==($file=readdir($open_dir)))
{
if (is_file("$dir/$file")) {$f[]=$file;}
}
closedir($open_dir);

if(!isset($_GET['id']))
{
foreach($f as $d)
$echo .= '<a href="index.php?id='.substr($d,0,-4).'">'.substr($d,0,-4).'</a><br/>';
}

else
{

$id = $_GET['id'];
$file_name = $dir.$_GET['id'].'.txt';
if (!in_array ($id.'.txt',$f)) { header("Location: index.php"); }
else
{
if(!isset($_GET['p']))$p=1; else $p = $_GET['p'];
$file= join('',file($file_name));
$obsum = $p * $five;
$nasum = $obsum - $five;
$end='0';

if(!isset($_GET['go']))
{
for($i=$nasum; $i<$obsum; $i++)
{
if(!isset($file[$i])) {$end='1';} else {$echo .=htmlspecialchars($file[$i]);}
}

$echo .= '<br/>';

if($p == '1')  $echo .= ''; else {$echo .= '<a href="index.php?id='.$id.'&amp;p='.($p-1).'">назад</a>';$echo .= ' '; }
if($end=='1')  $echo .= ''; else {$echo .= '<a href="index.php?id='.$id.'&amp;p='.($p+1).'">далее</a>';}

$echo .= '<br/><a href="index.php?go=1&amp;id='.$id.'">перейти</a>';
$echo .= '<br/><a href="index.php">в начало</a>';
}

else $echo .='
введите номер страницы от 1 до '.(ceil(strlen($file)/$five)).'<br/><input name="code" format="*N" maxlength="10" title="code"/>
<anchor title="go">перейти<go href="index.php" method="get">
<postfield name="p" value="$(code)"/>
<postfield name="id" value="'.$id.'"/>
</go></anchor><br/><a href="index.php">в начало</a>';

}
}









$echo .= '<br/><a href="../">nazad</a></p></card></wml>';

function unicode($string)
{
$rus=array('А','Б','В','Г','Д','Е','Ж','З','И','Й','К','Л','М','Н','О','П','Р','С','Т','У','Ф','Х','Ц','Ч','Ш','Щ','Ъ','Ы','Ь','Э','Ю','Я',
           'а','б','в','г','д','е','ж','з','и','й','к','л','м','н','о','п','р','с','т','у','ф','х','ц','ч','ш','щ','ъ','ы','ь','э','ю','я');
$string = str_replace('Ё','&#1025;',$string);
$string = str_replace('ё','&#1105;',$string);
for($i=0; $i<count($rus); $i++)
{
$s=1040;
$d = '&#'.($s+$i).';';
$string = str_replace($rus[$i],$d,$string);
}
return $string;
}

if($tranc==0) echo $echo; else echo unicode($echo);

?>