📄 seekind.cgi
字号:
#!/perl/bin/perl
require "./setup.cgi";
use CGI;
$co=new CGI;
$name=$co->cookie('name');
$key=$co->cookie('key');
$kind=$co->param('kind');
unless (-e "$adminpath/$name.cgi") {&error("用户名不存在");}
open (f,"$adminpath/$name.cgi");
@t_data=<f>;
close f;
&del(@t_data);
unless ($key eq $t_data[0]) {&error("密码错误");}
@t_kind=split(/=/,$t_data[1]);
$cookie1=$co->cookie(-name=>"kind",-value=>"$kind");
print $co->header(-charset=>'gb2312',-cookie=>$cookie1);
print qq~
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="pic/CSS.CSS" type="text/css">
<title>课堂管理</title>
</head>
<body>
<table border="0" width="750" cellspacing="0" cellpadding="0" align="center">
<tr>
<td><script src=top.js></script></td>
</tr>
<tr>
<td>
<table border="1" cellspacing="0" width="100%" id="AutoNumber1" height="750" align=center>
<tr>
<td width="25%" height="35" bgcolor="#FFFF00" colspan="2"> <font face="隶书" size="4">课程分类</font></td>
<td width="75%" height="35" bgcolor="#FFFF00"> <font face="隶书" size="4">音频<b><font color="#FF0000">-></font></b></font><a href=manage_html.cgi?action=add_yp target=_blank><font color="#0000FF" face="楷体_GB2312" size="4">添加</font></a></td>
</tr>
<tr>
<td width="4%" rowspan="5" height="515" bgcolor="#00CF7B"> </td>
<td width="21%" rowspan="5" height="515" bgcolor="#00CF7B" valign=top>
~;
foreach $t_kind(@t_kind)
{
if ($t_kind eq $kind)
{print "<font color=red face='楷体_GB2312' size=4><br>$classkind{$t_kind}</font><br>";}
else
{print "<a href=seekind.cgi?kind=$t_kind><font color='#0000FF' face='楷体_GB2312' size=4><br>$classkind{$t_kind}</font><br></a>";}
}
print qq~
</td>
<td width="75%" height="150" valign=top><br>
~;
my $i=0;
opendir (DIR,"$realpath/$classkind{$kind}/yp");
@tmpdir=readdir(DIR);
closedir DIR;
foreach $tmpdir(@tmpdir)
{
if ($tmpdir=~/\.dat/i) {push(@mydir,$tmpdir);}
}
foreach $mydir(@mydir)
{ $i++;
unless ($i<36) {print "<br><br> >>><a href=manage_html.cgi?flag=yp target=_blank>更多......</a>"; last;}
($mydir,$_)=split(/\./,$mydir);
print " <a href=read.cgi?path=yp/$mydir target=_blank><font size=3>音频$i</font></a> ";
if ($i%9==0) {print "<br><br>";}
}
print qq~
</td>
</tr>
<tr>
<td width="75%" height="35" bgcolor="#FFFF00"> <font face="隶书" size="4">练习<b><font color="#FF0000">-></font></b></font><a href=manage_html.cgi?action=add_lx target=_blank><font color="#0000FF" face="楷体_GB2312" size="4">
添加</font></a></td>
</tr>
<tr>
<td width="75%" height="150" valign=top><br>
~;
$i=0; undef @mydir;
opendir (DIR,"$realpath/$classkind{$kind}/lx");
@tmpdir=readdir(DIR);
closedir DIR;
foreach $tmpdir(@tmpdir)
{
if ($tmpdir=~/\.dat/i) {push(@mydir,$tmpdir);}
}
foreach $mydir(@mydir)
{ $i++;
unless ($i<36) {print "<br><br> >>><a href=manage_html.cgi?flag=lx target=_blank>更多......</a>"; last;}
($mydir,$_)=split(/\./,$mydir);
print " <a href=read.cgi?path=lx/$mydir target=_blank><font size=3>练习$i</font></a> ";
if ($i%9==0) {print "<br><br>";}
}
print qq~
</td>
</tr>
<tr>
<td width="75%" height="35" bgcolor="#FFFF00"> <font face="隶书" size="4">试题<b><font color="#FF0000">-></font></b></font><a href=manage_html.cgi?action=add_st target=_blank><font color="#0000FF" face="楷体_GB2312" size="4">
添加</font></a></td>
</tr>
<tr>
<td width="75%" height="150" valign=top><br>
~;
$i=0; undef @mydir;
opendir (DIR,"$realpath/$classkind{$kind}/st");
@tmpdir=readdir(DIR);
closedir DIR;
foreach $tmpdir(@tmpdir)
{
if ($tmpdir=~/\.dat/i) {push(@mydir,$tmpdir);}
}
foreach $mydir(@mydir)
{ $i++;
unless ($i<36) {print "<br><br> >>><a href=manage_html.cgi?flag=st target=_blank>更多......</a>"; last;}
($mydir,$_)=split(/\./,$mydir);
print " <a href=read.cgi?path=st/$mydir target=_blank><font size=3>试题$i</font></a> ";
if ($i%9==0) {print "<br><br>";}
}
print qq~
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td><script src=buttom.js></script></td>
</tr>
</table>
</body>
</html>
~;⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -