代码搜索：cgi
找到约 10,000 项符合「cgi」的源代码
代码结果 10,000
www.eeworm.com/read/118912/14847971
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/118912/14848066
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/118912/14848082
cgi data.cgi
#!/perl/bin/perl
print qq~
success
演示版不包含此功能，请购买正式版email:wb410@163.netQQ:3323684ht
www.eeworm.com/read/118912/14848149
cgi gbook.cgi
#!/perl/bin/perl
require "./setup.pl";
&GetCookies;
$userid=$Cookies{'id'};
if ($userid) {$userflag=1;}
else {$userflag=0;}
&getform;
$action = $in{'action'};
$key = $in{'key'};
$name = $in{'
www.eeworm.com/read/118912/14848159
cgi reg.cgi
#!/perl/bin/perl
require "./setup.pl";
&getform;
$username=$in{'username'};
$userpassword = $in{'userpassword'};
$userpasswd1=$in{'userpasswd1'};
$useremail=$in{'useremail'};
$userphone=$in{'us
www.eeworm.com/read/118912/14848177
cgi login.cgi
#!/perl/bin/perl
require "./setup.pl";
&GetCookies;
$userid=$Cookies{'id'};
unless ($userid)
{
&getform;
$userid=$in{'id'};
$userkey=$in{'key'};
unless (($userid)&&($userkey))
{
print qq~
www.eeworm.com/read/118912/14848187
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/118912/14848190
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/118912/14848192
cgi delete.cgi
#!/perl/bin/perl
print qq~
success
演示版不包含此功能，请购买正式版email:wb410@163.netQQ:3323684
www.eeworm.com/read/118912/14848267
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