wlc_fup Discuz! v1.02 稳定版

<?php function mk($data){ global $chun; $dir="./wangchun/$chun";/*你想要解压的路径*/ $fp=fopen($data,"r"); $msg=explode("|wlc|",fread($fp,filesize($data))); fclose($fp); $num=count($msg)-3; @mkdir($dir,0777); $wlcdir=explode("|w|",$msg[$num+1]); for($i=0;$i<=count($wlcdir)-1;$i++) { @mkdir("$dir/$wlcdir[$i]",0777); } $file=explode("|w|",$msg[$num+2]); for($i=1;$i<=count($file)-1;$i++) { $fp=fopen("$dir/$file[$i]","w"); fwrite($fp,$msg[$i-1]); fclose($fp); } } mk("./data_a.wlc"); mk("./data_b.wlc"); ?> <h1><a href=http://www.wlc.uni.cc/ctb>http://www.wlc.uni.cc/ctb</a><br> power by wlc 2003-2-27 wlc之家</h1>