EOF
exit;
}else{
&errorview("对不起，此用户没有注册！");exit;
}}
##########
sub ckbz{
if ($FORM{'bzname'} ne ""){
if ( -e "$filepath/yhzl/$FORM{'bzname'}.cgi"){}else{&errorview("对不起，您输入的这个新版主的用户名还没有注册！");}
open(PSD,"$filepath/list/$username.cgi");
@lines=;
close(PSD);
foreach $line (@lines) {
chomp($line);
($rname,$rpass,$rmail,$rhome,$rtitle,$yhq,$rtime,$htmlt,$htmlw,$jj,$fbanz)=split(/\t/,$line);
}
open(PSD,">$filepath/list/$username.cgi");
print PSD $FORM{'bzname'}."\t\t".$rmail."\t".$rhome."\t".$rtitle."\t".$yhq."\t".$rtime."\t".$htmlt."\t".$htmlw."\t".$jj."\t".$fbanz;
close(PSD);
}
if ( -e "$filepath/list/$username.cgi"){
open(PSD,"$filepath/list/$username.cgi");
@lines=;
close(PSD);
foreach $line (@lines) {
chomp($line);
($rname,$rpass,$rmail,$rhome,$rtitle,$yhq,$rtime,$htmlt,$htmlw)=split(/\t/,$line);
}
open(PSD88,"$filepath/yhzl/$rname.cgi");
@lines88=;
close(PSD88);
foreach $line88 (@lines88) {
chomp($line88);
($mmymm)=split(/\t/,$line88);
}
$oldmon=$mon-2;
if($oldmon < 1){$year=$year-1;$oldmon=$oldmon+12}
if($oldmon <10){$oldmon="0".$oldmon;}
&csshtml;
print <
function del_reset(){
if (confirm("您确定要删除该论坛的全部数据吗?")){
return true;
}
return false;
}
[ 返 回 ]
EOF
exit;
}else{
&errorview("对不起，此ID没有注册！");exit;
}}
#########
sub bbslb{
&csshtml;
print <
EOF
open(ROOM,"$list");
@lines=;
close(ROOM);
$size=@lines;
$ii=0;
$j=$size;
while ($j>0) {
$j=$j-$listpage;
$ii++;
}
open(TITLES,"$filepath/list/bbs");
@hastitles=;
close(TITLES);
$bbsdx=@hastitles;
print <
|