?? order_control.cgi
字號:
#!/usr/bin/perl
#
#
##########################################################
# 網絡小廚房 商店系統
# Net Kitchen SHOP
##########################################################
#首頁代碼
##########################################################
####################################################################################
#前端預處理
####################################################################################
use FindBin qw($Bin);
use lib "$Bin/library";
use iLcatlib;
use strict;
use vars qw(%FORM %CON %COOKIE $LIB $sth $row @userdata);
#獲得系統參數
tie %CON, 'IniFiles', ( -file => "$Bin/nkshop.ini" );
#構造新對象
$LIB=iLcatlib->new(ttmlpath=>"$CON{path}{ttmlpath}");
#獲得COOKIE
%COOKIE=$LIB->ReadCookie();
#獲得提交內容
%FORM=$LIB->ReadParse();
#連接數據庫
$LIB->MySQL_Connect(
database=>"$CON{database}{database}",
dbhost=>"$CON{database}{dbhost}",
dbuser=>"$CON{database}{dbuser}",
dbpwd=>"$CON{database}{dbpwd}"
);
#用戶檢測
@userdata=$LIB->key_proc("$COOKIE{'key'}","$CON{parameter}{timeout}");
if ($FORM{'act'} eq "check_page") {&check_page;}#定單查詢功能
elsif ($FORM{'act'} eq "order_list") {&order_list;}#所有定單查詢結構
elsif ($FORM{'act'} eq "disp_orderform") {&disp_orderform;}#獨立定單檢索(包括修改內容功能)
elsif ($FORM{'act'} eq "do_rm_orderform") {&do_rm_orderform;}#定單刪除
elsif ($FORM{'act'} eq "do_change_orderform") {&do_change_orderform;}#修改定單
else {&check_page;}
sub check_page
{
print $LIB->Parse("check_page.htm",{
imgurl => $CON{path}{webimg},
cgiurl => $CON{path}{cgiurl},
uid => $FORM{'uid'},
msg => $FORM{'msg'},
});
#MySQL Disconnect And The END
$LIB->MySQL_Disconnect();$LIB->exit();
}
sub order_list
{
my (@view,%dbs);
my ($text,$shopped_req,$shopped_row);
$LIB->Error("請填寫用戶名") if ($FORM{'uid'} eq "");
#用戶驗證
$sth=$LIB->MySQL_Query("select passwd from userdata where id = '$FORM{'uid'}'");
$row = $sth->fetchrow_arrayref();
if (($LIB->crypt("$FORM{'pwd'}")) ne $row->[0]) {$LIB->Error("用戶密碼錯誤");}
#########################################
#取出此用戶定單
my $loop_order_list=0;
my $shopped_list;
$sth=$LIB->MySQL_Query("select num,cretime,all_price,gather,gather_desc,send,send_desc from choosed where choosed_name = '$FORM{'uid'}' order by cretime desc");
while ($row = $sth->fetchrow_arrayref()) {
if ($row->[3] eq '1') {$row->[3]="已付";}
else {$row->[3]="未付";}
if ($row->[5] eq '0') {$row->[5]="未發貨";}
elsif ($row->[5] eq '1') {$row->[5]="已發貨";}
elsif ($row->[5] eq '2') {$row->[5]="有缺貨";}
elsif ($row->[5] eq '3') {$row->[5]="匯單不明";}
$shopped_list=undef;
$shopped_req=$LIB->MySQL_Query("select pro_name,spec_desc,pro_count from choosed_pro where come_chose='$row->[0]'");
while ($shopped_row = $shopped_req->fetchrow_arrayref()) {
$shopped_row->[1] = '' if ($shopped_row->[1] eq 'NULL');
$shopped_list .="<option>$shopped_row->[0]:$shopped_row->[1]:$shopped_row->[2]</option>\n";
}
$dbs{'order_list'}{"$loop_order_list"}={
choosed_num => $row->[0],
cretime => $row->[1],
all_price => $row->[2],
pay_type => $row->[3],
rec_type => $row->[5],
shopped_list => $shopped_list,
link_url => "$CON{path}{cgiurl}/order_control.cgi?act=disp_orderform&choosed_num=$row->[0]&uid=$FORM{'uid'}",
};
$loop_order_list++;
}
$text={
imgurl => $CON{path}{webimg},
cgiurl => $CON{path}{cgiurl},
loop_order_list => $loop_order_list-1,
company_address => $CON{syscon}{company_address},
company_postcode => $CON{syscon}{company_postcode},
company_recuser => $CON{syscon}{company_recuser},
choosed_num => '您定單的編號',
};
print $LIB->Parse("order_list.htm",$text,%dbs);
#MySQL Disconnect And The END
$LIB->MySQL_Disconnect();$LIB->exit();
}
sub disp_orderform
{
my ($text,$cretime,$gather,$send,$pay_type,$rec_type,$rec_name,$rec_address,$rec_postcode,$rec_contact,$rec_email,$remark,$all_price);
my (%dbs);
$LIB->Error("請填寫用戶名") if ($FORM{'uid'} eq "");
#檢測定單是否存在
$sth=$LIB->MySQL_Query("select cretime,gather,gather_desc,send,send_desc,pay_type,pay_channel,rec_type,rec_type_desc,rec_name,rec_address,rec_postcode,rec_contact,rec_email,remark,all_price from choosed where num = '$FORM{'choosed_num'}' and choosed_name = '$FORM{'uid'}'");
$row = $sth->fetchrow_arrayref();
if ($row->[0] eq '') {$LIB->Error("定單不存在");}
$cretime =$row->[0];
$gather =$row->[1];
$send =$row->[3];
$pay_type =$row->[5];
$rec_type =$row->[7];
$rec_name =$row->[9];
$rec_address =$row->[10];
$rec_postcode =$row->[11];
$rec_contact =$row->[12];
$rec_email =$row->[13];
$remark =$row->[14];
$all_price =$row->[15];
#########################################
#取出此定單商品
my $loop_shopped_list=0;
my $end_price;
$sth=$LIB->MySQL_Query("select pro_pid,pro_name,pro_count,spec_desc,spec,pro_price from choosed_pro where come_chose = '$FORM{'choosed_num'}'");
while ($row = $sth->fetchrow_arrayref()) {
$end_price=($row->[5]+$row->[4])*$row->[2];
$dbs{'shopped_list'}{"$loop_shopped_list"}={
pro_pid => $row->[0],
pro_name => $row->[1],
pro_count => $row->[2],
spec_desc => $row->[3],
spec => $row->[4],
end_price => $end_price,
};
$loop_shopped_list++;
}
$text={
choosed_num=> $FORM{'choosed_num'},
cretime => $cretime,
gather => $gather,
send => $send,
pay_type=> $CON{parameter}{"pay_type$pay_type"},
rec_type=> $CON{parameter}{"rec_type$rec_type"},
rec_name=> $rec_name,
rec_address=> $rec_address,
rec_postcode=> $rec_postcode,
rec_contact=> $rec_contact,
rec_email=> $rec_email,
remark => $remark,
all_price=> $all_price,
cgiurl => $CON{path}{cgiurl},
imgurl => $CON{path}{webimg},
uid => $FORM{'uid'},
loop_shopped_list=>$loop_shopped_list-1,
};
print $LIB->Parse("disp_orderform.htm",$text,%dbs);
#MySQL Disconnect And The END
$LIB->MySQL_Disconnect();$LIB->exit();
}
sub do_rm_orderform
{
my ($text);
$LIB->Error("請填寫用戶名") if ($FORM{'uid'} eq "");
#用戶驗證
$sth=$LIB->MySQL_Query("select passwd from userdata where id = '$FORM{'uid'}'");
$row = $sth->fetchrow_arrayref();
if (($LIB->crypt("$FORM{'pwd'}")) ne $row->[0]) {$LIB->Error("用戶密碼錯誤");}
#判斷欲刪除是否此用戶
$sth=$LIB->MySQL_Query("select num from choosed where num = '$FORM{'choosed_num'}' and choosed_name = '$FORM{'uid'}'");
$row = $sth->fetchrow_arrayref();
if ($row->[0] eq '') {$LIB->Error("您無此定單");}
$LIB->MySQL_Do("DELETE FROM choosed WHERE num='$FORM{'choosed_num'}' and choosed_name = '$FORM{'uid'}'");
$LIB->MySQL_Do("DELETE FROM choosed_pro WHERE come_chose='$FORM{'choosed_num'}'");
$LIB->Location("$CON{path}{cgiurl}/order_control.cgi?uid=$FORM{'uid'}&msg=刪除成功,請再登陸查看");
#MySQL Disconnect And The END
$LIB->MySQL_Disconnect();$LIB->exit();
}?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -