dbmana_del.cgi

来自「非常优秀的一套办公系统」· CGI 代码 · 共 8 行

$pagetitle="删除数据库";
&error("您没有执行此操作的权限！") if ($ulevel ne "master");
sub dbmana_del{
&error("指定数据库不存在！") if (!$fields{'ddb'} || !-e "$datahead$fields{'ddb'}.cgi");
unlink "$datahead$fields{'ddb'}.cgi";
&redirect("$indexurl?job=dbmana&DB=$DBname$userinfo","删除数据库成功！");
}
1;