代码搜索：cgi
找到约 10,000 项符合「cgi」的源代码
代码结果 10,000
www.eeworm.com/read/118657/14860055
cgi compare.cgi
#!/perl/bin/perl
require "./setup.pl";
use CGI;
$co=new CGI;
@temp=$co->param('proname');
print "Content-type: text/html\n\n";
if ($#temp
www.eeworm.com/read/118657/14860163
cgi search.cgi
#!/perl/bin/perl
require "./setup.pl";
use CGI;
$co=new CGI;
$name1=$co->param('name1');
$name2=$co->param('name2');
$price1=$co->param('price1');
$price2=$co->param('price2');
$page=$co->para
www.eeworm.com/read/118657/14860178
cgi data.cgi
#!/perl/bin/perl
require "./setup.pl";
use CGI;
my $co=CGI->new();
my $id=$co->cookie('id');
my $key=$co->cookie('key');
print "Content-type: text/html\n\n";
unless (($id eq $supername)&&($key
www.eeworm.com/read/118657/14860266
cgi see.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/118657/14860268
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/118657/14860271
cgi delete.cgi
#!/perl/bin/perl
print qq~
success
演示版不包含此功能，请购买正式版email:wb410@163.netQQ:3323684
www.eeworm.com/read/118657/14860341
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/117652/14910424
cgi index.cgi
#!/bin/bash
echo -e 'Content-type: text/html\n\n'
echo ''
echo ''
echo ''
echo ''
echo 'Webcam'
echo 'If yo
www.eeworm.com/read/116048/14991444
cgi welcome.cgi
// Make sure the user entered a password
if (password$ != 'Howdy')
if (nom$ != '')
print 'Access Denied'
print ''
print '