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

#------------------------------------------------------# 
#　　　　　　　　　本程序为Yuzi工作室提供　  　　　　　# 
#　　　　　　　　Yuzi论坛3000(BBS3000)v4.00　　　　　　# 
######################---------------------------------# 
## 以下部分不需修改 ## 
###################### 
&origin; 
if($slttitle!~/^[0-9]+$/){&errorview("帖子ID错误！");} 
if($Cookies{vote} eq $slttitle){&errorview("不能重复投票哦！");} 
print "Set-Cookie:vote=$slttitle\n"; 
open(TITLES,"$filepath/list/$id/$slttitle"); 
$hastitles=; 
close(TITLES); 
chomp($hastitles); 
($titles,$rdthistime,$rdusername,$comment,$rfrom,$rdhasreply,$r3,$r4,$r5,$r6,$rhassee1,$jing,$lock,$voteman,$votetol)=split(/\t/,$hastitles); 
unless($titles && $r3){print "Content-type: text/html\n\n";exit;} 
$votetol=$votetol+$FORM{'votetol'}; 
$voteman++; 
open(TITLES,">$filepath/list/$id/$slttitle"); 
@hastitles=; 
print TITLES $titles."\t".$rdthistime."\t".$rdusername."\t".$comment."\t".$rfrom."\t".$rdhasreply."\t".$r3."\t".$r4."\t".$r5."\t".$r6."\t".$rhassee1."\t".$jing."\t".$lock."\t".$voteman."\t".$votetol; 
close(TITLES); 
&okview("谢谢您投票！"); 
exit; 
######################### END OF SCRIPT #########################