代码搜索：cgi
找到约 10,000 项符合「cgi」的源代码
代码结果 10,000
www.eeworm.com/read/156319/11811750
cgi price.cgi
#!/perl/bin/perl
require "./setup.pl";
use CGI;
$co=new CGI;
$name2=$co->param('name2');
$filename=$co->param('mydir');
print "Content-type: text/html\n\n";
&check($name2,$filename);
open (f,"
www.eeworm.com/read/156319/11811752
cgi delete.cgi
#!/perl/bin/perl
print qq~
success
演示版不包含此功能，请购买正式版email:wb410@163.netQQ:3323684
www.eeworm.com/read/156319/11811900
cgi login.cgi
#!/perl/bin/perl
require "./setup.pl";
use CGI;
$cgi=new CGI;
$id=$cgi->param('id');
$key=$cgi->param('key');
unless (($id eq $supername)&&($key eq $superkey))
{print "Content-type: text/html\n
www.eeworm.com/read/156318/11812153
cgi system.cgi
www.eeworm.com/read/156318/11812159
cgi setup.cgi
#首页文件链接名称，如果服务器支持index.<mark>cgi</mark>的默认文档，可将其设置为“/”即“$indexurl= "/";”使别人感觉不到这个系统是用<mark>CGI</mark>程序
$indexurl = "index.<mark>cgi</mark>";
#为了你设置方便，下面的地址都使用了相对路径，一般服务器都能支持，如果你的服务器不能支持则要将.设置成绝对路径如“$mainhead="C:/Inetpub/wwwroot/";”以下一 ...
www.eeworm.com/read/156318/11812164
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/156318/11812169
cgi search.cgi
$pagetitle="数据搜索";
$pagetitle="数据搜索[$fields{'keyword'}]" if ($fields{'keyword'});
sub search {
if (!$fields{'keyword'}) {
print "请输入一个关键字进行搜索！？";
} elsif ($fields{'keywo
www.eeworm.com/read/156318/11812178
cgi edpass.cgi
$pagetitle="修改登录密码";
sub edpass {
$errorinfo="";
if ($fields{'opass'} && (!$fields{'npass'} || !$fields{'rpass'})) {$errorinfo="*请两次输入新密码，新密码不能为空！";}
elsif ($uid eq $MasterID) {$errorinfo="*测试版本，管
www.eeworm.com/read/156318/11812184
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/156318/11812198
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~