Размер файла: 1.56Kb
<?
Error_Reporting(E_ALL & ~E_NOTICE); /////////////// игнорируем ошибки
header("Content-type:text/vnd.wap.wml;charset=utf-8"); //////// тип и кодировка документа
include 'dan.php';
print "<?xml version=\"1.0\" encoding=\"utf-8\"?>
<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.2//EN\" \"http://www.wapforum.org/DTD/wml12.dtd\">
<wml><card id=\"mas\" title=\"Фото\"><p align=\"center\">";
///////////// выводим вмл заголовок
$ss = @file("$foto/$file");
$strok = sizeof($ss);
$strok=$strok-1;
if($ts==""){$ts=0;}
$arra=@file("$foto/$file");
while($ts<=$strok & $kp<4){
$arme=@explode(":||:",$arra[$ts]);
$nara=trim($arme[1]);
$nora=trim($arme[0]);
if($nora!=""){
print"
<img src=\"pfoto.php?f=$nara\" alt=\"фото $nora\"/><br/>
<a href=\"$nara\">Смотреть</a><br/><br/>
";
$kp=$kp+1;}
$ts=$ts+1;
}
if($ts<$strok){print"<br/><anchor title=\"next\">Смотреть далее
<go href=\"sgfoto.php\" method=\"post\">
<postfield name=\"$file\" value=\"$file\"/>
<postfield name=\"ts\" value=\"$ts\"/>
</go></anchor><br/>";}
print "<br/><a href=\"index.php\">Вход в чат</a>
<br/><a href=\"$gl\">На главную</a><br/>
</p></card></wml>";
?>