index.cgi
来自「陈淑亭网络课堂:采用iis+perlis方式编写」· CGI 代码 · 共 137 行
CGI
137 行
#!/perl/bin/perl
require "./setup.cgi";
use CGI;
$co=new CGI;
$username=$co->cookie('name');
$kind=$co->param('kind');
unless(-e "$userpath/$username.cgi") {&error("请先登陆");}
open (f,"$userpath/$username.cgi");
@userdata=<f>;
close f;
&del(@userdata);
$userdata[5]=$userdata[5]-(time()-$userdata[4]);
$userdata[4]=time();
open (f,">$userpath/$username.cgi");
foreach (@userdata) {print f "$_\n";}
close f;
unless ($userdata[5]>0) {&error("您的帐号时间不够，请及时冲值");}
@s_kind=split(/=/,$userdata[1]); #读出课程分类
$cookie1=$co->cookie(-name=>"kind",-value=>"$kind");
print $co->header(-charset=>'gb2312',-type=>'text/html',-cookie=>$cookie1);
print qq~
<html>
<head>
<title>在线课堂</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="pic/CSS.CSS" type="text/css">
<meta http-equiv="refresh" content="900">
</head>
<body onUnload=stay()>
<script language="Javascript">
function stay() {
window.open("exit.cgi","","height=300,width=400");
}
</script>
<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">音频</font></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 $s_kind(@s_kind)
{
if ($s_kind eq $kind)
{print "<font color=red face='楷体_GB2312' size=4><br>$classkind{$s_kind}</font><br>";}
else
{print "<a href=index.cgi?kind=$s_kind><font color='#0000FF' face='楷体_GB2312' size=4><br>$classkind{$s_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&action=student 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">练习</font></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&action=student 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">试题</font></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&action=student 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 + =
减小字号Ctrl + -
显示快捷键?