dbmana.cgi

非常优秀的一套办公系统

$pagetitle="数据库管理";
&error("您没有执行此操作的权限！") if ($ulevel ne "master");
sub dbmana{
$page=int($fields{'page'});
print qq~
<table border='0' width='100%' cellspacing='1' bgcolor='#000000' cellpadding='0'>
  <tr>
    <td width='100%' bgcolor='#000080' 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%'>
<script language=javascript>
function deldb(db,name){
		if (window.confirm('\~\~ $uname 您好，您真准备删除成绩数据库“'+name+'”！\\n\\n此操作是不可恢复的，\\n\\n如果您真的决定删除，请按“确定”，否则按“取消”返回，谢谢！')) {
		location.href = '$indexurl?job=dbmana_del&DB=$DBname&page=$fields{'page'}&ddb='+db+'$userinfo';
		}
}
</script>
~;

  opendir (DBDIR, "$DBdir"); 
  @dblist = readdir(DBDIR);
  closedir (DBDIR);
  @dblist = grep(/^\d+.cgi$/, @dblist);
  @dblist=(reverse sort{$a<=>$b}@dblist);

$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;
$e=$#dblist+1 if ($e>$#dblist+1);
$s=($setpage-1)*$PageMaxInfo;
for($i=$s;$i<$e;$i++) {

open(DBFILE,"$datahead$dblist[$i]");
$dbconn=<DBFILE>;
close(DBFILE);
chomp($dbconn);
$dbconn=~s/\#|\?|\@|\&|\`|\|\\|\/|%|\n|\r|\f//g;
$dbname=$dblist[$i]; $dbname=~s/.cgi//;
($Fsec,$Fmin,$Fhour,$Fday,$Fmon,$Fyear,$Fweek,$Fyearday,$Fisdst) = localtime($dbname);
$Fmon++;$Fyear+=1900;

    print "<tr bgcolor=$bgcolor><td><img
    src='images/reply.gif' align='absmiddle' border='0'><font face=Verdana color=006000>[$dbname]</font><font color=dd2222>$dbconn</font></a><\/td><td>建立时间：<font face=Verdana>$Fyear-$Fmon-$Fday $Fhour:$Fmin:$Fsec</font><\/td><td align=center><img src='images/button_del.gif' border=0 alt='删除数据库' onclick=\"deldb('$dbname','$dbconn');\"></td><\/tr>\n";
}
$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=dbmana$userinfo'>
~;
print "<font color='666666'>共有 $list 个学生成绩数据库</font> ";
if ($setpage!=1) {print "<a href='$indexurl?job=dbmana&DB=$DBname&page=1$userinfo'>第一页<\/a> <a href='$indexurl?job=dbmana&DB=$DBname&page=$ppage$userinfo'>上一页<\/a>";}
else {print "<font color=dd2222>第一页<\/font> <font color=888888>上一页<\/font>";}
if ($setpage<$page) {print " <a href='$indexurl?job=dbmana&DB=$DBname&page=$npage$userinfo'>下一页<\/a> <a href='$indexurl?job=dbmana&DB=$DBname&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>
  <tr>
    <td width='100%' bgcolor='#FFFFFF' align=center height=31>
<form method='POST' action='$indexurl?job=dbmana_add&DB=$DBname$userinfo'>
<img src='images/replynow.gif' align=absmiddle>建立新学期数据库：<input type=text class=input value='在此输入数据库说明' name=dbrem size=30 onclick=\"this.value='';\"> <input type=image src='images/button_add.gif' border=0 alt='增加数据库' align=absmiddle>
</td></form>
  </tr>
</table>
~;
}
1;