代码搜索：cgi
找到约 10,000 项符合「cgi」的源代码
代码结果 10,000
www.eeworm.com/read/125977/14453339
cgi dbmana.cgi
$pagetitle="数据库管理";
&error("您没有执行此操作的权限！") if ($ulevel ne "master");
sub dbmana{
$page=int($fields{'page'});
print qq~
www.eeworm.com/read/125977/14453340
cgi term.cgi
$pagetitle="课目成绩查询";
sub term{
$setedit=0;
$page=int($fields{'page'});
if ($ulevel eq "poweruser" || $ulevel eq "master") {
$pageurl="$indexurl?job=term&DB=$DBname$userinfo";
do "$cgihead/class.
www.eeworm.com/read/125977/14453345
cgi delete.cgi
sub delete {
my $dpath=shift;
return if ($dpath =~ /\.$/ || !-d "$dpath");
my $dpathbak=$dpath;
my $dpathtop=substr($dpathbak,0,rindex($dpathbak,"/"));
$dlist=0;
while(1) {
$dlist++;
my
www.eeworm.com/read/125977/14453346
cgi class.cgi
@classinfo=&readdatafile("Class.DB");
print qq~
~;
$bgcolor="#ffffff";
www.eeworm.com/read/125977/14453348
cgi profile.cgi
sub uinfo{
my $l_uid = shift;
my $l_uinfo=&readuserfile($l_uid);
($uid,$upass,$uname,$usex,$ucontact,$uclass,$ulevel,$ustats,$uxx22,$uxx23,$uxx24,$uxx25,$uxx26,$uxx27,$ut1,$ut2,$ut3,$ut4,$uend)= sp
www.eeworm.com/read/125977/14453352
cgi config.cgi
#设置这个系统的名称
$System_name = "综合成绩查询系统";
#系统Internet地址(是这个系统的访问地址，如：http://www.xxx.xxx/xxx)
$System_Domain = "http://ming2000/scholarship";
#作者的名字(这个不会显示在页面上，只会在HTMl的头部出现，也可以不设置)
$Sys_author =
www.eeworm.com/read/125977/14453353
cgi writeumsg.cgi
sub wmsg {
my $toid=shift;
my $ssid=shift;
my $ssname=shift;
my $ssemail=shift;
my $ssubject=shift;
my $scontent=shift;
my $sstime=shift;
my $ssmode=shift;
my $stemp1=shift;
my $stemp2=shift
www.eeworm.com/read/125977/14453363
cgi admin.cgi
Admin‖xZt9ytE/XnA‖Master‖Boy‖1022605172‖01‖master‖login_1022605232_10.10.0.255_Ug‖‖‖‖‖‖‖‖‖‖‖end
www.eeworm.com/read/125977/14453372
cgi index.cgi
#!/usr/bin/perl
$|=1;
$cgihead = "./System\@Info";
do "$cgihead/system.cgi";
if (!$fields{'uid'} || !$fields{'pid'}) {
# print "Content-type: text/html;charset=GB2312\n";
# print "Pragma:no-c
www.eeworm.com/read/125555/14485238
cgi signup.cgi
#!/usr/bin/perl
use DBI;
require "common.cgi";
$passwdfile = "usrpasswd.txt";
&parse_form;
$usrdir= "$basedir/$FORM{'bookname'}";
if (!($FORM{'bookname'})){
print "Content-type: tex