?? tsdiy.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 'reg') {®}
else {&diy;}
sub diy
{
my $text={
cgiurl => $CON{path}{cgiurl},
imgurl => $CON{path}{webimg},
htmurl => $CON{path}{htmurl},
};
print $LIB->Parse("diy_1.htm",$text);
exit;
}
sub reg
{
my ($msg);
my $time=time();
if ($FORM{'reg_email'} eq '') {print "Content-type: text/html\n\n";print "沒有填寫郵箱";exit;}
if ($FORM{'mod'} eq '0') {
$msg = qq~
<pre>
自定義圖片注意:
1、圖片清晰
2、圖片大小在28厘米X20厘米之內
為了保證對您的服務,請將自定義圖片通過電子郵件發到hoowa\@163.com,并在主題寫上此DIY單編號$time
</pre>
~;
}
my $all_price = 70 * $FORM{'count'};
#####格式化發給用戶的郵件
my $mail_user = qq~
編號:$time
圖片:$FORM{'mod'}
圖片:$FORM{'mod_size'}
顏色:$FORM{'color'}
數量:$FORM{'count'}
尺寸:$FORM{'size'}
總價值(不含郵費):$all_price
=======================================
訂購人:$FORM{'reg_id'}
信箱:$FORM{'reg_email'}
其他聯系:$FORM{'reg_contact'}
支付方式:$FORM{'pay'}
~;
&_sendmail($FORM{'reg_email'},$FORM{'reg_email'},$CON{syscon}{support_from},"一封DIY訂購Mail",$mail_user);
my $text={
cgiurl => $CON{path}{cgiurl},
imgurl => $CON{path}{webimg},
htmurl => $CON{path}{htmurl},
notic => $msg,
all_price => $all_price,
info => "圖片:$FORM{'mod'} $FORM{'mod_size'}<br>顏色:$FORM{'color'}<br>數量:$FORM{'count'}<br>尺寸:$FORM{'size'}<br>總價:$all_price",
mail => $CON{syscon}{servicemail},
};
print $LIB->Parse("diy_2.htm",$text);
exit;
}
sub _sendmail
{
my ($from,$replay,$to,$subject,$text)=@_;
#SendMail System
open( MAIL, "| $CON{path}{sendmail} -t" ) || die $LIB->Lost("不能給您發郵件");
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Reply-to: $replay\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$text","\n\n";
close MAIL;
return();
}
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -