代码搜索：cgi
找到约 10,000 项符合「cgi」的源代码
代码结果 10,000
www.eeworm.com/read/126202/14438138
cgi schomana.cgi
$pagetitle="学生成绩管理";
&error("您没有执行此操作的权限！") if ($ulevel ne "master");
sub schomana{
$setedit=0;
$page=int($fields{'page'});
$pageurl="$indexurl?job=schomana&DB=$DBname$userinfo";
do "$cgihead/cl
www.eeworm.com/read/126202/14438140
cgi checkreferrer.cgi
sub checkreferrer {
if (!($ENV{'HTTP_REFERER'})) {&errorip;}
elsif ($valid) {
$servertemp =0;
@validserver=split(/\|/,$valid);
foreach $line (@validserver) {
if (($ENV{'HTTP_REFERER'}
www.eeworm.com/read/126202/14438146
cgi setclass.cgi
$pagetitle="班级设置";
&error("您没有执行此操作的权限！") if ($ulevel ne "master");
sub setclass {
$pageurl="$indexurl?job=setclass$userinfo";
do "$cgihead/class.cgi";
if ($fields{'mon'}) {
@classinfo=readdataf
www.eeworm.com/read/126202/14438150
cgi main.cgi
$pagetitle="欢迎您：$tuname";
sub main {
&uinfo($uid);
($Fsec,$Fmin,$Fhour,$Fday,$Fmon,$Fyear,$Fweek,$Fyearday,$Fisdst) = localtime($ucontact);
$Fmon++;$Fyear+=1900;
print qq~
您上次来访的时间是：
www.eeworm.com/read/126202/14438152
cgi dbmana.cgi
$pagetitle="数据库管理";
&error("您没有执行此操作的权限！") if ($ulevel ne "master");
sub dbmana{
$page=int($fields{'page'});
print qq~
www.eeworm.com/read/126202/14438154
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/126202/14438162
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/126202/14438164
cgi class.cgi
@classinfo=&readdatafile("Class.DB");
print qq~
~;
$bgcolor="#ffffff";
www.eeworm.com/read/126202/14438169
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/126202/14438177
cgi config.cgi
#设置这个系统的名称
$System_name = "综合成绩查询系统";
#系统Internet地址(是这个系统的访问地址，如：http://www.xxx.xxx/xxx)
$System_Domain = "http://ming2000/scholarship";
#作者的名字(这个不会显示在页面上，只会在HTMl的头部出现，也可以不设置)
$Sys_author =