search.cgi

非常优秀的一套办公系统

$pagetitle="数据搜索";
$pagetitle="数据搜索[$fields{'keyword'}]" if ($fields{'keyword'});
sub search {
if (!$fields{'keyword'}) {
print "<font color=dd2222>请输入一个关键字进行搜索！？</font>";
} elsif ($fields{'keyword'}=~/^\d{1}$/ || $fields{'keyword'}=~/^[a-z]{1}$/i) {
print "<font color=dd2222>搜索关键字不能是一个数字或字母！？</font>";
} 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>::: 
    [数据搜索]与[$fields{'keyword'}]相关的信息 :::</strong></font></td>
  </tr>
  <tr>
    <td width='100%' bgcolor='#FFFFFF' align='center'><table border='0' width='99%'>
~;
if ($ulevel ne "poweruser" && $ulevel ne "master") {$fields{'mon'}=$uclass;} else {$fields{'mon'}=""}
@userlist=&getuser("$fields{'mon'}");
$searchend=0;
foreach $line(@userlist) {
($oid,$opass,$oname,$osex,$ocontact,$oclass,$olevel,$ostats,$oxx22,$oxx23,$oxx24,$oxx25,$oxx26,$oxx27,$ot1,$ot2,$ot3,$ot4,$oend)= split (/\‖/,$line);
next if ($oid !~ /$fields{'keyword'}/i && $oname !~ /$fields{'keyword'}/i);
$searchend=1;
if ($fields{'searchwhat'} eq "top") {
@topmust=&getmust("",$oclass);
 for ($ii=1;$ii<=$#topmust+1;$ii++) {
  ($topcg,$mustid) =split(/\‖/,$topmust[$ii-1]);
  if ($mustid eq $oid) {
    if ($bgcolor ne "ffffff") {$bgcolor="ffffff";} else {$bgcolor="f5f5f5";}
    $oid=~s/$fields{'keyword'}/<font color=ff4400>$fields{'keyword'}<\/font>/;
    $oname=~s/$fields{'keyword'}/<font color=ff4400>$fields{'keyword'}<\/font>/;
    print "<tr bgcolor=$bgcolor><td><img
    src='images/88.gif' align='absmiddle' border='0'>班级名次：<font face=Verdana color=ff4400>$ii</font><\/td><td>学号：<font face=Verdana color=006000>$oid</font><\/td><td>名字：<font color=444444>$oname</font><\/td><td>总分：<font color=000080 face=Verdana>$topcg</font><\/td><\/tr>\n";
    last;
  }
 }
} else {
$setxx="";
for ($ii=22;$ii<=27;$ii++) {
$setxxname="oxx$ii";
$setxx.="${$setxxname}," if (${$setxxname});
}
chop($setxx);
$setxx="-无-" if (!$setxx);
    if ($bgcolor ne "ffffff") {$bgcolor="ffffff";} else {$bgcolor="f5f5f5";}
    $oid=~s/$fields{'keyword'}/<font color=ff4400>$fields{'keyword'}<\/font>/;
    $oname=~s/$fields{'keyword'}/<font color=ff4400>$fields{'keyword'}<\/font>/;
    print "<tr bgcolor=$bgcolor><td><img
    src='images/88.gif' align='absmiddle' border='0'>学号：<font face=Verdana color=006000>$oid</font><\/td><td>名字：<font color=444444>$oname</font><\/td><td>班级：<font color=000080 face=Verdana>$oclass</font><\/td><td>选修：$setxx</td><\/tr>\n";
}
}
print "<tr><td width='100%' bgcolor='#FFFFFF' align=center height=50><font face=黑体 color=dd2222 size=4>很抱歉，没有找到您需要的信息！</td></tr>" if (!$searchend);
print qq~
    </table>
    </td>
  </tr>
  <tr>
    <td width='100%' bgcolor='#FFFFFF' align=center height=21></td>
  </tr>
</table>
~;
}
}
1;