ショッピングカートの中

#! /usr/bin/perl # ↑加入しているプロバイダの｢perl｣言語が使用できる # パスを指定します。 ######################################################### #　　　　　 by Anglers-net WebDesign # http://anglers-net.com/kyuukyuu # #ご利用はフリーですが、次の条件を必ずお守り下さい。 # - 各スクリプトとも著作に係る部分は削除しないこと # - 有料、無料に関わらず再配布は禁止します。 # - このスクリプトのご利用でトラブル等が発生しても責任を # 求めないこと #なお、本スクリプトの著作権は放棄するものではありません。 ######################################################### $modcookurl="./modcook.cgi"; require './conf/conf.pl'; require './cgi-lib.pl'; require './jcode.pl'; &ReadParse; ############################################### @shouhinnumber = split(/\0/, $in{'shouhinnumber'}); @shouhinmei = split(/\0/, $in{'shouhinmei'}); @bikou = split(/\0/, $in{'bikou'}); @kakaku = split(/\0/, $in{'kakaku'}); @kazu = split(/\0/, $in{'kazu'}); $count1= 0; $count2= 0; while ($count1 <= 50 ){ $xx= @kazu[$count1]; &trans; @kazu[$count1] = $xx; if (@kazu[$count1] ne "") { $H = 1*@kazu[$count1]; if ($H >= 1) { $count2++; $datareg1{$count2}="@shouhinnumber[$count1]*@shouhinmei[$count1]*@bikou[$count1]*@kakaku[$count1]"; $datareg2{$count2}="@kazu[$count1]"; } } $count1++; } foreach (split(/; /,$ENV{'HTTP_COOKIE'})) { ($key,$value) = split(/=/); $count1= 1; while ($count1 <= 20){ $shouhin = "shouhin$count1"; if ($key eq $shouhin) { $shouhin{$count1}= $value; @data = split(/::/, $shouhin{$count1}); $data1{$count1} = @data[0]; $data2{$count1} = @data[1]; } $count1++; } } $count3 = 1; $count5 = 1; $count7 = $count2+1; $count4 = $count2; $h = 0; $i = 1; while ($count5 <= 20){ $count3 = 1; $i = 1; while ($count3 <= $count7){ if($data1{$count5} eq $datareg1{$count3}){ $datareg2{$count3}=$datareg2{$count3}+$data2{$count5}; $i = 0; }else{ $h = 1; } $count3++; } if($h == 1){ if($i == 1){ if($data2{$count5} ne ""){ if($data2{$count5} ne "0"){ $count4++; $datareg1{$count4}=$data1{$count5}; $datareg2{$count4}=$data2{$count5}; $h = 0; } } } } $count5++; } $count7= 1; while ($count7 <= 20){ if($datareg1{$count7} ne ""){ print "Set-Cookie: "; print "shouhin$count7=$datareg1{$count7}::$datareg2{$count7}; "; print "path=$path; "; print "domain=$domain\n"; } $count7++; } ############################################### print "Content-type: text/html\n"; print <ショッピングカートの中

ショッピングカートの中は次のとおりです

EOM $total= 0; $count7= 1; while ($count7 <= 20){ if($datareg1{$count7} ne ""){ @data3 = split(/\*/, $datareg1{$count7} ); $shouhinnumber=@data3[0]; $shouhinmei=@data3[1]; $bikou=@data3[2]; $kakaku=@data3[3]; $kazu=$datareg2{$count7}; $shoukei = $kakaku*$kazu; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; $total=$total+$shoukei; } $count7++; } if ($total eq "0") { &error;} ################################################### $tax = 0; $tax = $zei*$total; #$tax = $tax+0.5; $tax=sprintf("%.0d",$tax); ################################################### $souryoukei = $ichiritusouryou; if ($total >= $muryou){ $souryoukei = 0; } ################################################### $total2 = $total + $tax + $souryoukei; ################################################### print <

No.	商品名	備考	単価	注文数	小計
$shouhinnumber	$shouhinmei	$bikou	$kakaku\円		$shoukei\円
-
				送料	$souryoukei円
				合計	$total2\円

商品の個数を変更する →→→→→→→→→→

カートを一度空にする →→→→→→→→→→

この内容で注文する →→→→→→→→→→

$backpagebutton

Advanced Shopping cart by http://anglers-net.com

EOM exit; ############################################### sub error { print <
カートの中には何も入っていません。

$backpagebutton

EOM exit; } ############################################### sub encode { $_[0] =~ s/([^0-9A-Za-z_ ])/'%'.unpack('H2',$1)/ge; $_[0] =~ s/\s/+/g; $_[0]; } ############################################### sub trans{ $from='[＠０１-９Ａ-Ｚａ-ｚ．＿－]'; $to='[@01-9A-Za-z._-]'; &jcode'convert(*xx, 'euc'); &jcode'convert(*from, 'euc'); &jcode'convert(*to, 'euc'); &jcode'tr(*xx, $from, $to); &jcode'convert(*xx, 'sjis'); }