📄 upload.cgi
字号:
#!/perl/bin/perl
require "./setup.cgi";
use CGI;
$co=new CGI;
$name=$co->cookie('name');
$key=$co->cookie('key');
$loadname=$co->param('loadname');
$kind=$co->param('kind');
unless ((-e "$adminpath/$name.cgi")&&($loadname)&&($kind)) {&error("未知错误");}
$onnum = 1;
while ($onnum <6)
{
my $file = $co->param("FILE$onnum");
if ($file ne "")
{
my $fileName = $file;
unless ($fileName =~ m/\.cgi|\.pl|\.com|\.bat|\.pm|\.dll|\.php|\.asp|\.jsp/i) #过滤的文件类型
{
$fileName =~ s!^.*(\\|\/)!!; #取文件名，用来上传到服务器中的文件名
if (-e "$basedir/$fileName") {&error("$fileName已经存在，请更改文件名后再上传");}
open (OUTFILE, ">$basedir/$fileName");
binmode(OUTFILE);
while (my $bytesread = read($file, my $buffer, 1024)) {print OUTFILE $buffer;}
close (OUTFILE);
open (f,">>$realpath/$kind/$loadname.dwn"); #写入上传的附件路径
print f "$fileName\n";
close f;
}
}
$onnum++;
}
print $co->header(-charset=>'gb2312');
print qq~
<html>
<head><title>本窗口在5秒后自动关闭</title></head>
<body>
<script language="JavaScript">
setTimeout("self.close()",5000)
</script>
<script src=top.js></script>
<br>
<center>
<font color=red size=5>添加成功</font><br><br><br><br>
<p align="center">【<a href="javascript:window.close()"><font color=blue size=3>关闭</font></a>】</p>
<br>
<script src=buttom.js></script>
</body>
</html>
~;
opendir (DIR,"$realpath"); #删除上传文件时所产生的临时文件
@tmpdir=readdir(DIR);
closedir DIR;
foreach $tmpdir(@tmpdir)
{
if ($tmpdir=~/^CGItemp/) {unlink ("$realpath/$tmpdir");}
}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -