代码搜索：cgi
找到约 10,000 项符合「cgi」的源代码
代码结果 10,000
www.eeworm.com/read/352688/10523763
cgi nph-test.cgi
#!/usr/bin/perl
# Remember that CGI programs have to close out the HTTP header
# (with a pair of newlines), after giving the Content-type:
# and any other relevant or available header information.
#
www.eeworm.com/read/352688/10523925
c cgi_header.c
/*
* Boa, an http server
* cgi_header.c - cgi header parsing and control
* Copyright (C) 1997-99 Jon Nelson
*
* This program is free software; you can redistribute it and/or
www.eeworm.com/read/352688/10524181
o cgi_header.o
www.eeworm.com/read/159688/10622571
cgi msg_delete.cgi
$pagetitle="删除短消息";
&error("没有选择要删除的短消息！") if (!$fields{'msg'});
sub msg_delete {
@deldata =split(/§/,$fields{'msg'});
foreach (@deldata) {
do "$cgihead/writeumsg.cgi";&dmsg("$_");
}
&redir
www.eeworm.com/read/159688/10622597
cgi msg_send.cgi
$pagetitle="发送短消息";
sub msg_send {
print qq~
ie = (document.all)? true:false
if (ie){
function ctlent(eventobject){if(event.ctrlKey && window.event.keyCode==13){this.document.FORM.submi
www.eeworm.com/read/159688/10622614
cgi dbmana_del.cgi
$pagetitle="删除数据库";
&error("您没有执行此操作的权限！") if ($ulevel ne "master");
sub dbmana_del{
&error("指定数据库不存在！") if (!$fields{'ddb'} || !-e "$datahead$fields{'ddb'}.cgi");
unlink "$datahead$fields{'ddb'}.
www.eeworm.com/read/159688/10622621
cgi schomana_edit.cgi
$pagetitle="学生成绩修改";
&error("您没有执行此操作的权限！") if ($ulevel ne "master");
sub schomana_edit {
if (!$fields{'user'} || !$fields{'class'}) {
&redirect("$indexurl?job=schomana&DB=$DBname&mon=$fields{'mon
www.eeworm.com/read/159688/10622626
cgi msg_query.cgi
$reload=45;
sub msg_query {
open(FILE, "${userhead}info/$uid.cgi");
foreach () {
($mid,$mgzt,$msid,$msname,$msemail,$msubject,$mcontent,$mstime,$msmode,$mtemp1,$mtemp2,$mtemp3,$end) = spli
www.eeworm.com/read/159688/10622645
cgi class1.cgi
sub returnclass {
my $setclassmon=shift;
return if (!$setclassmon);
my @classinfo=&readdatafile("Class.DB");
foreach (@classinfo) {
($remon,$rename,$last) = split(/\‖/,$_);
return $_ i
www.eeworm.com/read/159688/10622649
cgi setclass_del.cgi
$pagetitle="删除班级";
&error("您没有执行此操作的权限！") if ($ulevel ne "master");
sub setclass_del {
if (!$fields{'mon'}) {
&redirect("$indexurl?job=setclass$userinfo","指定班级不存在！");
} else {
$getdel=0;
open