代码搜索：cgi
找到约 10,000 项符合「cgi」的源代码
代码结果 10,000
www.eeworm.com/read/125977/14453321
cgi setup.cgi
#首页文件链接名称，如果服务器支持index.<mark>cgi</mark>的默认文档，可将其设置为“/”即“$indexurl= "/";”使别人感觉不到这个系统是用<mark>CGI</mark>程序
$indexurl = "index.<mark>cgi</mark>";
#为了你设置方便，下面的地址都使用了相对路径，一般服务器都能支持，如果你的服务器不能支持则要将.设置成绝对路径如“$mainhead="C:/Inetpub/wwwroot/";”以下一 ...
www.eeworm.com/read/125977/14453322
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/125977/14453323
cgi search.cgi
$pagetitle="数据搜索";
$pagetitle="数据搜索[$fields{'keyword'}]" if ($fields{'keyword'});
sub search {
if (!$fields{'keyword'}) {
print "请输入一个关键字进行搜索！？";
} elsif ($fields{'keywo
www.eeworm.com/read/125977/14453325
cgi edpass.cgi
$pagetitle="修改登录密码";
sub edpass {
$errorinfo="";
if ($fields{'opass'} && (!$fields{'npass'} || !$fields{'rpass'})) {$errorinfo="*请两次输入新密码，新密码不能为空！";}
elsif ($uid eq $MasterID) {$errorinfo="*测试版本，管
www.eeworm.com/read/125977/14453326
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/125977/14453331
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/125977/14453332
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/125977/14453333
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/125977/14453336
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/125977/14453338
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~
您上次来访的时间是：