history.cgi

非常优秀的一套办公系统

$pagetitle="历史成绩查询";
sub history{
$setedit=0;
$page=int($fields{'page'});
if ($ulevel eq "poweruser" || $ulevel eq "master") {
$pageurl="$indexurl?job=history&DB=$DBname$userinfo";
do "$cgihead/class.cgi";
} else {$fields{'mon'}="$uclass"; do "$cgihead/class1.cgi";}
print "<form><table><img src='images/openfold.gif' align=absmiddle> 当前操作数据库：<select name='selectDB' size='1' class='input' onchange=\"location.href='$indexurl?job=$fields{'job'}&mon=$fields{'mon'}&user=$fields{'user'}&page=$fields{'page'}$userinfo&DB='+this.form.selectDB.options[this.form.selectDB.selectedIndex].value;\">";
  opendir (DBDIR, "$DBdir"); 
  @dblist = readdir(DBDIR);
  closedir (DBDIR);
  @dblist = grep(/^\d+.cgi$/, @dblist);
  @dblist=(reverse sort{$a<=>$b}@dblist);
foreach (@dblist) {
open(DBFILE,"$datahead$_");
$dbconn=<DBFILE>;
close(DBFILE);
chomp($dbconn);
$dbconn=~s/\#|\?|\@|\&|\`|\|\\|\/|%|\n|\r|\f//g;
$dbname=$_; $dbname=~s/.cgi//;
  if ($dbname eq $DBname) {print "<option selected value='$dbname' style='Color:dd2222;'>$dbconn</option>\n";}
  else {print "<option value='$dbname'>$dbconn</option>\n";}
}
print "</select> <img src='images/ppbook.gif' align='absmiddle'></table></form>";

if ($ulevel eq "classuser" || $ulevel eq "poweruser" || $ulevel eq "master") {
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>::: 
    [成绩查询]所有学生历史成绩 :::</strong></font></td>
  </tr>
  <tr>
    <td width='100%' bgcolor='#FFFFFF' align='center'><table border='0' width='99%'>
~;
@dblist=&getuser("$fields{'mon'}");
$list=$#dblist+1;
$page=int($list/$PageMaxInfo);
$page++ if ($list%$PageMaxInfo!=0 || $list==0);
$setpage=$page if ($setpage>$page);
$setpage=1 if ($setpage<1);

$e=$setpage*$PageMaxInfo;
$s=($setpage-1)*$PageMaxInfo;
for($i=$s;$i<$e;$i++) {
&getoinfo($dblist[$i]);
  if ($oname) {
$returnclass=&returnclass($oclass);
($remon,$rename,$ret1,$ret2,$ret3,$oxx1,$oxx2,$oxx3,$oxx4,$oxx5,$oxx6,$oxx7,$oxx8,$oxx9,$oxx10,$oxx11,$oxx12,$oxx13,$oxx14,$oxx15,$oxx16,$oxx17,$oxx18,$oxx19,$oxx20,$oxx21,$last) = split(/\‖/,$returnclass);
    if ($osex eq "Gril") {$sexcolor="ff0000";} else {$sexcolor="0000ff";}
    if ($bgcolor ne "ffffff") {$bgcolor="ffffff";} else {$bgcolor="f5f5f5";}
    $setlook=""; $setlook="<a name=lookuser></a>" if ($fields{'user'} eq $oid);
    print "<tr bgcolor=$bgcolor><td><img
    src='images/88.gif' align='absmiddle' border='0'>$setlook<a href='$indexurl?job=history&user=$oid&mon=$fields{'mon'}&page=$fields{'page'}&DB=$DBname$userinfo&temp=#lookuser'><font face=Verdana color=006000>[$oid]</font><font color=$sexcolor>$oname</font></a><\/td><td>班级：<font face=Verdana>$rename</font><\/td><\/tr>\n";
  }
  if ($oid eq $fields{'user'} && $fields{'user'}) {
$must=&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(/\‖/,$must);
print "<tr><td width='100%' colspan='2' height=100><table border='0' width='100%' cellspacing='1'>";
%setmust=(); %setoxx=();
for ($ii=1;$ii<=21;$ii++) {
	$mustname="oxx$ii";	$mustvalue="ocg$ii";
	if (${$mustname} ne "") {$setmust{"${$mustname}"}=${$mustvalue};}
}
for ($ii=22;$ii<=27;$ii++) {
	$mustname="oxx$ii";	$mustvalue="ocg$ii";
	if (${$mustname} ne "") {$setoxx{"${$mustname}"}=${$mustvalue};}
}
while (($key,$value)=each(%setmust)) {
	if ($value<60 && $value>1) {$vcolor="dd2222";}
	elsif ($value <80 && $value>1) {$vcolor="DD8844";}
	else {$vcolor="006000";}
	print "<tr><td bgcolor='#F5F7FE' height=19  width='20%' nowrap>$key</td><td bgcolor=FEF7F5><font face=Verdana color=$vcolor>$value</font></td></tr>\n";
}
while (($key,$value)=each(%setoxx)) {
	if ($value<60 && $value>1) {$vcolor="dd2222";}
	elsif ($value <80 && $value>1) {$vcolor="DD8844";}
	else {$vcolor="006000";}
	print "<tr><td bgcolor='#F5FEF7' height=19 width='20%' nowrap>$key</td><td bgcolor=FEF7F5><font face=Verdana color=$vcolor>$value</font></td></tr>\n";
}
	print "<tr><td bgcolor='dd2222' height=19 width='20%' nowrap align=right><font color=ffffff><b>总分==></b></font></td><td bgcolor=FEF7F5><font face=Verdana color=000080>$ocg28</font></td></tr>\n";
@topmust=&getmust("",$oclass);
for ($ii=1;$ii<=$#topmust+1;$ii++) {
	($topcg,$mustid) =split(/\‖/,$topmust[$ii-1]);
	if ($mustid eq $oid) {
	print "<tr><td bgcolor='006000' height=19 width='20%' nowrap align=right><font color=ffffff><b>班级名次==></b></font></td><td bgcolor=FEF7F5><font face=Verdana color=ff4400><b>$ii</b></font></td></tr>\n";
	last;
	}
}
print "</table></td></tr>\n";
  }
}

$npage=$ppage=$setpage;
$npage++;
$ppage--;
print qq~
    </table>
    </td>
  </tr>
  <tr>
    <td width='100%' bgcolor='#FFFFFF' align=center height=21>
<form method='POST' action='$indexurl?job=history&mon=$fields{'mon'}&DB=$DBname$userinfo'>
~;
if ($setpage!=1) {print "<a href='$indexurl?job=history&mon=$fields{'mon'}&DB=$DBname&page=1$userinfo'>第一页<\/a> <a href='$indexurl?job=history&mon=$fields{'mon'}&DB=$DBname&page=$ppage$userinfo'>上一页<\/a>";}
else {print "<font color=dd2222>第一页<\/font> <font color=888888>上一页<\/font>";}
if ($setpage<$page) {print " <a href='$indexurl?job=history&DB=$DBname&mon=$fields{'mon'}&page=$npage$userinfo'>下一页<\/a> <a href='$indexurl?job=history&DB=$DBname&mon=$fields{'mon'}&page=$page$userinfo'>最后页<\/a>";}
else {print " <font color=888888>下一页<\/font> <font color=dd2222>最后页<\/font>";}
$adduid="$fields{'next'}" if ($fields{'next'});
print qq~
 $setpage页 \/ 共$page页 到
<input type=text name=page size=4 class=input maxlength=4> <input type='submit' value=页 class=input>
</td></form>
  </tr>
</table>
~;
} else {
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>::: 
    [成绩查询]所有历史课目成绩 :::</strong></font></td>
  </tr>
  <tr>
    <td width='100%' bgcolor='#FFFFFF' align='center'><table border='0' width='99%'>
~;
&oinfo($uid);
$returnclass=&returnclass($oclass);
($remon,$rename,$ret1,$ret2,$ret3,$oxx1,$oxx2,$oxx3,$oxx4,$oxx5,$oxx6,$oxx7,$oxx8,$oxx9,$oxx10,$oxx11,$oxx12,$oxx13,$oxx14,$oxx15,$oxx16,$oxx17,$oxx18,$oxx19,$oxx20,$oxx21,$last) = split(/\‖/,$returnclass);
    if ($osex 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=006000>[$oid]</font><font color=$sexcolor>$oname</font></a><\/td><td>班级：<font face=Verdana>$rename</font><\/td><\/tr>\n";
$must=&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(/\‖/,$must);
print "<tr><td width='100%' colspan='2' height=100><table border='0' width='100%' cellspacing='1'>";
%setmust=(); %setoxx=();
for ($ii=1;$ii<=21;$ii++) {
	$mustname="oxx$ii";	$mustvalue="ocg$ii";
	if (${$mustname} ne "") {$setmust{"${$mustname}"}=${$mustvalue};}
}
for ($ii=22;$ii<=27;$ii++) {
	$mustname="oxx$ii";	$mustvalue="ocg$ii";
	if (${$mustname} ne "") {$setoxx{"${$mustname}"}=${$mustvalue};}
}
while (($key,$value)=each(%setmust)) {
	if ($value<60 && $value>1) {$vcolor="dd2222";}
	elsif ($value <80 && $value>1) {$vcolor="DD8844";}
	else {$vcolor="006000";}
	print "<tr><td bgcolor='#F5F7FE' height=19  width='20%' nowrap>$key</td><td bgcolor=FEF7F5><font face=Verdana color=$vcolor>$value</font></td></tr>\n";
}
while (($key,$value)=each(%setoxx)) {
	if ($value<60 && $value>1) {$vcolor="dd2222";}
	elsif ($value <80 && $value>1) {$vcolor="DD8844";}
	else {$vcolor="006000";}
	print "<tr><td bgcolor='#F5FEF7' height=19 width='20%' nowrap>$key</td><td bgcolor=FEF7F5><font face=Verdana color=$vcolor>$value</font></td></tr>\n";
}
	print "<tr><td bgcolor='dd2222' height=19 width='20%' nowrap align=right><font color=ffffff><b>总分==></b></font></td><td bgcolor=FEF7F5><font face=Verdana color=000080>$ocg28</font></td></tr>\n";
@topmust=&getmust("",$oclass);
for ($ii=1;$ii<=$#topmust+1;$ii++) {
	($topcg,$mustid) =split(/\‖/,$topmust[$ii-1]);
	if ($mustid eq $oid) {
	print "<tr><td bgcolor='006000' height=19 width='20%' nowrap align=right><font color=ffffff><b>班级名次==></b></font></td><td bgcolor=FEF7F5><font face=Verdana color=ff4400><b>$ii</b></font></td></tr>\n";
	last;
	}
}
print qq~
</table></td></tr>
    </table>
    </td>
  </tr>
  <tr>
    <td width='100%' bgcolor='#FFFFFF' align=center height=21><a href='$indexurl?job=top$userinfo'>◆综合排名查询◆</a>
    </td>
  </tr>
</table>
~;
}
}
1;