?? helpman.cgi
字號:
#!/usr/bin/perl
#
#
##########################################################
# 網絡小廚房 商店系統
# Net Kitchen SHOP
##########################################################
#首頁代碼
##########################################################
####################################################################################
#前端預處理
####################################################################################
use FindBin qw($Bin);
use lib "$Bin/library";
use iLcatlib;
use strict;
use vars qw(%CON %FORM $LIB);
#獲得系統參數
tie %CON, 'IniFiles', ( -file => "$Bin/nkshop.ini" );
#構造新對象
$LIB=iLcatlib->new(ttmlpath=>"$CON{path}{ttmlpath}");
#獲得提交內容
%FORM=$LIB->ReadParse();
if ($FORM{'sub'} eq 'how_pay') {
print $LIB->Parse("postage_read.htm",{
cgiurl => $CON{path}{cgiurl},
company_postcode => $CON{syscon}{company_postcode},
company_address => $CON{syscon}{company_address},
company_recuser => $CON{syscon}{company_recuser},
servicemail => $CON{syscon}{servicemail},
company_phone => $CON{syscon}{company_phone},
support_from => $CON{syscon}{support_from},
});
}
else{
print $LIB->Parse("help.htm",{
cgiurl => $CON{path}{cgiurl},
company_postcode => $CON{syscon}{company_postcode},
company_address => $CON{syscon}{company_address},
company_recuser => $CON{syscon}{company_recuser},
servicemail => $CON{syscon}{servicemail},
company_phone => $CON{syscon}{company_phone},
support_from => $CON{syscon}{support_from},
});
}
#The END
$LIB->exit();
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -