pupil.cgi

这个程序设置非常简单

$pagetitle="学生档案管理";
&error("您没有执行此操作的权限！") if ($ulevel ne "master");
sub pupil {
$setedit=0;
$page=int($fields{'page'});
$pageurl="$indexurl?job=pupil$userinfo";
do "$cgihead/class.cgi";
$selectmon=$fields{'mon'};
print qq~
<table border='0' width='100%' cellspacing='1' bgcolor='#000000' cellpadding='0'>
  <tr>
    <td width='100%' bgcolor='#800000' 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%'>
~;
@classinfo=readdatafile("Class.DB");
$outfilename="";
if ($fields{'mjob'} eq "out") {
  if (!$fields{'mon'}) {
	print "<script>alert('请先选择一个班级！');</script>";
  } else {

for(@classinfo) {
($classmon,$classname,$last) = split(/\‖/,$_);
  last if ($classmon eq $fields{'mon'});
}
	$outfilename="$classname 学生档案报表.csv";
	&put_fvar(">$outfilename","学号,姓名,性别,选修\n");
  }
}
@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) {
    if ($outfilename) {
		$outoxx="";
	for($iii=22;$iii<=27;$iii++) {
		$oxxname="oxx$iii";
		$outoxx.="${$oxxname}," if (${$oxxname});
	}
	chop($outoxx);
	$outsex="女"; $outsex="男" if ($osex eq "Boy");
	&put_fvar(">>$outfilename","$oid,$oname,$outsex,$outoxx\n");
    }
    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'><a href='$indexurl?job=pupil&user=$oid&mon=$fields{'mon'}&page=$fields{'page'}$userinfo&temp=#useradd'><font face=Verdana color=006000>[$oid]</font><font color=$sexcolor>$oname</font></a><\/td><td>班级：<font face=Verdana>$oclass</font><\/td><td>权限：<font face=Verdana>$olevel</font><\/td><\/tr>\n";
  }
  if ($fields{'user'} && $oid eq $fields{'user'}) {
	$setedit=1; $adduid=$oid; $adduname=$oname; $selectmon=$oclass;
	if ($osex eq "Boy") {$addusex="<option value='Boy' selected>男</option>";}
	else {$addusex="<option value='Girl' selected>女</option>";}
	if ($olevel eq "master") {$addulevel="<option value='$olevel' selected>系统管理员</option>";}
	elsif ($olevel eq "poweruser") {$addulevel="<option value='$olevel' selected>可查看该年级段所有学生成绩</option>";}
	elsif ($olevel eq "classuser") {$addulevel="<option value='$olevel' selected>可查看本班所有同学成绩</option>";}
	else {$addulevel="<option value='user' selected>仅可查看自己的成绩</option>";}
	$setreadonly="Readonly";
$addux1=$oxx22; $addux2=$oxx23; $addux3=$oxx24; $addux4=$oxx25; $addux5=$oxx26; $addux6=$oxx27;
  }
}
if ($outfilename && -e "$outfilename") {
  $tar = Archive::Tar->new();
  $tar->add_files($outfilename);
  $tar->write("$outfilename.tar");
  unlink "$outfilename";
  print "<script LANGUAGE='JavaScript'>window.open ('$indexurl?job=out&filename=$outfilename.tar$userinfo', 'Outfile')</script>";
}
$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=pupil&mon=$fields{'mon'}$userinfo'>
~;
print "<font color='adadad'>共有 $list 条用户记录</font> ";
if ($setpage!=1) {print "<a href='$indexurl?job=pupil&mon=$fields{'mon'}&page=1$userinfo'>第一页<\/a> <a href='$indexurl?job=pupil&mon=$fields{'mon'}&page=$ppage$userinfo'>上一页<\/a>";}
else {print "<font color=dd2222>第一页<\/font> <font color=888888>上一页<\/font>";}
if ($setpage<$page) {print " <a href='$indexurl?job=pupil&mon=$fields{'mon'}&page=$npage$userinfo'>下一页<\/a> <a href='$indexurl?job=pupil&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>
<form method="POST" action="$indexurl?job=pupil_add&page=$fields{'page'}&mon=$fields{'mon'}$userinfo">
<input type=hidden name=edit value='$setedit'>
<script language=javascript>
function deluser(uid,uname){
		if (window.confirm('\~\~ $uname 您好，您真准备删除学生“'+uname+'”！\\n\\n此操作是不可恢复的，\\n\\n如果您真的决定删除，请按“确定”，否则按“取消”返回，谢谢！')) {
		location.href = '$indexurl?job=pupil_del&page=$fields{'page'}&mon=$fields{'mon'}&did='+uid+'$userinfo';
		}
}
</script>
<a name=useradd></a>
<table border='0' width='100%' cellspacing='1'>
  <tr>
    <td nowrap>学号：<input type='text' name='adduid' size='16' class='input' value='$adduid' $setreadonly></td>
    <td>姓名：<input type='text' name='adduname' size='16' class='input' value='$adduname'></td>
  </tr>
  <tr>
    <td nowrap>密码：<input type='password' name='addupass' size='10' class='input'></td>
    <td>性别：<select name='addusex' size='1' class='input'>$addusex
      <option value='Boy'>男</option>
      <option value='Girl'>女</option>
    </select> <input type='checkbox' name='setnext' value='1' checked>自动增加学号</td>
  </tr>
    <td nowrap>班级：<select name='addumon' size='1' class='input'>
~;
for(@classinfo) {
($classmon,$classname,$last) = split(/\‖/,$_);
  if ($selectmon && $classmon eq $selectmon) {
    print "<option selected value='$classmon'>$classname</option>";
  }
  else {print "<option value='$classmon'>$classname</option>";}
}
print qq~
    </select></td>
    <td nowrap>权限：<select name='addulevel' size='1' class='input'>$addulevel
      <option value='user'>仅可查看自己的成绩</option>
      <option value='classuser'>可查看本班所有同学成绩</option>
      <option value='poweruser'>可查看该年级段所有学生成绩</option>
      <option value='master'>系统管理员</option>
    </select></td>
  </tr>
  <tr>
    <td colspan='2'>选修课：01<input type='text' name='addux1' size='20' class='input' value='$addux1'> 02<input type='text' name='addux2' size='20' class='input' value='$addux2'> 03<input type='text' name='addux3' size='20' class='input' value='$addux3'>
    </td>
  </tr>
  <tr>
    <td colspan='2'>选修课：04<input type='text' name='addux4' size='20' class='input' value='$addux4'> 05<input type='text' name='addux5' size='20' class='input' value='$addux5'> 06<input type='text' name='addux6' size='20' class='input' value='$addux6'>
    </td>
  </tr>
  <tr>
    <td colspan='2'><font color=ff4400>*注意：</font>~;
if (!$setedit) {print "如果权限为系统管理员则学号栏可输入用户ID，用户ID可以是任何字符。如果不输入密码，则密码与学号相同！";}
else {print "学号(用户ID)不可修改。如果不输入密码，则保留原密码！";}
print qq~</td></tr>
  <tr>
    <td></td><td align=center>~;
if (!$setedit) {print "<input type=image src='images/button_add.gif' border=0 alt='增加档案'>";}
else {print " <img src='images/button_del.gif' border=0 alt='删除档案' onclick=\"deluser('$adduid','$adduname');\"> <input type=image src='images/button_edit.gif' border=0 alt='修改档案'> <img src='images/button_add.gif' border=0 alt='增加档案' onclick=\"location.href = '$indexurl?job=pupil&page=$fields{'page'}&mon=$fields{'mon'}$userinfo&temp=#useradd';\">";}
print qq~</td>
  </tr></form>
</table>
<center><hr size=1 color=666666><a href='$indexurl?job=setclass$userinfo'><img src='images/button_bj.gif' border=0 alt='班级管理'></a> <a href='$indexurl?job=pupil&mon=$fields{'mon'}&page=$fields{'page'}&mjob=out$userinfo'><img src='images/button_out.gif' border=0 alt='输出Excel报表[学生档案]'></a></center>
~;
}
1;