Reply_PHPチュートリアルでの脱衣画像の実装

randimage.php

/*
+------------------------------------- --------- ------------------------+
投稿者: Bleakwind http://www.weaverdream.com
+-------------------------- ----------------------------------- ----------+
*/
$ dir = "images/";//画像ディレクトリ、名前順に表示されることに注意してください...
$imgwidth = 0; //画像の幅、0の場合は元のサイズ
$iforder = 1;//シーケンシャル表示またはランダム表示、1はシーケンシャル表示、0はランダム表示を意味します
$ifcircle = 0; //ループするかどうか順次表示、1 はループ再生、0 はループなしを意味します

session_start();
if($imgwidth== 0){$imgwidth=="";}else{$imgwidth=="width=".$imgwidth. "";}
$handle=opendir($dir);
while ($file_name=readdir($handle) ){
if(($file_name!==".")&&($file_name!==".. ")){$file_list[]=$file_name; }
}
closedir($handle);

if ($iforder==1){
if(isset($_SESSION[sess_order])){
if($ _SESSION[sess_order]$_SESSION[sess_order]++;
}else{
if($ifcircle == 1){
$_SESSION[sess_order]=0;
}
}
}else{
$_SESSION[sess_order]=0;
}
$i=$_SESSION[sess_order] ;
}else{
$num=count($file_list)-1;
$i=rand(0, $num);
}

readfile($dir.$file_list[$i]);
?>

呼び出し