回帖脱衣服的图片实现

作者:未知 来源:未知 添加时间:2006年7月2日 字体:

randimage.php



<?php

/*

+---------------------------------------------------------+

| By 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']<count($file_list)-1){

$_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]);

?>



调用

<img src="randimage.php" border="0">

ppdesk