?? svote9.cgi
字號:
if($barwidth < 61){ $barimag = "$imgurl/1bar.gif"; $FC="green";}
elsif( $barwidth < 101 && $barwidth > 60){ $barimag = "$imgurl/2bar.gif"; $FC="blue";}
elsif( $barwidth > 100){ $barimag = "$imgurl/3bar.gif"; $FC="red"}
if(length($propotion) > 4){$propotion = substr($propotion, 0, 4);}
$propotion4= "$propotion4<tr><td height=18 align=center>$propotion%";
$pollsize4= "$pollsize4<tr><td height=18 align=center>$pollsize";
$pollimg4= "$pollimg4<tr><td height=18><img src=\"$barimag\" height=\"12\" width=\"$barwidth\">";
}
print qq~<tr bgColor=f2f8ff><td align=center>$sh）$poname1<td align=center width=120><TABLE border=0 align=right>$poname4</TABLE><td width=200><TABLE border=0 background="$imgurl/phl.gif" width=198 cellPadding="0">$pollimg4</TABLE><td align=center width=40><TABLE border=0>$pollsize4</TABLE><td align=center width=50><TABLE border=0>$propotion4</TABLE></td></tr>~;
}
print "</table></table>";
}
##單
else{
open(CPWDS,"$pollfilt/000");
$size=<CPWDS>;
if(!$size){$size=0;}
close(CPWDS);
$pollw=1;
if(($l_mode eq "checked")&&($cpsize > 9)){ $pollw=2;}
print qq~<center><TABLE cellSpacing=2 cellPadding=2 width=450 bgColor="#46C2FF" border=0><TR><TD class=bbc><IMG src="$CONFIG{'img_url'}/sub.gif"> $l_num $pollname~;
print qq~<TR><TD>結果：現有<b>$sizes</b>人參加||總得票<b>$size</b>張||<a href=$CGI{'vote'}?id=$id&cunt=$num>詳細統計</a>~;
if(($l_top10==1)||($l_top10==2)){print qq~||<a href=$FILE{'poll'}/$id/$num.html>排行榜</a>~;}
if($l_ly){ print qq~||<A href="javascript:Showpost('$id&post=$num')"><IMG alt="發表意見建議" src="$CONFIG{'img_url'}/guest.gif" border=0 width="16" height="16">評論</A>~;}
if(($l_mail)&&($CONFIG{'sendmail'})){ print qq~||<A href="javascript:Showpost('$id&look=$num')"><IMG alt="關注本次調查結果" src="$CONFIG{'img_url'}/email.gif" border=0 width="16" height="16">關注</A>~;}
print qq~</TABLE>\n<TABLE border=1 borderColor=#ffffff borderColorDark=#ffffff borderColorLight=#000000 cellSpacing=0 bgColor=f2f8ff width=450>~;
if($pollw==2){ print qq~<tr height=160 bgColor=#f0f0f0>~; }
else {print qq~<tr bgcolor=#FFD7C height=25><td align=center>項 目</td><td align=center width=60>票 數</td><td align=center width=60>百分比</td><td align=center width=200 background="$imgurl/phb.gif">圖 示</td></tr>~;}
foreach $CPWD(@CPWD) {
$CPWD=~s/\n//g;
($sh,$poname)=split(/\t/,$CPWD);
open(MAIN,"$pollfilt/$sh");
$pollsize=<MAIN>;
close(MAIN);
if(!$pollsize){$pollsize=0; $FC="#C0C0C0";}
$qw="$pollsize//$poname";
push(@ENTRIES,$qw);
if($pollw !=2 ){
$propotion = $pollsize/$size*100;
$barwidth = 200 * $propotion/100;
if($barwidth < 61){ $barimag = "$imgurl/1bar.gif"; $FC="green";}
elsif( $barwidth < 101 && $barwidth > 60){ $barimag = "$imgurl/2bar.gif"; $FC="blue";}
elsif( $barwidth > 100){ $barimag = "$imgurl/3bar.gif"; $FC="red"}
if(length($propotion) > 4){$propotion = substr($propotion, 0, 4);}
print "<tr><td> $poname </td><td align=center width=60>$pollsize</td><td align=center width=60>$propotion% $propotion_a</td><td width=200 background=\"$imgurl/phl.gif\"><img src=\"$barimag\" height=\"12\" width=\"$barwidth\"></td></tr>";
}
}
@top = (sort { $b <=> $a } @ENTRIES);
if($top[0]){
($topsize,$topname)=split(/\/\//,$top[0]);
$propotion =$topsize;
}
else { $propotion = 0; }
if($pollw==1){
print qq~</table><p class=pnqk>按得票大小列表<br><TABLE border=1 borderColor=#ffffff borderColorDark=#ffffff borderColorLight=#000000 cellSpacing=0 bgColor=f2f8ff width=450><tr bgcolor=#FFD7C height=25><td align=center>項 目</td><td align=center width=60>票 數</td><td align=center width=60>百分比</td><td align=center width=200>圖 示</td></tr>~;
foreach $top(@top) {
($polltop,$nametop,)=split(/\/\//,$top);
$barwidth = 200*($polltop/$propotion);
if($polltop <= $propotion/3){ $barimag = "$imgurl/1bar.gif"; $FC="green";}
elsif( $polltop < $propotion-1 && $polltop > $propotion/3){ $barimag = "$imgurl/2bar.gif"; $FC="blue";}
elsif( $polltop >= $propotion-1){ $barimag = "$imgurl/3bar.gif"; $FC="red"}
print "<tr><td> $nametop </td><td align=center>$polltop</td><td align=center> </td><td width=200><img src=\"$barimag\" height=\"12\" width=\"$barwidth\"></td></tr>";
}
}
elsif($pollw==2){
foreach $ENTRIES(@ENTRIES) {
($polltop,$nametop,)=split(/\/\//,$ENTRIES);
$barwidth = 150*($polltop/$propotion);
if($polltop <= $propotion/3){ $barimag = "$imgurl/1barr.gif"; $FC="green";}
elsif( $polltop < $propotion-1 && $polltop > $propotion/3){ $barimag = "$imgurl/2barr.gif"; $FC="blue";}
elsif( $polltop >= $propotion-1){ $barimag = "$imgurl/3barr.gif"; $FC="red"}
print "<td valign=bottom align=center><font color=$FC>$polltop</font><br><img src=\"$barimag\" height=\"$barwidth\" width=\"12\"><br>$nametop</td>";
}
print qq~</tr></table><p class=pnqk>按得票大小列表<br><TABLE border=1 borderColor=#ffffff borderColorDark=#ffffff borderColorLight=#000000 cellSpacing=0 bgColor=#f0f0f0><tr height=160>~;
foreach $top(@top) {
($polltop,$nametop,)=split(/\/\//,$top);
$barwidth = 150*($polltop/$propotion);
if($polltop <= $propotion/3){ $barimag = "$imgurl/1barr.gif"; $FC="green";}
elsif( $polltop < $propotion-1 && $polltop > $propotion/3){ $barimag = "$imgurl/2barr.gif"; $FC="blue";}
elsif( $polltop >= $propotion-1){ $barimag = "$imgurl/3barr.gif"; $FC="red"}
print "<td valign=bottom align=center>$nametop<br><img src=\"$barimag\" height=\"$barwidth\" width=\"12\"><br><font color=$FC>$polltop</font></td>";
}
}
print "</table>";
if($cpsize < 8){
print qq~<p><b><span id=go>59</span></b> <a href=javascript:countDown></a>秒鐘后自動關閉</p>
<script>
function countGo(secs){
go.innerText=secs;
if(--secs>=0)setTimeout("countGo("+secs+")",1000);
}countGo(59);
function clock(){
i=i-1
if(i>0)setTimeout("clock();",1000);
else self.close();
}
var i=60
clock();
</script>
~;
}
}
if(-f "$dirname/$FILE{'poll'}/$id/$num.pl"){
print qq~<p><TABLE border=1 borderColor=#ffffff borderColorDark=#ffffff borderColorLight=#000000 cellSpacing=0 bgColor=f2f8ff width=600><tr><td>=>相關評論<=~;
open(guest,"$dirname/$FILE{'poll'}/$id/$num.pl");
@guest=<guest>;
close(guest);
$end=@guest;
$end1=@guest;
if($end > 5){
$end="5";
$kkj="<tr><td align=right>共有$end1條，<A href=$CGI{'guest'}?id=$id&guest=$num>更多>></A> ";
}
for ($i=0;$i<$end;$i++) {
$guest=@guest[$i];
$guest=~s/\n//g;
($gname,$gbody,$url,$home,$email,$gtim)=split(/\t/,$guest);
print "<tr bgcolor=#DDEEFF><td><A href=# title=\"主頁:$home\n電郵:$email\n地址:$url\">[$gname]</a>—$gbody—($gtim)";
}
print "$kkj</TABLE></p>";
}
&Tailer;
exit;
}
#####查
sub pollname {
$cunt=$FORM{'cunt'};
$cuntdir="$dirname/$FILE{'poll'}/$id/$cunt";
open(NUMBER,"$dirname/$FILE{'poll'}/$id/$cunt.cgi");
$NUMBER=<NUMBER>;
close(NUMBER);
($l_num,$l_date,$l_lockid,$l_mode,$l_pollname,$years,$mons,$mdays,$hours,$mins,$l_no,$l_no,$l_total,$l_neat,$l_six,$l_pfs,$l_jfs,$l_top10,$l_newtop,$l_qh,$l_mail,$l_ly,$l_regk)=split(/\t/,$NUMBER);
if(($l_regk)&&($cookid)){ &error("$name錯誤","請先保存COOKIE方式登陸或注冊");}
&Header('投票詳細統計');
&Top;
open(NUM,"$cuntdir/name.cgi");
@ndat=<NUM>;
close(NUM);
$end=@ndat;
if(!$l_total){
print qq~<form method="post" name="FORM" action="$CGI{'check'}?id=$id&num=$cunt"><input type=hidden name="id" value="$id"><input type=hidden name="num" value="$cunt">~;
}
print qq~<table border=0 width=100%><tr bgcolor=#FFD7C height=24><td> <img src="$CONFIG{'img_url'}/sub.gif" width="16" height="16"> $l_num （現有 $end 人參投）~;
if(($l_top10==1)||($l_top10==2)){print qq~ <a href=$FILE{'poll'}/$id/$cunt.html>排行榜</a>~;}
print qq~</table>
<script language="JavaScript">
function FanAll(form) { for (var i=0;i<form.elements.length;i++) { var e = form.elements[i]; if (e.checked == true){e.checked = false;} else {e.checked = true;} }}
function del(){ if (confirm("你確定要刪除自己投入的項目嗎?")){return true;} return false; }
</script>
<TABLE border=1 borderColor=#ffffff bordercolordark=#ffffff borderColorLight=#006600 cellSpacing=0 width=100% height="42">
<tr bgcolor="#77BBFF" height="27"><td width="20" align="center">序<td width="90" align="center">參 投 人~;
if(!$l_total){
if(($l_six ne "no")&&($l_top10 ne "")){ print "<td width=60 align=center>總分(上期)";}
print "<td width=20 align=center>選";
}
print qq~<td width="25">項數<td> ~;
if(!$l_total){ print qq~<input type="submit" name="CONT" value="自選統計"> <input type="button" value="反選" onclick="FanAll(this.form)"> <input type="submit" name="DEL" value="刪除" title="刪除自己的錯誤投票" onclick="return del()"> <input type="reset" value="重選">~;}
print qq~ 投 入 項 目<td width="110" align="center">時 間</td></tr>\n~;
if($end > $compose){$end="$compose";}
for ($i=0;$i<$end;$i++) {
if(($i%2)==0){ $bjcolor="#DDEEBE";} else { $bjcolor="#DDEEFF";}
$tpm="";
$is=$i+1;
$pollname=@ndat[$i];
$pollname=~s/\n//g;
($pname,$ipdata,$pollsh)=split(/\t/,$pollname);
@pollsh = split(/ /,$pollsh);
$pollsize=@pollsh;
$tname1="--";
$pname=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
if($l_total){
foreach $pollsh1(@pollsh) {
($sh,$fh)=split(/-/,$pollsh1);
open(COCO,"$cuntdir/$sh");
@nums=<COCO>;
close(COCO);
$fh--;
$num=@nums[$fh];
$num=~s/\n//g;
($shname,$fhname)=split(/\t/,$num);
if($fhname ne ""){$tpm .="($sh-$fhname)";}
}
}
else{
open(NONAME,"$usrpwdfile/top$cunt/$pname");
@NONAME=<NONAME>;
close(NONAME);
$tname1=@NONAME[0];
$tname1=~s/[\r\n]//g;
if($tname1 eq ""){$tname1="--";}
open(COCO,"$cuntdir/$cunt.cgi");
@nums=<COCO>;
close(COCO);
foreach $pollsh1(@pollsh) {
$pollsh1--;
$num=@nums[$pollsh1];
$num=~s/\n//g;
($sh,$pollname)=split(/\t/,$num);
if($pollname ne ""){ $tpm .="$pollname "; }
}
}
print "<tr bgcolor=$bjcolor><td align=center>$is<td align=center>$pname";
if(!$l_total){
push(@used_form_values,$i);
if(($l_six ne "no")&&($l_top10 ne "")){ print "<td align=center>$tname1";}
print "<td><input type=checkbox name='$i' value='$tpm'>";
}
print "<td align=center>$pollsize</td><td>$tpm<td align=center>$ipdata</td></tr>\n";
}
if(!$l_total){ print qq~<input type=hidden name="used_values" value="@used_form_values">~;}
print "</TABLE></form>";
&Tailer;
exit;
}
###
sub POST_mail {
$TPRPS++;
$mailbody = qq~
你好，你在《$CONFIG{'vote'}》關注的調查已有新的結果：
=============================================================
關注的調查主題： $l_num
已參與人數：$TPRPS 人
剛才參投者：$name
詳細請進入：
$CONFIG{'cgi_url'}/$CGI{'vote'}?id=$id&num=$num&sub_me=y
$date_time
------------------------------------------------------------
這是服務器自動發出的郵件，請勿回復。
調查服務：$CONFIG{'vote'} ( $CONFIG{'url'} )
程序設計：CK聯合小組 http://hk666b.126.com
~;
if(-f "$pollfilt/$TPRPS.pl"){
open(EMAIL,"$pollfilt/$TPRPS.pl");
@TPRPS=<EMAIL>;
close(EMAIL);
foreach $email(@TPRPS) {
$email=~s/[\r\n]//g;
&SendMail($CONFIG{'email'},'你好，你關注的調查已有新的結果',$mailbody,$email) if($email && $CONFIG{'sendmail'});
}
}
if(-f "$pollfilt/$name.tmp"){
open(TMP,"$pollfilt/$name.tmp");
@TMPS=<TMP>;
close(TMP);
foreach $namel(@TMPS) {
$email=~s/[\r\n]//g;
&SendMail($CONFIG{'email'},"你好，你關注的調查,$name 已參與投票",$mailbody,$email) if($email && $CONFIG{'sendmail'});
}
}
exit;
}
##
sub mypath {
$dirname=__FILE__;
if ($dirname=~/\\/) { $dirname=~ s/\\/\//g;}
if ($dirname) {$mypath=substr($dirname,0,rindex($dirname,"/"));}
else {
$mypath=substr($ENV{'PATH_TRANSLATED'},0,rindex($ENV{'PATH_TRANSLATED'},"\\"));
$mypath=~ s/\\/\//g;
}
}
exit;?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -