代码搜索：cgi
找到约 10,000 项符合「cgi」的源代码
代码结果 10,000
www.eeworm.com/read/229448/14339146
cgi leds.cgi
www.eeworm.com/read/229448/14339156
c cgi.c
/**
* \addtogroup httpd
* @{
*/
/**
* \file
* HTTP server script language C functions file.
* \author Adam Dunkels
*
* This file contains functions that are calle
www.eeworm.com/read/127023/14387922
cgi pp.cgi
#!/usr/bin/perl
# ----------------------------------------------------------------------------
# This Software is Copyright (C) 2003, All Rights Reserved
# --------------------------------------------
www.eeworm.com/read/126202/14438114
cgi system.cgi
www.eeworm.com/read/126202/14438116
cgi setup.cgi
#首页文件链接名称，如果服务器支持index.<mark>cgi</mark>的默认文档，可将其设置为“/”即“$indexurl= "/";”使别人感觉不到这个系统是用<mark>CGI</mark>程序
$indexurl = "index.<mark>cgi</mark>";
#为了你设置方便，下面的地址都使用了相对路径，一般服务器都能支持，如果你的服务器不能支持则要将.设置成绝对路径如“$mainhead="C:/Inetpub/wwwroot/";”以下一 ...
www.eeworm.com/read/126202/14438119
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/126202/14438121
cgi search.cgi
$pagetitle="数据搜索";
$pagetitle="数据搜索[$fields{'keyword'}]" if ($fields{'keyword'});
sub search {
if (!$fields{'keyword'}) {
print "请输入一个关键字进行搜索！？";
} elsif ($fields{'keywo
www.eeworm.com/read/126202/14438125
cgi edpass.cgi
$pagetitle="修改登录密码";
sub edpass {
$errorinfo="";
if ($fields{'opass'} && (!$fields{'npass'} || !$fields{'rpass'})) {$errorinfo="*请两次输入新密码，新密码不能为空！";}
elsif ($uid eq $MasterID) {$errorinfo="*测试版本，管
www.eeworm.com/read/126202/14438127
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/126202/14438136
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~