dbmana_add.cgi

综合学生成绩查询系统

$pagetitle="增加数据库";
&error("您没有执行此操作的权限！") if ($ulevel ne "master");
sub dbmana_add{
&error("请输入数据库说明！如“XX学期学生成绩数据库”") if (!$fields{'dbrem'} || $fields{'dbrem'} eq "在此输入数据库说明");
$setdbname=time.".cgi";
put_fvar(">$datahead$setdbname","$fields{'dbrem'}\n");
&redirect("$indexurl?job=dbmana&DB=$DBname$userinfo","增加数据库成功！");
}
1;