代码搜索：cgi
找到约 10,000 项符合「cgi」的源代码
代码结果 10,000
www.eeworm.com/read/352688/10524234
c cgi.c
/*
* Boa, an http server
* Copyright (C) 1995 Paul Phillips
* Some changes Copyright (C) 1996,97 Larry Doolittle
* Some changes Copyright (C) 1996 Charles
www.eeworm.com/read/159688/10622574
cgi system.cgi
www.eeworm.com/read/159688/10622580
cgi setup.cgi
#首页文件链接名称，如果服务器支持index.<mark>cgi</mark>的默认文档，可将其设置为“/”即“$indexurl= "/";”使别人感觉不到这个系统是用<mark>CGI</mark>程序
$indexurl = "index.<mark>cgi</mark>";
#为了你设置方便，下面的地址都使用了相对路径，一般服务器都能支持，如果你的服务器不能支持则要将.设置成绝对路径如“$mainhead="C:/Inetpub/wwwroot/";”以下一 ...
www.eeworm.com/read/159688/10622587
cgi pupil.cgi
$pagetitle="学生档案管理";
&error("您没有执行此操作的权限！") if ($ulevel ne "master");
sub pupil {
$setedit=0;
$page=int($fields{'page'});
$pageurl="$indexurl?job=pupil$userinfo";
do "$cgihead/class.cgi";
$sele
www.eeworm.com/read/159688/10622592
cgi search.cgi
$pagetitle="数据搜索";
$pagetitle="数据搜索[$fields{'keyword'}]" if ($fields{'keyword'});
sub search {
if (!$fields{'keyword'}) {
print "请输入一个关键字进行搜索！？";
} elsif ($fields{'keywo
www.eeworm.com/read/159688/10622603
cgi edpass.cgi
$pagetitle="修改登录密码";
sub edpass {
$errorinfo="";
if ($fields{'opass'} && (!$fields{'npass'} || !$fields{'rpass'})) {$errorinfo="*请两次输入新密码，新密码不能为空！";}
elsif ($uid eq $MasterID) {$errorinfo="*测试版本，管
www.eeworm.com/read/159688/10622610
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/159688/10622630
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/159688/10622636
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/159688/10622642
cgi checkreferrer.cgi
sub checkreferrer {
if (!($ENV{'HTTP_REFERER'})) {&errorip;}
elsif ($valid) {
$servertemp =0;
@validserver=split(/\|/,$valid);
foreach $line (@validserver) {
if (($ENV{'HTTP_REFERER'}