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=<TITLES>;
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<script>alert('无法读取该帖子的数据！');document.location='$imagurl/loading.htm'</script>";exit;}
$votetol=$votetol+$FORM{'votetol'};
$voteman++;
open(TITLES,">$filepath/list/$id/$slttitle");
@hastitles=<TITLES>;
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 #########################