top.cgi

来自「学生信息系统,这个程序设置非常简单」· CGI 代码 · 共 46 行

$pagetitle="综合排名查询";
sub top{
if ($ulevel eq "poweruser" || $ulevel eq "master") {
$pageurl="$indexurl?job=top$userinfo";
do "$cgihead/class.cgi";
} else {$fields{'mon'}=$uclass;}
print qq~
<table border='0' width='100%' cellspacing='1' bgcolor='#000000' cellpadding='0'>
  <tr>
    <td width='100%' bgcolor='#006000' height='19' align='center'><font color='#FFFFFF'><strong>::: 
    [排名查询]前30名同学排名 :::</strong></font></td>
  </tr>
  <tr>
    <td width='100%' bgcolor='#FFFFFF' align='center'><table border='0' width='99%'>
~;
@userlist=&getuser("$fields{'mon'}");
@outulist=();
foreach $line(@userlist) {
($oid,$opass,$oname,$osex,$ocontact,$oclass,$olevel,$ostats,$oxx22,$oxx23,$oxx24,$oxx25,$oxx26,$oxx27,$ot1,$ot2,$ot3,$ot4,$oend)= split (/\‖/,$line);
$outmust=&getmust($oid);
($mustid,$mustclass,$ocg1,$ocg2,$ocg3,$ocg4,$ocg5,$ocg6,$ocg7,$ocg8,$ocg9,$ocg10,$ocg11,$ocg12,$ocg13,$ocg14,$ocg15,$ocg16,$ocg17,$ocg18,$ocg19,$ocg20,$ocg21,$ocg22,$ocg23,$ocg24,$ocg25,$ocg26,$ocg27,$ocg28,$last) =split(/\‖/,$outmust);
$outconn="$ocg28‖$oid‖$oname‖$osex";
push(@outulist,$outconn);
}
$e=30;
$e=$#outulist+1 if ($e>$#outulist+1);
@outulist=(reverse sort{$a<=>$b}@outulist);
for ($i=1;$i<=$e;$i++) {
  ($outzf,$outid,$outname,$outsex) =split(/\‖/,$outulist[$i-1]);
    if ($outsex eq "Gril") {$sexcolor="ff0000";} else {$sexcolor="0000ff";}
    if ($bgcolor ne "ffffff") {$bgcolor="ffffff";} else {$bgcolor="f5f5f5";}
    print "<tr bgcolor=$bgcolor><td><img
    src='images/88.gif' align='absmiddle' border='0'>名次：<font face=Verdana color=ff4400>$i</font><\/td><td>学号：<font face=Verdana color=006000>$outid</font><\/td><td>名字：<font color=$sexcolor>$outname</font><\/td><td>总分：<font color=444444 face=Verdana>$outzf</font><\/td><\/tr>\n";
}
print qq~
    </table>
    </td>
  </tr>
  <tr>
    <td width='100%' bgcolor='#FFFFFF' align=center height=21><a href='$indexurl?job=term$userinfo'>◆课目成绩查询◆</a>
</td>
  </tr>
</table>
~;
}
1;