<?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>