代码搜索：cgi
找到约 10,000 项符合「cgi」的源代码
代码结果 10,000
www.eeworm.com/read/330550/12881595
cgi index.cgi
#!/perl/bin/perl
require "./setup.cgi";
use CGI;
$co=new CGI;
$username=$co->cookie('name');
$kind=$co->param('kind');
unless(-e "$userpath/$username.cgi") {&error("请先登陆");}
open (f,"$userpath/
www.eeworm.com/read/330550/12881599
cgi seekind.cgi
#!/perl/bin/perl
require "./setup.cgi";
use CGI;
$co=new CGI;
$name=$co->cookie('name');
$key=$co->cookie('key');
$kind=$co->param('kind');
unless (-e "$adminpath/$name.cgi") {&error("用户名不存在");
www.eeworm.com/read/330550/12881603
cgi exit.cgi
#!/perl/bin/perl
require "./setup.cgi";
use CGI;
$co=new CGI;
$username=$co->cookie('name');
unless(-e "$userpath/$username.cgi") {&error("未知错误，请联系管理员");}
open (f,"$userpath/$username.cgi");
@u
www.eeworm.com/read/330550/12881607
cgi setup.cgi
$realpath=".";
$basedir = "$realpath/down"; #附件资料存放的目录
$userpath="$realpath/student"; #用户信息存放路径
$adminpath="$realpath/teacher"; #老师信息存放路径
$supername="netfuwu"; #设置管理员
$superkey="wubin";
$bookti
www.eeworm.com/read/330550/12881610
cgi login.cgi
#!/perl/bin/perl
require "./setup.cgi";
use CGI;
$co=new CGI;
$username=$co->param('ID');
$key=$co->param('KEY');
unless(($username)&&($key)) {&error("错误的用户名或密码");}
unless(-e "$userpath/$userna
www.eeworm.com/read/143144/12894360
cgi dxx.cgi
#!perl
use strict;
use Win32::OLE;
print "Content-type:text/html\n\n";
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
@pairs=split(/&/,$buffer);
foreach $pair(@pairs){
(
www.eeworm.com/read/243455/12940049
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/243452/12940096
c cgi.c
/* cgicTempDir is the only setting you are likely to need
to change in this file. */
/* Used only in Unix environments, in conjunction with mkstemp().
Elsewhere (Windows), temporary files go w
www.eeworm.com/read/329145/12974960