www.pudn.com > bbs3000afree.zip > delreply.cgi

#------------------------------------------------------# 
#　　　　　　　　　本程序为Yuzi工作室提供　  　　　　　# 
#　　　　　　　　Yuzi论坛3000(BBS3000)v4.00　　　　　　# 
######################---------------------------------# 
## 以下部分不需修改 ## 
###################### 
if($Cookies{del} ne $deltitle || $Cookies{del} eq ""){&monitor;} 
open(TITLES,"$filepath/list/$id/$no"); 
@hastitles=; 
close(TITLES); 
open(TITLES,">$filepath/list/$id/$no"); 
foreach $m (@hastitles){ 
chomp($m); 
if($m ne ""){ 
($rtime,$rthistime,$rdusername)=split(/\t/,$m); 
if($rthistime eq $deltitle){ 
$rusername=$rdusername; 
}else{ 
print TITLES $m."\n"; 
}} 
} 
close(TITLES); 
open(NUMBER,"$filepath/guest/2$rusername.cgi"); 
$NUMBER=; 
close(NUMBER); 
($lys,$oldlys,$money,$charm)=split(/\t/,$NUMBER); 
$money=$money-6;$charm=$charm-0.5; 
open(NUMBER,">$filepath/guest/2$rusername.cgi"); 
print NUMBER "$lys"."\t"."$oldlys"."\t"."$money"."\t"."$charm"; 
close(NUMBER); 
 
open(TITLES,"$filepath/list/$id/$rtime"); 
$hastitles=; 
close(TITLES); 
open(TITLES,">$filepath/list/$id/$rtime"); 
($rtitles,$rthistime,$rusername,$rcomment,$rfrom,$rhasreply,$remote,$rlastname,$rlasttime,$re,$djj,$jing,$lock,$voteman,$votetol)=split(/\t/,$hastitles); 
$rhasreply=@hastitles-1; 
if($rhasreply==0){$rlastname="--";}else{ 
open(REPLY,"$filepath/list/$id/$re"); 
@hasreply=; 
close(REPLY); 
$size=@hasreply-1; 
$m=@hasreply[$size]; 
($lastrtime,$lastrthistime,$lastrusername)=split(/\t/,$m); 
$rlastname="$lastrusername";$rlasttime="$lastrthistime"; 
} 
print TITLES $rtitles."\t".$rthistime."\t".$rusername."\t".$rcomment."\t".$rfrom."\t".$rhasreply."\t".$remote."\t".$rlastname."\t".$rlasttime."\t".$re."\t".$djj."\t".$jing."\t".$lock."\t".$voteman."\t".$votetol; 
close(TITLES); 
print "Content-type: text/html\n\n"; 
print <alert('已经成功删除该帖子!');history.back(); 
EOF 
exit; 
######################### END OF SCRIPT #########################