pupil_del.cgi

这个程序设置非常简单

$pagetitle="删除学生档案";
&error("您没有执行此操作的权限！") if ($ulevel ne "master");
sub pupil_del {
&error("指定学生档案不存在！") if (!$fields{'did'} || !-e "$userhead$fields{'did'}.cgi");
&error("您没有权限删除这个档案！") if ($fields{'did'} eq $MasterID);
unlink "$userhead$fields{'did'}.cgi";
&redirect("$indexurl?job=pupil&page=$fields{'page'}&mon=$fields{'mon'}&next=$setnext$userinfo","删除用户档案完成！");
}
1;