代码搜索：cgi
找到约 10,000 项符合「cgi」的源代码
代码结果 10,000
www.eeworm.com/read/184527/9096589
cgi edpass.cgi
$pagetitle="修改登录密码";
sub edpass {
$errorinfo="";
if ($fields{'opass'} && (!$fields{'npass'} || !$fields{'rpass'})) {$errorinfo="*请两次输入新密码，新密码不能为空！";}
elsif ($uid eq $MasterID) {$errorinfo="*测试版本，管
www.eeworm.com/read/184527/9096592
cgi history.cgi
$pagetitle="历史成绩查询";
sub history{
$setedit=0;
$page=int($fields{'page'});
if ($ulevel eq "poweruser" || $ulevel eq "master") {
$pageurl="$indexurl?job=history&DB=$DBname$userinfo";
do "$cgihead/
www.eeworm.com/read/184527/9096604
cgi top.cgi
$pagetitle="综合排名查询";
sub top{
if ($ulevel eq "poweruser" || $ulevel eq "master") {
$pageurl="$indexurl?job=top$userinfo";
do "$cgihead/class.cgi";
} else {$fields{'mon'}=$uclass;}
print qq~
www.eeworm.com/read/184527/9096610
cgi schomana.cgi
$pagetitle="学生成绩管理";
&error("您没有执行此操作的权限！") if ($ulevel ne "master");
sub schomana{
$setedit=0;
$page=int($fields{'page'});
$pageurl="$indexurl?job=schomana&DB=$DBname$userinfo";
do "$cgihead/cl
www.eeworm.com/read/184527/9096613
cgi checkreferrer.cgi
sub checkreferrer {
if (!($ENV{'HTTP_REFERER'})) {&errorip;}
elsif ($valid) {
$servertemp =0;
@validserver=split(/\|/,$valid);
foreach $line (@validserver) {
if (($ENV{'HTTP_REFERER'}
www.eeworm.com/read/184527/9096623
cgi setclass.cgi
$pagetitle="班级设置";
&error("您没有执行此操作的权限！") if ($ulevel ne "master");
sub setclass {
$pageurl="$indexurl?job=setclass$userinfo";
do "$cgihead/class.cgi";
if ($fields{'mon'}) {
@classinfo=readdataf
www.eeworm.com/read/184527/9096630
cgi main.cgi
$pagetitle="欢迎您：$tuname";
sub main {
&uinfo($uid);
($Fsec,$Fmin,$Fhour,$Fday,$Fmon,$Fyear,$Fweek,$Fyearday,$Fisdst) = localtime($ucontact);
$Fmon++;$Fyear+=1900;
print qq~
您上次来访的时间是：
www.eeworm.com/read/184527/9096632
cgi dbmana.cgi
$pagetitle="数据库管理";
&error("您没有执行此操作的权限！") if ($ulevel ne "master");
sub dbmana{
$page=int($fields{'page'});
print qq~
www.eeworm.com/read/184527/9096638
cgi term.cgi
$pagetitle="课目成绩查询";
sub term{
$setedit=0;
$page=int($fields{'page'});
if ($ulevel eq "poweruser" || $ulevel eq "master") {
$pageurl="$indexurl?job=term&DB=$DBname$userinfo";
do "$cgihead/class.
www.eeworm.com/read/184527/9096652
cgi delete.cgi
sub delete {
my $dpath=shift;
return if ($dpath =~ /\.$/ || !-d "$dpath");
my $dpathbak=$dpath;
my $dpathtop=substr($dpathbak,0,rindex($dpathbak,"/"));
$dlist=0;
while(1) {
$dlist++;
my