代码搜索：cgi
找到约 10,000 项符合「cgi」的源代码
代码结果 10,000
www.eeworm.com/read/184527/9096594
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/184527/9096596
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/184527/9096601
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/184527/9096616
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/184527/9096620
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
www.eeworm.com/read/184527/9096627
cgi msg_deleteall.cgi
$pagetitle="删除所有短消息";
sub msg_deleteall {
&put_fvar(">${userhead}info/$uid.cgi","");
&redirect("$indexurl?job=msg_inbox$userinfo","短信息已全部删除！");
}
www.eeworm.com/read/184527/9096641
cgi msg_inbox.cgi
$pagetitle="短讯中心";
sub msg_inbox {
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/184527/9096645
cgi dbmana_add.cgi
$pagetitle="增加数据库";
&error("您没有执行此操作的权限！") if ($ulevel ne "master");
sub dbmana_add{
&error("请输入数据库说明！如“XX学期学生成绩数据库”") if (!$fields{'dbrem'} || $fields{'dbrem'} eq "在此输入数据库说明");
$setdbname=time.".
www.eeworm.com/read/184527/9096648
cgi pupil_add.cgi
$pagetitle="增加学生档案";
&error("您没有执行此操作的权限！") if ($ulevel ne "master");
sub pupil_add {
if (!$fields{'adduid'} || !$fields{'adduname'} || !$fields{'addusex'} || !$fields{'addumon'} || !$fields{'addul
www.eeworm.com/read/184527/9096659
cgi pupil_del.cgi
$pagetitle="删除学生档案";
&error("您没有执行此操作的权限！") if ($ulevel ne "master");
sub pupil_del {
&error("指定学生档案不存在！") if (!$fields{'did'} || !-e "$userhead$fields{'did'}.cgi");
&error("您没有权限删除这个档案！") if ($fi