📄 data.cgi
字号:
#!/perl/bin/perl
require "./setup.pl";
use CGI;
my $co=CGI->new();
my $id=$co->cookie('id');
my $key=$co->cookie('key');
print "Content-type: text/html\n\n";
unless (($id eq $supername)&&($key eq $superkey)) ##检查登陆的是否为管理员
{&error("error(040)");}
$action=$co->param('action');
$procount=$co->param('procount');
if ($procount) {$procount=0;} #如果是修改产品就保持原有的计数，如果是新产品，则计数0
$name2=$co->param('name2'); #产品种类，比如sony，jvc？
$product1=$co->param('product1'); #产品名称
$product2=$co->param('product2'); #产品图片路径
$protext=$co->param('protext'); #产品大概介绍
$price1=$co->param('price1'); #产品价格
$price2=$co->param('price2');
$price3=$co->param('price3');
$price4=$co->param('price4');
$price51=$co->param('price51');
$price52=$co->param('price52');
$info[0]=$co->param('info2'); #产品详细资料
$info[1]=$co->param('info3');
$info[2]=$co->param('info4');
$info[3]=$co->param('info5');
$info[4]=$co->param('info6');
$info[5]=$co->param('info7');
$info[6]=$co->param('info8');
$info[7]=$co->param('info9');
$info[8]=$co->param('info10');
$info[9]=$co->param('info11');
$info[10]=$co->param('info12');
$info[11]=$co->param('info13');
$info[12]=$co->param('info14');
$info[13]=$co->param('info15');
$info[14]=$co->param('info16');
$info[15]=$co->param('info17');
$info[16]=$co->param('info18');
$info[17]=$co->param('info19');
$info[18]=$co->param('info20');
$info[19]=$co->param('info21');
$info[20]=$co->param('info22');
$info[21]=$co->param('info23');
$info[22]=$co->param('info24');
$info[23]=$co->param('info25');
$info[24]=$co->param('info26');
$info[25]=$co->param('info27');
$info[26]=$co->param('info28');
$info[27]=$co->param('info29');
$info[28]=$co->param('info30');
&check($name2,$product1,$product2,$protext,$price1,$price2,$price3,$price4,$price51,$price52,@info); #所有信息的检查
unless (($price51=~/(\d+\.{0,1}\d+)$/)&&($price52=~/(\d+\.{0,1}\d+)$/)) #价格格式检查
{&error("error(050)");}
$price5=$price51."-".$price52;
unless ($action) #判断是新增加产品还是修改原有存在的产品
{
open (f,"$realpath/$name2.dat");
$total=<f>;
close f;
$total++;
open (f,">$realpath/$name2.dat");
print f "$total";
close f;
}
else
{$total=$action;}
open (f,">$realpath/content/$name2/$total.ctt"); #写入产品大概介绍
print f "$protext";
close f;
$tempvar=join('=',@info);
open (f,">$realpath/data/$name2/$total.dat"); #写入详细资料
print f "$tempvar";
close f;
open (f,">$realpath/intro/$name2/$total.itd"); #写入产品名称和图片路径
print f "$product1=$product2";
close f;
open (f,">$realpath/price/$name2/$total.pie"); #写入产品价格
print f "$price1=$price2=$price3=$price4=$price5";
close f;
open (f,">$realpath/count/$name2/$total.cnt"); #写入计数文件，方便排行
print f "$procount";
close f;
print qq~
<html>
<head><title>success</title></head>
<body>
<br>
<p align="center">【<a href="admin_add.cgi">继续</a>】 【<a href="javascript:window.close();">退出</a>】</p>
</body>
</html>
~;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -