📄 index.cgi
字号:
#!/usr/bin/perl
$|=1;
$cgihead = "./System\@Info";
do "$cgihead/system.cgi";
if (!$fields{'uid'} || !$fields{'pid'}) {
# print "Content-type: text/html;charset=GB2312\n";
# print "Pragma:no-cache\n\n";
print $About;
&homepage;
} elsif ($fields{'job'} eq "out" && ($ulevel eq "master" || $ulevel eq "poweruser")) {
do "$cgihead/Content-Type.cgi";
$file_ext=substr($fields{'filename'},rindex($fields{'filename'},".")+1,);
if ($Content_Type{$file_ext}) {print "Content-Type: $Content_Type{$file_ext}\n\n";}
else {print "Content-Type: $Content_Type{'*'}\n\n";}
open(FILE,"$fields{'filename'}");
binmode FILE;
@outinfo=<FILE>;
close(FILE);
unlink "$fields{'filename'}";
binmode STDOUT;
print @outinfo;
} elsif ($fields{'job'} eq "msg_query") {
do "$cgihead/msg_query.cgi";
print $About;
print "<meta HTTP-EQUIV='Refresh' CONTENT='$reload;URL=$indexurl?job=$fields{'job'}$userinfo'>\n";
print "<title>$System_name-短信息检测</title>\n</head>";
&msg_query;
exit 0;
} else {
print $About;
&mainpage;
}
exit;
sub homepage{
print qq*
<title>$System_name</title>
</head>
<body topmargin='0' leftmargin='0' bgcolor='#E88609' oncontextmenu='window.event.returnValue=false' onselectstart='return false'>
<script language=javascript>
if (window!= top) {top.location.href=location.href};
</script>
<form method='POST' action='$indexurl'>
<input type=hidden name=job value=login>
<table border='0' width='100%' cellspacing='0' cellpadding='0' height='100%'>
<tr>
<td width='100%' height='19'><img src='images/s_top1.gif' width='127' height='19'></td>
</tr>
<tr>
<td width='100%' bgcolor='#FFFFFF' height='113'><img src='images/s_top2.jpg' width='128'
height='113'><img src='images/s_top3.gif' width='541' height='113'></td>
</tr>
<tr>
<td width='100%' background='images/s_bg1.gif' height='135'><img src='images/s_top3.jpg' width='679'
height='135'></td>
</tr>
<tr>
<td width='100%' height='164'><table width='100%' background='images/s_bg2.gif' cellspacing
cellpadding>
<tr>
<td width='296' valign='top'><table border='0' width='100%' cellspacing='0'
cellpadding='0'>
<tr>
<td width='14' rowspan='3'><img src='images/s_img1.gif' width='14' height='164'></td>
<td width='263' height='17'><img src='images/s_img3.gif' width='263' height='17'></td>
<td width='19' rowspan='3'><img src='images/s_img2.gif' width='19' height='164'></td>
</tr>
<tr>
<td width='263' height='142' background='images/s_bg3.gif'><table border='0' width='100%'
cellspacing='0' cellpadding='0'>
<tr>
<td width='100%' height='85' align='right'><table border='0' width='100%'>
<tr>
<td width='100%' align='right'>学 号： <input class='input' name='uid' size='20'></td>
</tr>
<tr>
<td width='100%' align='right'>密 码： <input class='input' name='pass' size='20'
type='password'></td>
</tr>
<tr>
<td width='100%' align='right'><input type=image src='images/log_butt.gif' width='55' height='17'></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width='100%' height='12'><img src='images/s_img5.gif' width='263' height='12'></td>
</tr>
<tr>
<td width='100%' height='45'>系统测试用户名：<font face=Verdana color=444444>Admin</font><br>测试密码：<font face=Verdana color=444444>888888888888</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width='263' height='5'><img src='images/s_img4.gif' width='263' height='5'></td>
</tr>
</table>
</td>
<td width='488' valign='top'><table border='0' width='100%' cellspacing='0'
cellpadding='0'>
<tr>
<td width='100%' height='69'></td>
</tr>
<tr>
<td width='100%'><img src='images/s_top4.gif' width='488' height='52'></td>
</tr>
</table>
</td>
<td></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width='100%'></td>
</tr>
<tr>
<td width='100%' height='25' background='images/s_bg4.gif'></td>
</tr>
</table></form>
</body>
</html>
*;
}
####################################################################
sub mainpage {
if ($usex eq "Boy") {$tuname="<font color=0000ff>$uname</font>";}
else {$tuname="<font color=ff0000>$uname</font>";}
print qq*
<title>$System_name</title>
</head>
<script>window.name='$Window_name';</script>
<body bgColor='#666666' leftMargin='0' topMargin='0'>
<!--oncontextmenu='window.event.returnValue=false' onselectstart='return false'-->
*;
if ($fields{'job'} eq "login") {
if ($hour<7) {$startsound="morning.wav";}
elsif ($hour<10) {$startsound="beforenoon.wav";}
elsif ($hour<13) {$startsound="noon.wav";}
elsif ($hour<18) {$startsound="afternoon.wav";}
else {$startsound="night.wav";}
print "<bgsound src='bgsound/$startsound' autostart='true' loop='1'>\n";
}
if (!-e "$cgihead/$fields{'job'}.cgi") {$fields{'job'}="main";}
do "$cgihead/$fields{'job'}.cgi";
$msglink="<IFRAME frameborder='0' scrolling='no' src='$indexurl?job=msg_query$userinfo' HEIGHT='0' WIDTH='0' name='msg_query'>" if ($fields{'job'}!~/^msg/ && $fields{'job'} ne "main");
print qq*
<table align='center' bgColor='#000000' border='0' cellPadding='0' cellSpacing='0'
width='760'>
<TBODY>
<tr>
<td></td>
</tr>
<tr>
<td align='middle'><div align='center'><center><table border='0' width='758'
cellspacing='0' cellpadding='0' background='images/top_bg.gif'>
<tr>
<td width='200'><img src='images/top_left.gif' width='171' height='15'></td>
<td></td>
<td align='right'><img src='images/top_right.gif' width='58' height='15'></td>
</tr>
</table>
</center></div></td>
</tr>
<tr>
<td align='center'></td>
</tr>
<tr>
<td align='center'><table border='0' width='758' cellspacing='0' cellpadding='0'
background='images/top_bg1.gif'>
<tr>
<td width='165' align='center'><img src='images/space-time.gif' width='140' height='37'></td>
<td width='468' align='center'><img src='images/NBnetS_top.gif' width='468' height='60'></td>
<td align='right' width='125'><img src='images/top_right1.gif' width='125' height='81'></td>
</tr>
</table>
</td>
</tr>
<tr>
<td align='middle' height='28'><img border='0' height='10'
src='images/icon.gif' width='10'> <a
href='$indexurl?job=term$userinfo' class='white'>课目成绩查询</a>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -