#!/usr/local/bin/perl

#///////////////////////////////////////////////////////////////////////////////
#                                Super Shop Ver2.04

#                      ----- 2002(C) WEB INVENTOR(Solve) -----
#                                 solve@wb-i.net
#                                 http://wb-i.net/

#///////////////////////////////////////////////////////////////////////////////
#================================ [注意事項] ===================================
# このスクリプトはシェアウエアです。このスクリプトを使用したいかなる損害に対して
# も作者は一切の責任を負いません。
#====================================使用法=====================================
# 次のようにして呼び出してください。
#	１．商品画面
#			http://・・/s-shop.cgi
#	２．検索窓の設置
#			<FORM method="post" action="http://・・/s_shop.cgi">
#			<input type="text" size=15 name="keyword" value="">
#    		<input type="hidden" name="FF" value=0>
#    		<input type="hidden" name="class" value="all">
#			<input type="hidden" name="superkey" value="1">
#			検索キー<input type=submit value="">
#			</FORM>
#	３．キーワード及び分類表からの呼び出しかた
#			<A href="http://・・/s_shop.cgi?keyword=当店お勧め&class=all&superkey=1&FF=0">当店お勧め</A>
#			<A href="http://・・/s_shop.cgi?class=0&keyword=&superkey=1&FF=0">分類A</A>
#			<A href="http://・・/s_shop.cgi?class=all&keyword=&superkey=1&FF=0">$class_all</A>
#	４．管理者用
#			http://・・/s_shop.cgi?mode=adm1
#
#===============================================================================
# ▼設定▼
#===============================================================================

# jcode.plへのパス
require './jcode.pl';

# cgi-lib.plへのパス
require './cgi-lib.pl';

# MIMEコード変換ライブラリ
require './mimew.pl';

# ===============================================================================
# ▲設定終了▲
# ===============================================================================

&ReadParse;

while (($key,$val) = each %in) {
#	&jcode'convert(*val, "sjis", "", "z");
	$form{$key} = $val;
}

while (($key,$val) = each %in) {
if ($key ne "gazou") {

#	&jcode'convert(*val, "sjis", "", "z");
	$val =~ s/<>//g;

	if($form{'mode'} eq 'adm4' || $form{'mode'} eq 'order_form' || $form{'mode'} eq 'order_mail'){
		$val =~ s/&quot;/\"/g;
		if ($key eq "MESS" || $key eq "setumei") {
			$val =~ s/&lt;/</g;
			$val =~ s/&gt;/>/g;
			$val =~ s/<br>/\n/g;
			$val =~ s/\.\n/\. \n/g;

		}else{
			$val =~ s/</&lt;/g;
			$val =~ s/>/&gt;/g;	

			$val =~ s/\r\n//g;
			$val =~ s/\r//g;
			$val =~ s/\n//g;
			$val =~ s/\s//g;
		}
			
	}else{
		$val =~ s/\"/&quot;/g;
		$val =~ s/\0/ /g;
		if ($key eq "MESS" || $key eq "setumei") {
			$val =~ s/\r\n/<br>/g;
			$val =~ s/\r/<br>/g;
			$val =~ s/\n/<br>/g;
			if ($val =~ /<br>$/) {
				while ($val =~ /<br>$/) { $val =~ s/<br>$//g; }
			}	
#			$val =~ s/\s//g;

		} else {
			$val =~ s/</&lt;/g;
			$val =~ s/>/&gt;/g;	
			$val =~ s/\r\n//g;
			$val =~ s/\r//g;
			$val =~ s/\n//g;
			$val =~ s/\s//g;
		}
	}
}

	$in{$key} = $val;

}

#=================注文加算============================================
if($in{'order'} eq ""){
# Cookieの値を得る
&getCookie();
	$in{'order'} = $COOKIE{'ORDER'};
}	
	$order=$in{'order'};
	$order_new =$in{'g_no'}.",".$in{'op1'}.",".$in{'op2'};
	if($in{'amount'} ne "" and $in{'amount'} ne "0"){
		if($order eq ""){
			$order =$in{'g_no'}.",".$in{'op1'}.",".$in{'op2'}.":".$in{'amount'};
	    }else{
			@order_1 = split(/!/,$order);
			foreach (@order_1) {
				($i,$j) = split(/:/,$_);
                if($i eq $order_new){
                	$j = $j + $in{"amount"};
                	if($order_2 eq ""){
                		$order_2 =$order_new.":".$j;
                	}else{
                    	$order_2 .="!".$order_new.":".$j;
                    }
                    $k =1;
                }else{
                	if($order_2 eq ""){
                		$order_2 =$_;
                	}else{
                    	$order_2 .="!".$_;
                    }
                }
	        }

	        if($k ne 1){
	    		$order .="!".$in{'g_no'}.",".$in{'op1'}.",".$in{'op2'}.":".$in{'amount'};
	    	}else{
	    	    $order =$order_2;
	    	}
	    }
	    #クッキーの設定
		print &setCookie_0("ORDER", $order);
	}
	$in{'order'}=$order;

#====================================================================
# 設定ファイル
require './s_set.pl';

#===== 戻り先========================================================
$save_data="$script?&keyword=$in{'keyword'}&FF=$in{'FF'}&class=$in{'class'}";
$modoru_adding = "$save_data&mode=adm2&pass=$adm_pass";
$modoru_dell = "$save_data&mode=adm3&pass=$adm_pass";
$modoru_renew = "$save_data&mode=adm4&pass=$adm_pass";

$modoru_goods ="$script?order=$in{'order'}&class=$in{'class'}&keyword=$in{'keyword'}&FF=$in{'FF'}&price_sort=$in{'price_sort'}";
$modoru_goods_2 ="$script?class=$in{'class'}&keyword=$in{'keyword'}&FF=$in{'FF'}&price_sort=$in{'price_sort'}";
$modoru_goods_end ="$script?class=$in{'class'}&keyword=$in{'keyword'}&FF=$in{'FF'}&price_sort=$in{'price_sort'}";

#====================================================================

	if (!open(IN,"$data_file")) { &error('データベース読取エラー','復旧をお待ちください.'); }
	@BASE = <IN>;
	close(IN);

if($in{'price_sort'} ne 1){
	@BASE = reverse @BASE;
}else{	
	@BASE = sort { (split(/\<\>/,$a))[8] <=> (split(/\<\>/,$b))[8] } @BASE;
}

	$hit = 0;
	$next_num = '';
	$over_no = 0;
	
	if($in{'mode'} eq 'adm3' or $in{'mode'} eq 'addell'){
		$page =$page_dell;	
	}
#====================================================================
    if ( $in{'mode'} eq 'adding' ) { &adding; exit;}
	if ( $in{'mode'} eq 'renew' ) { &renew; exit;}
	if ( $in{'mode'} eq 'dell' ) { &dell; exit;}
	if ( $in{'mode'} eq 'look' ) { &look; exit;}
	if ( $in{'mode'} eq 'order_form' ) { &order_form; exit;}
	if ( $in{'mode'} eq 'sure' ) { &sure; exit;}
	if ( $in{'mode'} eq 'order_mail' ) { &order_mail; exit;}
	if ( $in{'mode'} eq 'p_wide' ) { &p_wide; exit;}

#====================================================================
# Cookieの値を得る
&getCookie();
$classmei = $COOKIE{'BUNRUIMEI'};
$ff_no = $COOKIE{'FF'};
$pas_word = $COOKIE{'WORD'};

if($in{'class'} ne ""){
	$classmei = $in{'class'};
	print &setCookie("BUNRUIMEI", $classmei);
}
if($in{'FF'} ne ""){
	$ff_no = $in{'FF'};
	print &setCookie('FF', $ff_no);
}
if($in{'keyword'} ne "" or $in{'superkey'} eq "1"){
	$pas_word = $in{'keyword'};
	print &setCookie('WORD', $pas_word);
}
$in{'keyword'} = $pas_word;
$in{'class'}=$classmei;
#===================================================================
$data_su=0;
$data_ff =0;
foreach $num (0 .. $#BASE) {

		$data = $data2 = $BASE[$num];
		&jcode'convert(*data,'sjis');
		($goods_no,$name,$kigou,$option,$option2,$class,$setumei,$fcolor,$price,$tani,$zaiko,$limit,$tail,$bikou) = split(/\<\>/,$data);

	if($pas_word ne "") {
    
		# 入力内容を整理
		$word = $pas_word;
		$word =~ s/　/ /g;
		$word =~ s/\t/ /g;
		@pairs = split(/ /,$word);

$class_mei =$class_tb[$class];

	# 検索処理
			$flag_k = 0;
			foreach $pair (@pairs){
				if (index($kigou,$pair) >= 0) {
					 next;
				}elsif (index($name,$pair) >= 0) {
					 next;
				}elsif (index($goods_no,$pair) >= 0) {
					 next;
				}elsif (index($class_mei,$pair) >= 0) {
					 next;
				}elsif (index($option,$pair) >= 0) {
					 next;
				}elsif (index($setumei,$pair) >= 0) {
					 next;
				}elsif (index($bikou,$pair) >= 0) {
					 next;
				}elsif (index($price,$pair) >= 0) {
					 next;
				}elsif (index($class,$pair) >= 0) {
					 next;
				}
				$flag_k = 1;
				last;
			}
			if ($flag_k == 1) { next; }

    }
		if ($classmei ne "all" && $classmei ne "") {
			if ($class eq $classmei) { ; } else { next; }

		}

		if ($in{'id'} ne '' && $in{'mode'} eq 'adm4') {
			if ($goods_no eq $in{'id'}) {
			 	push(@NEW,$data2);
			 	last; 
			 } else { next; }
		}
		
		$data_su++;

		# 検索終了処理
		if ($hit == $page) { $next_num = $data_ff; $over_no ++; $hit++; next; }
		elsif($hit < $page && $data_ff >= $ff_no){
			 push(@NEW,$data2); $hit++; 
		}elsif($hit > $page && $data_ff >= $ff_no){
			$over_no ++;
		}
		
		$data_ff ++;
}

if($over_no > $page){
	$over_no = $page;
}
#=========================================================================================
	if ( $in{'mode'} eq 'adm1' ) { &adm1; exit;}
	elsif ( $in{'mode'} eq 'adm2' ) { &adm_add; exit;}
	elsif ( $in{'mode'} eq 'adm3' ) { &adm_dell; exit;}
	elsif ( $in{'mode'} eq 'adm4' ) { &adm_renew; exit;}
	else { &shop_form; exit;}

#=============================画像の拡大=================================================
sub p_wide {

&html_header();
print <<"EOF";
<CENTER>
<TABLE cellpadding="3" width="$t_width">
  <TBODY>
    <TR>
      <TD align="right" width="$t_width"><A href="$modoru_goods">▲戻る</A></TD>
    </TR>
  </TBODY>
</TABLE>
</CENTER>
<BR>
<TABLE bgcolor=$color_d width="$t_width" cellpadding="3" cellspacing="0" border=0>
<TBODY>
<TR>
<TD align="center"><B><FONT color="#ffffff">NO.$in{'G_NO'}</FONT></B></TD>
</TR>
<TR>
<TD width="49" align="center" height="98">
	<TABLE width="$t_width">
	<TBODY>
	<TR>
	<TD align="center" bgcolor="#ffffff"><BR>
	<BR>
	<A href="$modoru_goods"><IMG src="$in{'IMG'}" border="0"></A><BR>
	<BR>
	<BR>
	</TD>
	</TR>
	</TBODY>
	</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
EOF
	print <<"EOF";
	<hr noshade size=2 width=$t_width>
EOF

	print "<p>$foot</body></html>\n" ;	

}
#=============================注文メール=================================================	
sub order_mail {
    # タイムゾーンを日本時間に合わせる
	$ENV{'TZ'} = "JST-9";
	$times = time;
	($sec,$min,$hour,$day,$month,$year,$wday,$Days,$dmy) = localtime($times);
	$month = $month +1;
	$year = $year + 1900;
    $year_m_d = "$year"."年"."$month"."月"."$day"."日";


# ロック処理
if ($lockkey ne 0) { &lock_log(); }

	open (IN,"$data_file") || &error('オープンエラー','指定された書込みファイルが開けません。');
	@BASE = <IN>;
	close (IN);
	
	#データチェック
	$order=$in{'order'};
	&keisan();

foreach $data ( @BASE ) {
	($goods_no,$name,$kigou,$option,$option2,$class,$setumei,$fcolor,$price,$tani,$zaiko,$limit,$tail,$bikou) = split(/\<\>/,$data);

	@order_1 = split(/!/,$in{'order'});
	foreach (@order_1) {
		($s,$t) = split(/:/,$_);
		($a,$b,$c) = split(/\,/,$s);

		if ( $goods_no == $a ) {
			if($zaiko ne ''){
		 		$zaiko =$zaiko -$t;       #在庫数更新
            }
			$data = "$goods_no<>$name<>$kigou<>$option<>$option2<>$class<>$setumei<>$fcolor<>$price<>$tani<>$zaiko<>$limit<>$tail<>$bikou";
		}
	}
	push (@NEW,$data); 
}
	
	open (OUT,">$data_file") || &error('オープンエラー','指定された書込みファイルが開けません。');
	print OUT (@NEW);
	close (OUT);

# ファイルロック解除
	if (-e $loglock) { unlink($loglock); }

$mailto ="$in{'MAIL'}";
$fromname =$shop_name;
$frommail =$shop_mail;
$subject =$mail_subject;
	&mail_make();
	&mail_send();

$mailto =$shop_mail;
$fromname =$shop_name;;
$frommail =$shop_mail;
$subject =$mail_subject;
$report="次の方にメールを送信しました。"."\n          "."$in{'SIMEI'}"."\n          "."$in{'MAIL'}"."\n";
$mailbody=$report.$mailbody2;
&jcode'convert(*mailbody, "jis");

	&mail_send();
	
#注文完了メッセージ====
#クッキーの設定
print &setCookie_0("ORDER", "");
$in{'order'} ='';

&html_header();

print <<"EOF";
<CENTER>
<TABLE cellpadding="3" width="$o_width">
	<TBODY>
	<TR>
	<TD align="right" width="$o_width"><A href="$modoru_goods_end">▲商品画面へ戻る</A></TD>
	</TR>
	</TBODY>
</TABLE>
</CENTER>
<BR>
<CENTER></CENTER>
<BR>
<CENTER>
<TABLE bgcolor="$color_d" width="$o_width">
	<TBODY>
	<TR>
	<TD align="center" bgcolor="$color_d"><FONT color="#ffffff"><b>注文完了</b></FONT></TD>
	</TR>
	<TR>
	<TD bgcolor="#ffffff" align="center"><BR>$in{"SIMEI"}$end_mess<BR><BR>
	<IMG src="./$dir_i/thank.gif" width="71" height="56" border="0"><BR><BR></TD>
	</TR>
	</TBODY>
</TABLE>
<BR>
</CENTER>
<CENTER>
<TABLE width="$o_width" bgcolor="$color_d">
	<TBODY>
	<TR>
	<TD colspan="2" align="center" bgcolor="$color_d" height="16"><B><FONT color="#ffffff"><b>See you again!</b></FONT></B></TD>
	</TR>
	</TBODY>
</TABLE>
<BR>
</CENTER>
EOF
	print <<"EOF";
<IMG src="$dir_i/line.gif" border="0" width="$o_width" height="3">
EOF

	print "<p>$foot</body></html>\n" ;	

}

#=======メールを作成する=============
#
sub mail_make{
$tax_total =$all_total;
$sougoukei =$tax_total +$in{"souryou"};
$souryou_set =$in{"souryou"};
$sougoukei_2 =$sougoukei;

&daibikikeisann();

if($in{'METHOD'} eq '代引き'){
	$sougoukei_2 =$sougoukei +$daibiki_add;
1 while $sougoukei_2 =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
	$daibiki_add_set ="\n【代引き手数料】$daibiki_add円\n【代引き手数料を含めたお支払い総額】$sougoukei_2円\n";
	$method_set ="$daibiki_mess"."商品到着時に別途代引き手数料$daibiki_add円が必要です。\n";
}elsif($in{'METHOD'} eq '郵便振替'){
	$yuubin ="CHECKED";
	$method_set =$hurikae_mess;
}else{
	$bank ="CHECKED";
	$method_set =$hurikomi_mess;
}

1 while $souryou_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $all_total =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $sougoukei =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

@order_1 = split(/!/,$order);
foreach (0..$all_no) {
	($s,$t) = split(/:/,$order_1[$_]);
	($a,$b,$c) = split(/\,/,$s);


$kigou = $k_id[$_];
if($b ne ""){
$kigou .="-".$b;
}
if($c ne ""){
$kigou .="-".$c;
}

@opt = split(/\:/,$k_option[$_]);
$i = 0;
$option_set ="";
while($i < $option_no) {
	($op_k[$i],$op_m[$i]) =split(/\,/,$opt[$i]);
	if($op_k[$i] eq "" or $op_k[$i] ne $b){ $i++; next;}
	$option_set ="/". $op_m[$i];
	last;
}

@opt2 = split(/\:/,$k_option2[$_]);
$i = 0;
$option2_set ="";
while($i < $option2_no) {
	($op2_k[$i],$op2_m[$i]) =split(/\,/,$opt2[$i]);
	if($op2_k[$i] eq "" or $op2_k[$i] ne $c){ $i++; next;}
	$option2_set = "/".$op2_m[$i];
	last;
}


1 while $k_price[$_] =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $k_total[$_] =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

$hikae .="$k_name[$_]$option_set$option2_set"."[".$kigou."]"."\n";
$hikae .="          "."$k_price[$_]円"."×"."$k_amount[$_]$k_tani[$_]"."＝"."$k_total[$_]円"."\n\n";
}

$mailbody = <<END_OF_DATA;
$m_header
   $in{"SIMEI"} 様                                                     $year_m_d

$aisatu
【お支払い合計金額】$sougoukei円

===================お支払い方法=================
$method_set
====================注文の控え==================
$hikae
【合計(税込)】$all_total円
【送料】$souryou_set円
【お支払い合計金額】$sougoukei円
$daibiki_add_set
------------------------------------------------
【氏名】$in{"SIMEI"}
【メールアドレス】$in{"MAIL"}
【住所】\〒 $in{"POST"}
              $in{"ADDR"} 
【TEL】$in{"TEL"}
【支払方法】$in{"METHOD"}
【連絡事項】$in{"MESS"}

▼送付先(未記入のときは上記住所と同じ)
【氏名】$in{"SIMEI2"}
【住所】\〒 $in{"POST2"}
              $in{"ADDR2"}
【TEL】$in{"TEL2"}

$m_footer
END_OF_DATA

    
	$mailbody2=$mailbody;
    
	&jcode'convert(*mailbody, "jis");
	
#	$mailbody =~ s/(^|\n)\.(\n|$)/$1. $2/g;
#	$mailbody =~ s/(^|\n)\.(\n|$)/$1. $2/g;
	
}

#
#======メールを送信する===========
#
sub mail_send{

	&jcode'convert(*subject, "jis");
	$mailhead  = "To: $mailto<$mailto>\n";
	$mailhead .= "From: $fromname<$frommail>\n";
	$mailhead .= "Subject: $subject\n";
	$mailhead .= "\n";

if ($testkey == 0) { return; }

if (-x $sendmail) {
	unless (open(OUT, "| $sendmail $mailto > /dev/null")) {
	    &mail_err();
	}
	unless (print OUT &mimeencode($mailhead)) {
	    &mail_err();
	}
	unless (print OUT $mailbody) {
	    &mail_err();
	}
	close(OUT);
} else {
	&mail_err();
	&error("$sendmailがありません。(22)");
}
}
#==================================
sub daibikikeisann{
$zyugen ='0';
foreach (@daibiki_tb) {
	($x,$y) = split(/:/,$_);
	if($x eq ''){
		$daibiki_add =$y;
		$zyugen ='1';
		last;
	}elsif($sougoukei <= $x){
		$daibiki_add =$y;
		$zyugen ='1';
		last;
	}
}

if($in{'METHOD'} eq '代引き' && $zyugen eq '0'){
	print &setCookie_0('ORDER', '');
1 while $x =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
	&error("代引きは購入総額を$x円以下に分割してお\申\込\み下さい。",);
}elsif($zyugen eq '0'){
	$daibiki_add ="？";
}
}

#==================================
sub mail_err {
	&error("メールの送信に失敗しました。ブラウザの [戻る] ボタンで戻ってください。");
}

#=============================注文フォーム========================================
sub order_form {

# Cookieの値を得る
&getCookie();

$simei_C = $COOKIE{'SIMEI'};
$mail_C = $COOKIE{'MAIL'};
$mail2_C = $COOKIE{'MAIL2'};
$post_C = $COOKIE{'POST'};
$addr_C = $COOKIE{'ADDR'};
$tel_C = $COOKIE{'TEL'};
$method_C = $COOKIE{'METHOD'};
$mess_C = $COOKIE{'MESS'};
$simei2_C = $COOKIE{'SIMEI2'};
$post2_C = $COOKIE{'POST2'};
$addr2_C = $COOKIE{'ADDR2'};
$tel2_C = $COOKIE{'TEL2'};

$mess_C =~ s/&lt;/</g;
$mess_C =~ s/&gt;/>/g;
$mess_C =~ s/&quot;/\"/g;
$mess_C =~ s/<br>/\n/g;
$mess_C =~ s/\.\n/\. \n/g;

if($method_C eq '代引き'){
	$daibiki ="CHECKED";
}elsif($method_C eq '郵便振替'){
	$yuubin ="CHECKED";
}else{
	$bank ="CHECKED";
}

$order=$in{'order'};
&keisan();
$tax_total =$all_total;
$sougoukei =$tax_total +$in{"souryou"};

&daibikikeisann();

$souryou_set =$in{"souryou"};
1 while $souryou_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $all_total =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $sougoukei =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

&html_header();
$ajust =$o_width -150;
$ajust2 =$o_width -600;
$ajust2=int($ajust2/5);
$w1=120+$ajust2;
$w2=180+$ajust2;
$w3=100+$ajust2;
$w4=80+$ajust2;
$w5=120+$ajust2;

print <<"EOF";
<CENTER>
<TABLE cellpadding="3" width="$o_width">
  <TBODY>
    <TR>
      <TD align="right" width="$o_width"><A href="$modoru_goods">▲商品画面へ戻る</A></TD>
    </TR>
  </TBODY>
</TABLE>
</CENTER>
<BR>
<CENTER>
<TABLE cellpadding="3" width="$o_width" border="0" bgcolor="$color_d">
	<TBODY>
	<TR>
	<TD width="$o_width" bgcolor="$color_d" align="center"><B><FONT color="#ffffff">注文フォーム</FONT></B></TD>
	</TR>
	</TBODY>
</TABLE>
</CENTER>
<BR>
<CENTER>
<TABLE bgcolor="$color_d" border=0 width="$o_width" cellpadding="0" cellspacing=0><tr><td>
<TABLE bgcolor="$color_d" border=0 cellpadding="3" cellspacing=1 width="$o_width">
	<TBODY>
	<TR>
	<TD align="center" width="$w1" bgcolor="$color_d"><FONT color="#ffffff"><B>商品ID</B></FONT></TD>
	<TD align="center" width="$w2" bgcolor="$color_d"><FONT color="#ffffff"><B>商品名</B></FONT></TD>
	<TD align="center" width="$w3" bgcolor="$color_d"><B><FONT color="#ffffff">単価(税込)</FONT></B></TD>
	<TD align="center" width="$w4" bgcolor="$color_d"><FONT color="#ffffff"><B>個数</B></FONT></TD>
	<TD align="center" width="$w5" bgcolor="$color_d"><FONT color="#ffffff"><B><FONT color="#ffffff">金額</FONT></B></FONT></TD>
	</TR>
EOF

@order_1 = split(/!/,$order);
foreach (0..$all_no) {
	($s,$t) = split(/:/,$order_1[$_]);
	($a,$b,$c) = split(/\,/,$s);


$kigou = $k_id[$_];
if($b ne ""){
$kigou .="-".$b;
}
if($c ne ""){
$kigou .="-".$c;
}

@opt = split(/\:/,$k_option[$_]);
$i = 0;
$option_set ="";
while($i < $option_no) {
	($op_k[$i],$op_m[$i]) =split(/\,/,$opt[$i]);
	if($op_k[$i] eq "" or $op_k[$i] ne $b){ $i++; next;}
	$option_set ="/". $op_m[$i];
	last;
}

@opt2 = split(/\:/,$k_option2[$_]);
$i = 0;
$option2_set ="";
while($i < $option2_no) {
	($op2_k[$i],$op2_m[$i]) =split(/\,/,$opt2[$i]);
	if($op2_k[$i] eq "" or $op2_k[$i] ne $c){ $i++; next;}
	$option2_set = "/".$op2_m[$i];
	last;
}

1 while $k_price[$_] =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $k_total[$_] =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
print <<"EOF";
	<TR>
	<TD bgcolor="#ffffff" width="$w1">[$a]$kigou</TD>
	<TD bgcolor="#ffffff" width="$w2">$k_name[$_]$option_set$option2_set</TD>
	<TD bgcolor="#ffffff" width="$w3" align="right">$k_price[$_]円</TD>
	<TD bgcolor="#ffffff" width="$w4" align="right">$k_amount[$_]$k_tani[$_]</TD>
	<TD bgcolor="#ffffff" width="$w5" align="right"><b>$k_total[$_]円</b></TD>
	</TR>
EOF
}
print <<"EOF";
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>合計</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$all_total円</B></TD>
	</TR>
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>送料</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$souryou_set円</B></TD>
	</TR>
	<TR>
	<TD colspan="4" bgcolor="$color_r" align="right"><B>合計(消費税、送料込み)</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$sougoukei円</B></TD>
	</TR>
	</TBODY>
</TABLE>
</td></tr></table>
<BR>
</CENTER>
<CENTER>
<FORM name="F1" action="$script" method="post" enctype="multipart/form-data" onSubmit="return kakunin()" >
<TABLE bgcolor="$color_d" border=0 width="$o_width" cellpadding="0" cellspacing=0><tr><td>
<TABLE bgcolor="$color_d" border=0 cellpadding="3" cellspacing=1 width="$o_width">
<TBODY>
<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="22"><FONT color="#000000"><FONT color="#000000"><B><FONT color="#000000">お名前</FONT></B></FONT></FONT></TD>
	<TD bgcolor="#ffffff" width="$ajust" height="22"><FONT color=#333399>\　<INPUT size=25 
name=SIMEI value="$simei_C"></FONT></TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="20"><FONT color="#000000"><FONT color="#000000"><B><FONT color="#000000">ﾒｰﾙｱﾄﾞﾚｽ</FONT></B></FONT></FONT></TD>
	 <TD bgcolor="#ffffff" height="20"><FONT color=#333399>\　<INPUT size=25 
name=MAIL value="$mail_C"></FONT></TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r"><FONT color="#000000"><B>ﾒｰﾙｱﾄﾞﾚｽ確認</B></FONT></TD>
	<TD bgcolor="#ffffff"><FONT color=#333399>\　<INPUT size=25 
name=MAIL2 value="$mail2_C"></FONT></TD>
</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r"><FONT color="#000000"><FONT color="#000000"><FONT color="#000000"><B><FONT color="#000000">ご住所</FONT></B></FONT></FONT></FONT></TD>
	<TD bgcolor="#ffffff"><FONT color=#333399>\　</FONT><FONT color="#000000">〒</FONT><FONT color=#333399> <INPUT size=13 name=POST value="$post_C"><BR>
      \　<INPUT size=35 name=ADDR value="$addr_C"></FONT></TD>
    </TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r"><FONT color="#000000"><B>電話番号</B></FONT></TD>
	<TD bgcolor="#ffffff">\　<INPUT size=25 name=TEL value="$tel_C"></TD>
	</TR>
	<TR>
	<TD bgcolor="$color_r" align="center" width="150"><FONT color="#000000"><FONT color="#000000"><B>お支払方法</B></FONT></FONT></TD>
	<TD bgcolor="#ffffff">\　<INPUT type=radio value="銀行振込" name=METHOD $bank>銀行振込\　<INPUT type=radio 
value="郵便振替" name=METHOD $yuubin>郵便振替\　</TD>
	</TR>
	<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="74"><FONT color="#000000"><FONT color="#000000"><B>連絡事項</B></FONT></FONT></TD>
	<TD align="left" bgcolor="#ffffff" height="74" width="$ajust">\　<TEXTAREA name=MESS rows=6 cols=35>$mess_C</TEXTAREA></TD>
	</TR>
	</TBODY>
</TABLE></table>
<BR>
<TABLE bgcolor="$color_d" border=0 width="$o_width" cellpadding="0" cellspacing=0><tr><td>
<TABLE bgcolor="$color_d" border=0 cellpadding="3" cellspacing=1 width="$o_width">
	<TBODY>
	<TR>
	<TD colspan="2" align="center" bgcolor="$color_d"><B><FONT color="#ffffff">送付先（上記と異なる場合に記入）</FONT></B></TD>
	</TR>
	<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="22"><FONT color="#000000"><FONT color="#000000"><B><FONT color="#000000">お名前</FONT></B></FONT></FONT></TD>
	<TD bgcolor="#ffffff" width="$ajust" height="22"><FONT color=#333399>\　<INPUT size=25 
name=SIMEI2 value="$simei2_C"></FONT></TD>
	</TR>
	<TR>
	<TD align="center" width="150"bgcolor="$color_r"><FONT color="#000000"><FONT color="#000000"><FONT color="#000000"><B><FONT color="#000000">ご住所</FONT></B></FONT></FONT></FONT></TD>
	<TD bgcolor="#ffffff"><FONT color=#333399>\　</FONT><FONT color="#000000">〒</FONT><FONT color=#333399> <INPUT size=13 
name=POST2 value="$post2_C"><BR>
	\　<INPUT size=35 name=ADDR2 value="$addr2_C"></FONT></TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="13"><FONT color="#000000"><B>電話番号</B></FONT></TD>
	<TD bgcolor="#ffffff" height="13" width="$ajust">\　<INPUT size=25 name=TEL2 value="$tel2_C"></TD>
	</TR>
	</TBODY>
</TABLE></td></tr></table>
<BR>
<input type="hidden" name="souryou" value=$in{"souryou"}>
<input type="hidden" name="order" value="$in{'order'}">
<input type="hidden" name="mode" value=sure>
<input type="hidden" name="class" value="$in{'class'}">
<input type="hidden" name="FF" value="$in{'FF'}">
<input type="hidden" name="keyword" value="$in{'keyword'}">
<input type="hidden" name="price_sort" value=$in{"price_sort"}>
<INPUT type="submit" value="確認画面"><BR>
</FORM>
</CENTER>

EOF

	print <<"EOF";
<IMG src="$dir_i/line.gif" border="0" width="$o_width" height="3">
EOF
#=======================入力チェック===================================
	print <<"EOF";
<SCRIPT LANGUAGE="JavaScript">
<!--
function kakunin(){
  if (document.F1.SIMEI.value == "") {
    alert("お名前が入力されていません。");
    document.F1.SIMEI.focus();
    return(false);
  }
  if (document.F1.MAIL.value == "") {
    alert("ﾒｰﾙｱﾄﾞﾚｽが入力されていません。");
    document.F1.MAIL.focus();
    return(false);
  }
  if (document.F1.MAIL2.value != document.F1.MAIL.value) {
    alert("ﾒｰﾙｱﾄﾞﾚｽを確認してください。");
    document.F1.MAIL2.focus();
    return(false);
  }
  if (document.F1.POST.value == "") {
    alert("郵便番号が入力されていません。");
    document.F1.POST.focus();
    return(false);
  }
  if (document.F1.ADDR.value == "") {
    alert("住所が入力されていません。");
    document.F1.ADDR.focus();
    return(false);
  }
  if (document.F1.TEL.value == "") {
    alert("電話番号が入力されていません。");
    document.F1.TEL.focus();
    return(false);
  }
  if (document.F1.SIMEI2.value != "") {
	if (document.F1.POST2.value == "") {
	alert("郵便番号が入力されていません。");
	document.F1.POST2.focus();
	return(false);
	}
	if (document.F1.ADDR2.value == "") {
	alert("住所が入力されていません。");
	document.F1.ADDR2.focus();
	return(false);
	}
	if (document.F1.TEL2.value == "") {
	alert("電話番号が入力されていません。");
	document.F1.TEL2.focus();
	return(false);
	}
  }
}
// -->
</SCRIPT>
EOF

	print "<p>$foot</body></html>\n" ;	

}
#====================================確認====================================
sub sure {
#クッキーの設定
print &setCookie("SIMEI", $in{'SIMEI'});
print &setCookie("MAIL", $in{'MAIL'});
print &setCookie("MAIL2", $in{'MAIL2'});
print &setCookie("POST", $in{'POST'});
print &setCookie("ADDR", $in{'ADDR'});
print &setCookie("TEL", $in{'TEL'});
print &setCookie("METHOD", $in{'METHOD'});
print &setCookie("MESS", $in{'MESS'});
print &setCookie("SIMEI2", $in{'SIMEI2'});
print &setCookie("POST2", $in{'POST2'});
print &setCookie("ADDR2", $in{'ADDR2'});
print &setCookie("TEL2", $in{'TEL2'});

if ($in{'MAIL'} ne "" && $in{'MAIL'} !~ /[\w\.\-]+\@[\w\.\-]+\.[a-zA-Z]{2,5}$/) {
	&error("ブラウザの [戻る] ボタンで戻って、メールアドレスを確認してください。");
}

$order=$in{'order'};
&keisan();
$tax_total =$all_total;
$sougoukei =$tax_total +$in{"souryou"};
$souryou_set =$in{"souryou"};

&daibikikeisann();

$ajust =$o_width -150;
$ajust2 =$o_width -600;
$ajust2=int($ajust2/5);
$w1=120+$ajust2;
$w2=180+$ajust2;
$w3=100+$ajust2;
$w4=80+$ajust2;
$w5=120+$ajust2;

if($in{'METHOD'} eq '代引き'){
	$daibiki_add_set =<<"EOF"
<TR><TD bgcolor=$color_r colspan='4' align='right'><B>代引き手数料</B></TD><TD bgcolor=$color_r width="$w5" align='right'><B>$daibiki_add円</B></TD></TR>
EOF
#	$sougoukei =$sougoukei +$daibiki_add;
}

1 while $souryou_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $all_total =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $sougoukei =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

&html_header();

print <<"EOF";
<CENTER>
<TABLE cellpadding="3" width="$o_width">
  <TBODY>
    <TR>
      <TD align="right" width="$o_width"><A href="$script?$modoru_goods&mode=order_form&souryou=$in{'souryou'}">▲戻って訂正</A>\　<A href="$modoru_goods">▲商品画面へ戻る</A></TD>
    </TR>
  </TBODY>
</TABLE>
</CENTER>
<BR>
<CENTER>
<TABLE cellpadding="3" width="$o_width" border="0" bgcolor="$color_d">
	<TBODY>
	<TR>
	<TD width="$o_width" bgcolor="$color_d" align="center"><B><FONT color="#ffffff">確認画面</TR>
	</TBODY>
</TABLE>
</CENTER>
<BR>
<CENTER>
<TABLE bgcolor="$color_d" border=0 width="$o_width" cellpadding="0" cellspacing=0><tr><td>
<TABLE bgcolor="$color_d" border=0 cellpadding="3" cellspacing=1 width="$o_width">
	<TBODY>
	<TR>
	<TD align="center" width="$w1" bgcolor="$color_d"><FONT color="#ffffff"><B>商品ID</B></FONT></TD>
	<TD align="center" width="$w2" bgcolor="$color_d"><FONT color="#ffffff"><B>商品名</B></FONT></TD>
	<TD align="center" width="$w3" bgcolor="$color_d"><B><FONT color="#ffffff">単価(税込)</FONT></B></TD>
	<TD align="center" width="$w4" bgcolor="$color_d"><FONT color="#ffffff"><B>個数</B></FONT></TD>
	<TD align="center" width="$w5" bgcolor="$color_d"><FONT color="#ffffff"><B><FONT color="#ffffff">金額</FONT></B></FONT></TD>
	</TR>
EOF

@order_1 = split(/!/,$order);
foreach (0..$all_no) {
	($s,$t) = split(/:/,$order_1[$_]);
	($a,$b,$c) = split(/\,/,$s);


$kigou = $k_id[$_];
if($b ne ""){
$kigou .="-".$b;
}
if($c ne ""){
$kigou .="-".$c;
}

@opt = split(/\:/,$k_option[$_]);
$i = 0;
$option_set ="";
while($i < $option_no) {
	($op_k[$i],$op_m[$i]) =split(/\,/,$opt[$i]);
	if($op_k[$i] eq "" or $op_k[$i] ne $b){ $i++; next;}
	$option_set ="/". $op_m[$i];
	last;
}

@opt2 = split(/\:/,$k_option2[$_]);
$i = 0;
$option2_set ="";
while($i < $option2_no) {
	($op2_k[$i],$op2_m[$i]) =split(/\,/,$opt2[$i]);
	if($op2_k[$i] eq "" or $op2_k[$i] ne $c){ $i++; next;}
	$option2_set = "/".$op2_m[$i];
	last;
}

1 while $k_price[$_] =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $k_total[$_] =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

print <<"EOF";
	<TR>
	<TD bgcolor="#ffffff" width="$w1">[$a]$kigou</TD>
	<TD bgcolor="#ffffff" width="$w2">$k_name[$_]$option_set$option2_set</TD>
	<TD bgcolor="#ffffff" width="$w3" align="right">$k_price[$_]円</TD>
	<TD bgcolor="#ffffff" width="$w4" align="right">$k_amount[$_]$k_tani[$_]</TD>
	<TD bgcolor="#ffffff" width="$w5" align="right"><b>$k_total[$_]円</b></TD>
	</TR>
EOF
}
print <<"EOF";
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>合計</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$all_total円</B></TD>
	</TR>
	<TR>
	<TD bgcolor="$color_r" colspan="4" align="right"><B>送料</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$souryou_set円</B></TD>
	</TR>
	<TR>
	<TD colspan="4" bgcolor="$color_r" align="right"><B>合計(消費税、送料込み)</B></TD>
	<TD bgcolor="$color_r" width="$w5" align="right"><B>$sougoukei円</B></TD>
	</TR>
	$daibiki_add_set
	</TBODY>
</TABLE>
</td></tr></table>
<BR>
</CENTER>
<CENTER>
<FORM action="$script" method="post">
<TABLE bgcolor="$color_d" border=0 width="$o_width" cellpadding="0" cellspacing=0><tr><td>
<TABLE bgcolor="$color_d" border=0 cellpadding="3" cellspacing=1 width="$o_width">
<TBODY>
<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="22"><FONT color="#000000"><FONT color="#000000"><B><FONT color="#000000">お名前</FONT></B></FONT></FONT></TD>
	<TD bgcolor="#ffffff" width="$ajust" height="22">$in{"SIMEI"}</TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="20"><FONT color="#000000"><FONT color="#000000"><B><FONT color="#000000">ﾒｰﾙｱﾄﾞﾚｽ</FONT></B></FONT></FONT></TD>
	 <TD bgcolor="#ffffff" height="20">$in{"MAIL"}</TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r"><FONT color="#000000"><B>ﾒｰﾙｱﾄﾞﾚｽ確認</B></FONT></TD>
	<TD bgcolor="#ffffff">$in{"MAIL2"}</FONT></TD>
</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r"><B><FONT color="#000000">ご住所</FONT></B></TD>
	<TD bgcolor="#ffffff"><FONT color=#333399></FONT><FONT color="#000000">〒</FONT>$in{"POST"}<BR>
      $in{"ADDR"}</TD>
    </TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r"><FONT color="#000000"><B>電話番号</B></FONT></TD>
	<TD bgcolor="#ffffff">$in{"TEL"}</TD>
	</TR>
	<TR>
	<TD bgcolor="$color_r" align="center" width="150"><FONT color="#000000"><FONT color="#000000"><B>お支払方法</B></FONT></FONT></TD>
	<TD bgcolor="#ffffff">$in{"METHOD"}</TD>
	</TR>
	<TR>
	<TD align="center" width="150"bgcolor="$color_r"><FONT color="#000000"><FONT color="#000000"><B>連絡事項</B></FONT></FONT></TD>
	<TD align="left" width="$ajust"  bgcolor="#ffffff">$in{"MESS"}\　</TD>
	</TR>
	</TBODY>
</TABLE></table>
<BR>
<TABLE bgcolor="$color_d" border=0 width="$o_width" cellpadding="0" cellspacing=0><tr><td>
<TABLE bgcolor="$color_d" border=0 cellpadding="3" cellspacing=1 width="$o_width">
	<TBODY>
	<TR>
	<TD colspan="2" align="center" bgcolor="$color_d"><B><FONT color="#ffffff">送付先（上記と異なる場合に記入）</FONT></B></TD>
	</TR>
	<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="22"><B><FONT color="#000000">お名前</FONT></B></TD>
	<TD bgcolor="#ffffff" width="$ajust" height="22">$in{"SIMEI2"}\　</TD>
	</TR>
	<TR>
	<TD align="center" width="150"bgcolor="$color_r"><B><FONT color="#000000">ご住所</FONT></B></TD>
	<TD bgcolor="#ffffff"><FONT color="#000000">〒</FONT>$in{"POST2"}\　<BR>
	$in{"ADDR2"}</TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_r" height="13"><FONT color="#000000"><B>電話番号</B></FONT></TD>
	<TD bgcolor="#ffffff" height="13">$in{"TEL2"}\　</TD>
	</TR>
	</TBODY>
</TABLE></td></tr></table>
<BR>
<input type="hidden" name="SIMEI" value="$in{'SIMEI'}">
<input type="hidden" name="MAIL" value="$in{'MAIL'}">
<input type="hidden" name="MAIL2" value="$in{'MAIL2'}">
<input type="hidden" name="POST" value="$in{'POST'}">
<input type="hidden" name="ADDR" value="$in{'ADDR'}">
<input type="hidden" name="TEL" value="$in{'TEL'}">
<input type="hidden" name="METHOD" value="$in{'METHOD'}">
<input type="hidden" name="MESS" value="$in{'MESS'}">
<input type="hidden" name="SIMEI2" value="$in{'SIMEI2'}">
<input type="hidden" name="POST2" value="$in{'POST2'}">
<input type="hidden" name="ADDR2" value="$in{'ADDR2'}">
<input type="hidden" name="TEL2" value="$in{'TEL2'}">

<input type="hidden" name="souryou" value=$in{"souryou"}>
<input type="hidden" name="order" value="$in{'order'}">
<input type="hidden" name="mode" value=order_mail>
<input type="hidden" name="class" value="$in{'class'}">
<input type="hidden" name="FF" value="$in{'FF'}">
<input type="hidden" name="keyword" value="$in{'keyword'}">
<input type="hidden" name="price_sort" value=$in{"price_sort"}>
<INPUT type="submit" value="注文確定[送信]"><BR>
</FORM>
</CENTER>

EOF

	print <<"EOF";
<IMG src="$dir_i/line.gif" border="0" width="$o_width" height="3">
EOF

	print "<p>$foot</body></html>\n" ;	

}
#======================================かごの中を見る======================================
sub look {
if($in{'order'} eq ""){
# Cookieの値を得る
&getCookie();
	$in{'order'} = $COOKIE{'ORDER'};
}
$order ="";
if($in{'del_no'} ne ""){
	@order_1 = split(/!/,$in{'order'});
	foreach (@order_1) {
		($s,$t) = split(/:/,$_);
		if($s eq $in{'del_no'}){next;}
		if($order eq ""){
			$order = $s.":".$t;
		}else{
			$order .="!".$s.":".$t;
		}
	}
	$in{'order'}=$order;
	
#クッキーの設定
print &setCookie_0("ORDER", $order);

}
$order=$in{'order'};
&keisan();

&html_header();
$ajustw =$o_width -50;
$ajust =$o_width -370;
$ajust=int($ajust/4);
$w1 =112+$ajust;
$w2 =180+$ajust*3;
$w3 =158+$ajust*3;
	print <<"EOF";
<CENTER>
<TABLE cellpadding="3" width="$o_width">
  <TBODY>
    <TR>
      <TD align="right" width="$o_width"><A href="$modoru_goods_2&order=$in{'order'}">▲商品画面へ戻る</A></TD>
    </TR>
  </TBODY>
</TABLE>
</CENTER>
<BR>
<CENTER>
<TABLE border="0" cellpadding=0 cellspacing=0 bgcolor="$color_kago" width="$o_width">
<TBODY>
<TR>
<TD align="center">
	<TABLE width="$o_width"  border="0">
	<TBODY>
	<TR>
	<TD></TD>
	<TD align="center"><B><FONT color="#ffffff">●かごの中●</FONT></B></TD>
	<TD></TD>
	</TR>
	<TR>
	<TD></TD>
	<TD></TD>
	<TD></TD>
	</TR>
	<TR>
	<TD>\　</TD>
	<TD align="center">
	<TABLE border="0" cellpadding="3" cellspacing=1 width="$ajustw" bgcolor="$color_d" bordercolor="$color_d">
	<TBODY>
	<TR>
	<TD bgcolor="$color_d" align="center" width="$w1"><FONT color="#ffffff">商品画像</FONT></TD>
	<TD bgcolor="$color_d" align="center" width="$w2"><FONT color="#ffffff">商品名</FONT></TD>
	<TD bgcolor="$color_d" align="center" width="190"><FONT color="#ffffff">金額</FONT></TD>
	<TD bgcolor="$color_d" align="center" width="68"><FONT color="#ffffff">取消し</FONT></TD>
	</TR>
EOF

@order_1 = split(/!/,$order);
foreach (0..$all_no) {
	($s_id,$t) = split(/:/,$order_1[$_]);
	($a,$b,$c) = split(/\,/,$s_id);
@opt = split(/\:/,$k_option[$_]);
$i = 0;
$option_set ="";
if($b ne ""){
while($i < $option_no) {
	($op_k[$i],$op_m[$i]) =split(/\,/,$opt[$i]);
	if($op_k[$i] ne $b){ $i++; next;}
	$option_set = $op_m[$i]."(".$op_k[$i].")";
	last;
}
}
@opt2 = split(/\:/,$k_option2[$_]);
$i = 0;
$option2_set ="";
if($c ne ""){
while($i < $option2_no) {
	($op2_k[$i],$op2_m[$i]) =split(/\,/,$opt2[$i]);
	if($op2_k[$i] ne $c){ $i++; next;}
	$option2_set = $op2_m[$i]."(".$op2_k[$i].")";
	last;
}
}
if($k_tail[$_] ne ""){
	$gazou ="$dir_i/".$k_no[$_]."$k_tail[$_]";
}else{
	$gazou ="$dir_i/space.gif";
}

$kigou = $k_id[$_];
if($b ne ""){
$kigou .="-".$b;
}
if($c ne ""){
$kigou .="-".$c;
}

if($bikou ne "\n"){
	$bikou_set = "<TR><TD width=$w3>※".$k_bikou[$_]."</TD></TR>";
}

1 while $k_price[$_] =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $k_total[$_] =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

if($order ne ""){
print <<"EOF";
	<TR bgcolor="#ffffff">
	<TD align="center" height="85" width="$w1"><IMG src=$gazou width='65' height='65' border='0' align='middle'><BR>[$k_no[$_]]$kigou</TD>
	<TD align="center" height="85" width="$w2">
	<TABLE>
	<TBODY>
	<TR>
	<TD align="left" width="$w3">$k_name[$_]</TD>
	</TR>
	<TR>
	<TD width="$w3">$option_set</TD>
	</TR>
	<TR>
	<TD width="$w3">$option2_set</TD>
	</TR>
	$bikou_set
	</TBODY>
	</TABLE>
	</TD>
	<TD align="right" height="85" width="190">
	<TABLE width="172">
	<TBODY>
	<TR>
	<TD align="right" width="80">税込単価：</TD>
	<TD width="86" align="right">$k_price[$_]円</TD>
	</TR>
	<TR>
	<TD align="right" width="80">購入数：</TD>
	<TD width="86" align="right">$k_amount[$_]$k_tani[$_]</TD>
	</TR>
	<TR>
	<TD align="right" width="80">合計：</TD>
	<TD width="86" align="right">$k_total[$_]円</TD>
	</TR>
	</TBODY>
	</TABLE>
	</TD>
	<TD align="center" height="85" width="68"><BR>
	<FORM action="$script" method="post">
    <input type="hidden" name="mode" value="look">
    <input type="hidden" name="del_no" value="$s_id">
    <input type="hidden" name="class" value="$in{'class'}">
    <input type="hidden" name="FF" value="$in{'FF'}">
    <input type="hidden" name="order" value="$in{'order'}">
    <input type="hidden" name="keyword" value="$in{'keyword'}">
    <input type="hidden" name="price_sort" value=$in{"price_sort"}>
	<INPUT type="submit" value="取消">
	</FORM>
	</TD>
	</TR>
EOF

}else{
print <<"EOF";
	<TR>
	<TD colspan="4" align="center" height="14" bgcolor="#ffffff"><br><b>かごの中は空です。</b><br><br></TD>
	</TR>
EOF

}
}
$all_total_set =$all_total;
$tax_total = $all_total;
1 while $tax_total =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
1 while $all_total_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

print <<"EOF";
	<TR>
	<TD colspan="2" align="right" height="14" bgcolor="$color_r"><B>合計</B></TD>
	<TD align="right" height="14" bgcolor="$color_r" width="190"><B>$all_total_set円</B></TD>
	<TD rowspan="2" valign="middle" align="center" width="68" bgcolor="$color_r">確認</TD>
	</TR>
	<TR>
	<TD colspan="2" align="right" height="22" bgcolor="$color_r"><B>合計（消費税込み）</B></TD>
	<TD align="right" height="22" bgcolor="$color_r" width="190"><B>$tax_total円</B></TD>
	</TR>
	</TBODY>
	</TABLE>
	</TD>
	<TD>\　</TD>
	</TR>
	<TR>
	<TD></TD>
	<TD>\　</TD>
	<TD></TD>
	</TR>
	</TBODY>
	</TABLE>
	</TD>
    </TR>
</TBODY>
</TABLE>
<BR>
</CENTER>
EOF

if($order ne ""){

if($all_total < $free_price){

  if($souryou_cst eq ''){
  
   if(@souryou_tb <= 1){
  	$souryou_cst_set = $souryou_tb[0];
1 while $souryou_cst_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
	$soryo_set ="<B>[送料は$souryou_cst_set円]</B>";
	$souryou_hidden ="<input type='hidden' name='souryou' value=$souryou_cst>";

   }else{
	$i = 0;
	foreach (@souryou_tb) {
		$soryo_set .= "<option value=$souryou_tb[$i]>$souhusaki[$i]</option>\n";
		$i++;
	}
	$soryo_set ="<B>送り先：</B>". "<select name='souryou'>".$soryo_set."</select>";
   }
   
  }else{
  	$souryou_cst_set = $souryou_cst;
1 while $souryou_cst_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理
	$soryo_set ="<B>[送料は$souryou_cst_set円]</B>";
	$souryou_hidden ="<input type='hidden' name='souryou' value=$souryou_cst>";
  }
}else{
	$soryo_set ="<B>[送料は無料です]</B>";
	$souryou_hidden ="<input type='hidden' name='souryou' value=0>";
}
print <<"EOF";
<BR><CENTER>
<TABLE bgcolor="$color_d" border=0 width="$o_width" cellpadding="0" cellspacing=0><tr><td>
<TABLE cellpadding="3" cellspacing=1 width="$o_width" border="0" bgcolor="$color_d">
  <TBODY>
    <TR>
      <TD width="$o_width" bgcolor="$color_d" align="center"><B><FONT color="#ffffff">送料又は送付先を確認して、注文フォームへ</FONT></B></TD></TR>
	<TR><TD width="$o_width" align="center" bgcolor="#ffffff" valign="bottom">
	<FORM action="$script" method="POST"><BR>
	$soryo_set
	<input type="hidden" name="mode" value="order_form">
    <input type="hidden" name="class" value="$in{'class'}">
    <input type="hidden" name="FF" value="$in{'FF'}">
    <input type="hidden" name="order" value="$in{'order'}">
    <input type="hidden" name="keyword" value="$in{'keyword'}">
    <input type="hidden" name="price_sort" value=$in{"price_sort"}>
	$souryou_hidden
	\　\　<INPUT type="submit" value="注文フォーム">
	</FORM>
	</TD></TR>
  </TBODY>
</TABLE></td></tr></table>
</CENTER>
EOF
}
	print <<"EOF";
<IMG src="$dir_i/line.gif" border="0" width="$o_width" height="3">
EOF

	print "<p>$foot</body></html>\n" ;	

}
#=======================================Shopping Form======================================

sub shop_form {

	&keisan();

&html_header();

1 while $all_total =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

if($pas_word ne ""){
	$condition =$pas_word;
}else{
	if($in{'class'} eq 'all' or $in{'class'} eq ''){
		$condition="$class_all";
	}else{
		$condition =$class_tb[$in{'class'}];
	}
}

$i=0;
$link_set ="";
foreach (@link_htm) {
	$link_set .="<A href=$link_htm[$i]><FONT class='menu'>$link_tb[$i]</FONT></A> | ";
$i++;
}

if($link_set ne ""){
	$link_set ="| ".$link_set;
	$link_set = "<TR><TD align='center' width='' height='15' bgcolor=$menu_color>$link_set</TD></TR>";

}
$jump =$script.'?'."class=all&keyword=&superkey=1&FF=0&order=$in{'order'}";

$category ="| <A href=$jump><FONT class='menu'>$class_all</FONT></A> | ";
foreach (@ctgry_tb) {
	$jump =$script.'?'."class=all&keyword=$_&superkey=1&FF=0&order=$in{'order'}";
	$category .="<A href=$jump><FONT class='menu'>$_</FONT></A> | ";
}

$category .="<br>| ";
$i =0;
foreach (@class_tb) {
	$jump =$script.'?'."class=$i&keyword=&superkey=1&FF=0&order=$in{'order'}";
	$category .="<A href=$jump><FONT class='menu'>$_</FONT></A> | ";
	$i ++;
}

print <<EOF;
<TABLE width="$t_width" bgcolor="$menu_color" border=0 cellpadding=0 cellspacing=0>
<TBODY>
$link_set
<TR><TD align="center">
<hr noshade size=1>
$category
<hr noshade size=1></TD></TR>
</TBODY>
</TABLE>

EOF

		print <<"EOF";
		<table border=0 cellpadding=0 cellspacing=0 width="$t_width"  bgcolor="$bg_color"><tr>
		<TD align="left"  width="250">
		<form method=post action=$script>
		<input type="text" size=12 name="keyword" value="$pas_word">
		<input TYPE=image SRC="$dir_i/key.gif" BORDER=0>
		<input type="hidden" name="class" value="all">
		<input type="hidden" name="FF" value=0>
		<input type="hidden" name="superkey" value="1">
  		<input type="hidden" name="order" value=$in{'order'}>
		</form>
			</TD>
			<td align="right">
			<form method="POST" action="$script">
    		<input type="hidden" name="order" value=$in{'order'}>
    		<input type="hidden" name="class" value=$in{'class'}>
    		<input type="hidden" name="keyword" value=$in{'keyword'}>
    		<input type="hidden" name="superkey" value=$in{'superkey'}>
    		<input type="hidden" name="price_sort" value=$in{'price_sort'}>
			<input type="hidden" name="mode" value="look">
			
			<table><tr><td bgcolor="$color_d"><b>\　<font color="#ffffff">買い物合計額： $all_total円\　</font></b></td><td><INPUT TYPE=image SRC="$dir_i/look.gif" BORDER=0></td></tr>
			</table></form>
			</TD></TR>
		</table>
EOF

print <<"EOF";
			<table width="$t_width" bgcolor="$bg_color"><TR><TD width=400><B>検索条件[$condition]\　検索商品数[$data_su\件]</b></TD><TD align="right">
			<a href=$script?order=$in{'order'}&class=$in{'class'}&keyword=$pas_word&FF=0&price_sort=1>▲価格順\表\示</a></TD></TR>
			</table>
EOF

	if (!@NEW) {
	print <<"EOF";
	<table border=0 cellspacing=0 cellpadding=5 width="$t_width" align=center>
	<tr><td bgcolor="$color_r" align=center><b><center>★該当する商品はありません★</center></b></td></tr>
	</table>
EOF

	}else{
#========================================================================
$width_name = $t_width - 430;
	print <<"EOF";
<TABLE bgcolor="$color_r" border=0 width="$t_width" cellpadding="0" cellspacing=0><tr><td>
	<TABLE border="0" width="$t_width" cellpadding="3" cellspacing= 1>
  <TBODY>
    <TR>
      <TD align="center" bgcolor="$color_d" width="140"><FONT color="#ffffff"><DIV align="center"><IMG src="$dir_i/picture.gif" width="80" height="18" border="0"></DIV></FONT></TD>
      <TD align="center" bgcolor="$color_d"><FONT color="#ffffff" width="$width_name"><DIV align="center"><IMG src="$dir_i/name.gif" width="80" height="18" border="0"></DIV></FONT></TD>
      <TD align="center" bgcolor="$color_d" width="90"><FONT color="#ffffff"><DIV align="center"><IMG src="$dir_i/option.gif" width="80" height="18" border="0"></DIV></FONT></TD>
      <TD colspan="2" align="center" bgcolor="$color_d" width="100"><FONT color="#ffffff"><DIV align="center"><IMG src="$dir_i/price.gif" width="80" height="18" border="0"></DIV></FONT></TD>
      <TD align="center" bgcolor="$color_d" width="90"><FONT color="#ffffff"><DIV align="center"><IMG src="$dir_i/kosuu.gif" width="80" height="18" border="0"></DIV></FONT></TD>
    </TR>
EOF
}
#====================================

		foreach ( @NEW ) {
			($goods_no,$name,$kigou,$option,$option2,$class,$setumei,$fcolor,$price,$tani,$zaiko,$limit,$tail,$bikou) = split(/\<\>/,$_);

@option = split(/\:/,$option);
$i = 0;
$option_set = "";
while($i < $option_no) {
	($op_k[$i],$op_m[$i]) =split(/\,/,$option[$i]);
	if($op_k[$i] eq ""){ $i++; next;}
		$option_set = $option_set."<option value='$op_k[$i]'>$op_m[$i]($op_k[$i])</option>\n";
	$i++;
}
if($option_set ne ""){
    $option_set = "<select name='op1'>".$option_set."</select>";
}else{
	$option_set ="\　";
}

@option2 = split(/\:/,$option2);
$i = 0;
$option2_set = "";
while($i < $option2_no) {
	($op2_k[$i],$op2_m[$i]) =split(/\,/,$option2[$i]);
	if($op2_k[$i] eq ""){ $i++; next;}
		$option2_set = $option2_set."<option value='$op2_k[$i]'>$op2_m[$i]($op2_k[$i])</option>\n";
	$i++;
}
if($option2_set ne ""){
    $option2_set = "<br><select name='op2'>".$option2_set."</select>";
}else{
	$option2_set ="\　";
}

$price_set = $price;
1 while $price_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

if ($price =~ /[^0-9]/) {          # 文字列を含んでいたらか？全角数字も。
        $price_set = "<font color ='#ff0000'>$price_set</font>";
}

$setumei_set ="";
	$bikou_form = "<input type='hidden' name='rem' value=$bikou>";
	if($bikou ne "\n"){
		$bikou = "<br>※".$bikou;
	}
	$setumei_set .=$setumei. $bikou;

if($zaiko ne ""){
	$zaiko_set ="<br>在庫$zaiko$tani";
}else{
	$zaiko_set ="";
    $zaiko = 100000;
}
if($limit ne ""){
	$tani_set ="<br>$limit$taniまで";
}else{
    $tani_set =$tani;
    $limit =100000;
}

$kosuu_setting = "";
foreach ( @kosuu_set ) {
	if($_ >$limit or $_ >$zaiko){
		last;
	}else{
		$kosuu_setting .= "<option value=$_>$_</option>";
	}
}
if($kosuu_setting eq ""){
	$kosuu_setting = "<select name='amount'><option value=0>−</option></select>$tani_set";
}else{
	$kosuu_setting = "<select name='amount'>$kosuu_setting</select>$tani_set";
}

$folder="$dir_i/order.gif";
if($zaiko ne 0){
	$get_setting = "<INPUT TYPE=image SRC=$folder BORDER=0>";
}else{
    $get_setting = "在庫切れ";
}

$word='タイムサービス';
if (index($setumei,$word) >= 0 || index($bikou,$word) >= 0) {
    # タイムゾーンを日本時間に合わせる
	$ENV{'TZ'} = "JST-9";
	$times = time;
	($sec,$min,$hour,$day,$month,$year,$wday,$Days,$dmy) = localtime($times);
	$time =$hour.':'.$min;
	
	if($time < $service_time[0] || $service_time[1] < $time){
		$get_setting ="[ｻｰﾋﾞｽﾀｲﾑ]".'<BR>'."$service_time[0]-$service_time[1]";
	}
}

if($tail ne ""){
	$gazou ="$dir_i/$goods_no$tail";
	$gazou2 ="$modoru_goods&mode=p_wide&G_NO=$goods_no&IMG=$dir_i/$goods_no$tail";
}else{
	$gazou ="$dir_i/space.gif";
	$gazou2 ="$modoru_goods&mode=p_wide&G_NO=$goods_no&IMG=$dir_i/space.gif";
}

$w_setum =$t_width-290;

	print <<EOF;
	<FORM action="$script" method="post">
	<input type='hidden' name='g_no' value='$goods_no'>
	<input type='hidden' name='id' value='$kigou'>
    <TR bgcolor="#ffffff">
      <TD rowspan="2" valign="middle" align="center">
	<table  width='120' height='90'><tr><td><center><A href=$gazou2><IMG src=$gazou width='67' height='90' border='0'></a></center></TD></tr>
	</table><center>[$goods_no]$kigou</center></TD>                                      
      <TD height="60" valign="middle" align="left" width="$width_name">$name<br>
      [$class_tb[$class]]</TD>
      <TD height="60" valign="middle" align="left" width="90">
      $option_set$option2_set</TD>
      <TD colspan="2" height="60" valign="middle" align="right" width="100">$price_set円$zaiko_set</TD>
      <TD height="60" valign="middle" align="center" width="90">
      <input type="hidden" name="goods" value="$name">
      <input type="hidden" name="unit" value="$price">

      <div align="center">$kosuu_setting</div>
      </TD>
      </TR>
    <TR bgcolor="#ffffff">
      <TD colspan="3" height="50" valign="middle" align="left" width="$w_setum"><FONT color="$fcolor">$setumei_set</font>
      </TD>
      <TD colspan="2" height="50" valign="middle" align="center" width="140"  bgcolor="$color_r">
    $bikou_form
    <input type="hidden" name="gazou" value="$goods_no$tail">
    <input type="hidden" name="setumei" value="$setumei">
    <input type="hidden" name="class" value="$in{'class'}">
    <input type="hidden" name="FF" value="$in{'FF'}">
    <input type="hidden" name="order" value="$in{'order'}">
    <input type="hidden" name="keyword" value="$in{'keyword'}">
    <input type="hidden" name="price_sort" value=$in{"price_sort"}>
    <table border=0 cellpaddin=0 cellspacing=0 width ="140" bgcolor="$color_r"><TR><TD align="center">	$get_setting</TD></TR>
	</TABLE>
	</TD>
    </TR>
    <TR bgcolor="#ffffff">
    <TD colspan="6" height="0" bgcolor="$bg_color" background ="$bk_ground">
    <HR size="1" color="$color_d"></TD>
    </TR>
    </FORM>
EOF

}

if (@NEW) {
print <<"EOF";
	</TBODY>
	</TABLE>
</td></tr></table>
</CENTER>
EOF
}

$buf ="class=".$in{'class'};
$buf2 ="order=".$in{'order'};
		
if($data_su > $page){
$i =1;
$j =0;
	while ($j < $data_su){
		if($j ne $ff_no ){
			$jump_set .="<FONT color='#0000ff' size=-1>[</font><a href=\"$script?$buf&$buf2&FF=$j&price_sort=$in{'price_sort'}\"><font color='#0000ff' size=-1>$i<font></a><FONT color='#0000ff' size=-1>]</font>";
		}else{
			$jump_set .="<FONT color='#0000ff' size=-1>[<b>$i</b>]</font>";
		}
		$i ++;
		$j = $j + $page; 
	}
}

        $nextlink = "";
		if ($next_num ne '') {
			$nextlink = "<a href=\"$script?$buf&$buf2&FF=$next_num&price_sort=$in{'price_sort'}\">次の$over_no件</a>";
		}
		
		$backlink = "";
		$back_num = $ff_no -$page;
		if($back_num >=0) {
			$backlink = "<a href=\"$script?$buf&$buf2&FF=$back_num&price_sort=$in{'price_sort'}\">前の$page件</a>\　\　";
		}
	   	print "<center><table width=$o_width><tr><td align='center'>$backlink$nextlink\　\　 $jump_set</td></tr></table></center>\n";



	print <<"EOF";
<IMG src="$dir_i/line.gif" border="0" width="$o_width" height="3">

	<center><table border="0" width="$t_width"><tr>
	<td width="$t_width-150" align="left" width="500">★商品画像をクリックすると拡大図を見ることができます。</TD>
	<td align="right" width="150">
	<a href=$modoru_goods&mode=adm1>▲管理者用</a></td></tr></table>
	</center>
EOF

	print "<p>$foot</body></html>\n" ;	
	
}

#=========================================================================================
sub keisan {
$data_no =0;
$all_total = 0;
@souryou_tb = ();
$size_A ='0';
$tiikiNO=@souhusaki;

if($tiikiNO < 1){
	$tiikiNO =1;
}

@order_1 = split(/!/,$order);
foreach (@order_1) {
	($s,$t) = split(/:/,$_);
	($a,$b,$c) = split(/\,/,$s);
    $flag =0;

	foreach ( @BASE ) {
		($goods_no,$name,$kigou,$option,$option2,$class,$setumei,$fcolor,$price,$tani,$zaiko,$limit,$tail,$bikou) = split(/\<\>/,$_);

		if($a == $goods_no){
			$flag=1;
			last;
		}
	}

#エラーチェック
if($flag  == 0){
	print &setCookie_0('ORDER', '');
	&error("NO.$aの商品情報が削除されています。",'商品画面で確認してください。');
}

@opt = split(/\:/,$option);

if($b eq ''){
	$i = 0;
	$flag=1;
	while($i < $option_no) {
		($op_k[$i],$op_m[$i]) =split(/\,/,$opt[$i]);
		if($op_k[$i] ne ''){$flag =0; last;}
		$i++;
	}
}else{
	$i = 0;
	$flag =0;
	while($i < $option_no) {
		($op_k[$i],$op_m[$i]) =split(/\,/,$opt[$i]);
		if($op_k[$i] eq $b){$flag=1;last;}
		$i++;
	}
}

if($flag  == 0){
	print &setCookie_0('ORDER', '');
	&error("NO.$aの商品情報が変更されています。",'商品画面で確認してください。');
}

@opt = split(/\:/,$option2);
if($c eq ''){
	$i = 0;
	$flag=1;
	while($i < $option_no) {
		($op_k[$i],$op_m[$i]) =split(/\,/,$opt[$i]);
		if($op_k[$i] ne ''){$flag =0; last;}
		$i++;
	}
}else{
	$i = 0;
	$flag =0;
	while($i < $option_no) {
		($op_k[$i],$op_m[$i]) =split(/\,/,$opt[$i]);
		if($op_k[$i] eq $c){$flag=1;last;}
		$i++;
	}
}

if($flag  == 0){
	print &setCookie_0('ORDER', '');
	&error("NO.$aの商品情報が変更されています。",'商品画面で確認してください。');
}

if($zaiko ne '' && $t > $zaiko){
	print &setCookie_0('ORDER', '');
	&error("NO.$aの商品の注文数が在庫数を越えています。",'商品画面で確認してください。');
}

if($limit ne '' && $t > $limit){
	print &setCookie_0('ORDER', '');
	&error("NO.$aの商品の注文数が制限を越えています。",'商品画面で確認してください。');
}

$sizeno = 1;	#サイズＡはスキップ
$size_flag = '0';
while ($sizeno < @size_tb) {

	if(index($bikou,$size_tb[$sizeno]) >= 0){
		$tiiki =0;
		@s_tb = split(/:/,$souryou[$sizeno]);
		while ($tiiki < $tiikiNO) {
			$souryou_tb[$tiiki] =$souryou_tb[$tiiki] + $s_tb[$tiiki] * $t;
            $tiiki ++;
        }
        $size_flag = '1';
		last;
	}
    $sizeno ++;
}
if($size_flag eq '0'){
	$size_A = '1';
}

	$k_no[$data_no] = $a;
	$k_id[$data_no] = $kigou;
	$k_name[$data_no] = $name;
	$k_option[$data_no] = $option;
	$k_option2[$data_no] = $option2;
	$k_bikou[$data_no] = $bikou;
	$k_price[$data_no] = $price;
	$k_amount[$data_no] = $t;
	$k_tani[$data_no] = $tani;
	$k_tail[$data_no] = $tail;
	$k_total[$data_no] = $t*$price;
	$all_total = $k_total[$data_no] + $all_total;
	$all_no = $data_no;
	$data_no++;
}

$tiiki =0;
if($size_A eq '1'){
	@s_tb = split(/:/,$souryou[0]);
	while ($tiiki < $tiikiNO) {
		$souryou_tb[$tiiki] =$souryou_tb[$tiiki] + $s_tb[$tiiki];
		$tiiki ++;
	}
}
}

#=========================================================================================
sub adm_add {
if ( $in{'pass'} ne $adm_pass ) { print "Location: $script?mode=adm1\n\n"; exit; }

&html_header();
# EASY SHOPヘッダー
$header = <<"EOF";
<table border="0" cellspacing="0" cellpadding="5" width="$o_width" align="center">
<tr bgcolor="$color_adm_d"> 
<td height="28" width="$o_width" bgcolor="$color_adm_d"><font color="#FFFFFF"><b> <font color="#FFFFFF">
<center>EASY SHOP 管理TOP</center></font></b> </font></td>
</tr>
</table>
EOF

	print <<"EOF";

	<center><table width=$o_width><tr><td align=right>
	<a href=$script>▲管理を出る</a>\　\　<a href=$save_data&mode=adm3&pass=$in{'pass'}>▲変更/削除</a>
	</td></tr></table></center>

	<form name ="F1" method="post" action="$script" enctype="multipart/form-data" onSubmit="return kakunin()">
	<table bgcolor=$color_adm_d border=0 cellspacing=0 cellpadding=0 align=center width=$o_width><tr><td>
	<table border=0 cellspacing=0 cellpadding=5 width=100% align=center>
	<tr> 
	<td bgcolor="$color_adm_r" align=center><b><center>商品データの追加</center></b></td>
	</tr></table></td></tr></table>
	<table border="0" cellpadding="10" align="center" cellspacing="1" width=$o_width>
	<tr><td valign=top>
	<table bgcolor=$color_adm_d border=0 cellspacing=0 cellpadding=0 align=center width=$o_width><tr><td>
	<table border=0 cellspacing=1 cellpadding=5 width=100% align=center>
EOF

		print <<"EOF";
		<tr> 
		<td valign="top" nowrap bgcolor="$color_adm_r"><b>分類名</b></td>
		<td bgcolor=#FFFFFF>
		<select name="class_add">
EOF

		$bun_no = @class_tb;

		foreach (0..$bun_no - 1 ) {
			print "<option value='$_'>$class_tb[$_]</option>\n";
		}
		print "</select>\n" ;

	print <<"EOF";
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>商品名</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=30 name="goodsname" value="">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>商品ＩＤ</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=30 name="MARK" value="">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>オプション(1)</b></td>
	<td bgcolor=#FFFFFF> 
	<table>
EOF

$i = 0;
while($i < $option_no) {
	$op_k = "OP_K".$i;
	$op_m = "OP_M".$i;
	print <<"EOF";
	<tr><td>
	記号<input type="text" size=5 name="$op_k" value="">
	</td><td>
	意味<input type="text" size=15 name="$op_m" value="">
	</td></tr>
EOF
	$i++;
}	print <<"EOF";
	</table></td></tr>

	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>オプション(2)</b></td>
	<td bgcolor=#FFFFFF> 
	<table>
EOF

$i = 0;
while($i < $option2_no) {
	$op2_k = "OP2_K".$i;
	$op2_m = "OP2_M".$i;
	print <<"EOF";
	<tr><td>
	記号<input type="text" size=5 name="$op2_k" value="">
	</td><td>
	意味<input type="text" size=15 name="$op2_m" value="">
	</td></tr>
EOF
	$i++;
}
	print <<"EOF";
	</table></td></tr>

	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>商品単価</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=30 name="PRICE">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>購入単位</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=30 name="TANI"  value="冊">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>在庫数</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=30 name="zaiko" value="">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>購入制限</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=30 name="limit" value="">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>商品画像</b></td>
	<td bgcolor=#FFFFFF>
	<input type="file" name="gazou" value="">
	</td>
	</tr>

EOF


	print <<"EOF";
	<tr> 
	<td valign="top" nowrap bgcolor="$color_adm_r"><b>商品説明</b></td>
	<td bgcolor=#FFFFFF>
	<textarea name="setumei" cols="40" rows="5"></textarea>
 
	説明の色を選択してください。<br>
	<input type=radio name=fcolor vlue=black checked><font color=black>■</font>
EOF
	$co_font = @fontcolor;
	foreach (1..$co_font-1) {
		print "<input type=radio name=fcolor value=$fontcolor[$_]><font color=$fontcolor[$_]>■</font>\n";
	}

	$size_set .= "<option value=></option>\n";
	foreach (@size_tb) {
		$size_set .= "<option value=$_>$_</option>\n";
	}
	$size_set = "<select name='bikou'>".$size_set."</select>";

	print <<"EOF";
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>備考</b></td>
	<td bgcolor=#FFFFFF> 
	$size_set	
	</td>
	</tr>
	<tr><td colspan=2 bgcolor=#FFFFFF>
	<input type="hidden" name="mode" value="adding">
    <input type="hidden" name="FF" value="$in{'FF'}">
    <input type="hidden" name="keyword" value="$in{'keyword'}">
    <input type="hidden" name="class" value="$in{'class'}">
	<input type="submit" value="商品追加">\　
	<input type="reset" value="クリア">
	</td></tr>
	<tr><td colspan=2 bgcolor=#FFFFFF>
	<table border=0 cellspacing=0 cellpadding=0 width=100% align=center>
	<tr><td>
	<ul>
	<li>商品ID及びオプションの記号は半角アルファベットと数字(半角、桁数は自由)と「-」（ハイフン）だけを用いることができます。"="や" "(ﾌﾞﾗﾝｸ)はエラーの原因になります。</li>
	<li>商品単価、在庫数、購入制限は数字（半角）のみ。（異なるときは赤く\表\示されます）</li>
	<li>購入単位とは個、ダース、ケース、束などのことです。10個を購入単位とするとき、単位をケースと記入して、商品説明で1ケースが10個であることを示してさい。</li>
	<li>商品説明に「タイムサービス（全角）」を記入すると指定されている時間にのみ購入できるようになります。</li>
	<li>商品画像(gif又はjpg)のファイルサイズは500ｋﾊﾞｲﾄまでです。商品画面の\表\中では90×90ﾋﾟｸｾﾙで\表\示されます。商品画像の拡大では実寸で\表\示されます。</li>
	<li>説明の欄のHTML言語は有効です。したがって、<br>&lta href='http://・・・'&gt&ltfont color='#0000ff'&gtリンク&lt/font&gt&lt/a&gt<br>のように記述することによりリンク(この場合は青色\表\示)が可\能\になります。</li>
	<li>@size_tbを備考の欄に記入することにより送料のサイズを指定できます。未指定は最初のサイズになります。</li>
	</ul>
	</td></tr></table>
	</td></tr></table>
	</td></tr></table>
	</td></tr></table>
	</form>
EOF

#=======================入力チェック===================================
	print <<"EOF";
<SCRIPT LANGUAGE="JavaScript">
<!--
function kakunin(){
  if (document.F1.goodsname.value == "") {
    alert("商品名が入力されていません。");
    document.F1.goodsname.focus();
    return(false);
  }
  if (document.F1.MARK.value == "") {
    alert("商品IDが入力されていません。");
    document.F1.MARK.focus();
    return(false);
  }
  if (document.F1.PRICE.value == "") {
    alert("単価が入力されていません。");
    document.F1.PRICE.focus();
    return(false);
  }
  suuzi = document.F1.PRICE.value;
  if (suuzi.search(/[^0-9]/i) != -1) {
	alert("単価の入力が正しくありません。");
	document.F1.PRICE.focus();
	return(false);
  }
  suuzi = document.F1.PRICE.value;
  if (suuzi.search(/[^0-9]/i) != -1) {
	alert("単価は半角数字で入力してください。");
	document.F1.PRICE.focus();
	return(false);
  }
  suuzi = document.F1.zaiko.value;
  if (suuzi.search(/[^0-9]/i) != -1) {
	alert("在庫数は半角数字で入力してください。");
	document.F1.zaiko.focus();
	return(false);
  }
  suuzi = document.F1.limit.value;
  if (suuzi.search(/[^0-9]/i) != -1) {
	alert("購入制限は半角数字で入力してください。");
	document.F1.limit.focus();
	return(false);
  }
  hankaku = document.F1.MARK.value;
  if (hankaku.search(/[^0-9A-Z\-]/i) != -1) {
	alert("商品IDは半角英数と-で入力してください。");
	document.F1.MARK.focus();
	return(false);
  }
}
// -->
</SCRIPT>
EOF
#========================================================================
			print <<"EOF";
			<center>
			<table width="$t_width"><tr><td align="right">
			<form method="POST" action="$script">
    		<input type="hidden" name="order" value=$in{'order'}>
			<input type="hidden" name="mode" value="look">
			<input type="submit" value="かごの中を見る">
			</form><hr noshade size=1>
			</TD></TR><tr><td align="center">
			<form method=post action=$script>
			分類名
			<select name="class">
			<option value="all">$class_all</option>
EOF
			$bun_no = @class_tb;

		foreach (0..$bun_no - 1 ) {
			if($_ ne $classmei){
				print "<option value='$_'>$class_tb[$_]</option>\n";
			}else{
				print "<option value='$_' selected>$class_tb[$_]</option>\n";
			}
		}
			
			
	print <<"EOF";
			</select>
			 and 検索キー<input type="text" size=10 name="keyword" value="$pas_word">
    		<input type="hidden" name="FF" value=0>
    		<input type="hidden" name="superkey" value="1">
    		<input type="hidden" name="order" value=$in{'order'}>
    		<input type="hidden" name="mode" value=adm2>
			<input type="hidden" name="pass" value="$adm_pass">
			\　\　<input type=submit value=商品検索>
			</form></td></tr></table></center>
EOF

	if (!@NEW) {
        print "<h3 align=center>★該当する商品はありません★</h3>\n"; 
	}else{
#========================================================================
$width_name = $t_width - 390;
	print <<"EOF";
<CENTER><b>[検索商品数：$data_su]</b>
<TABLE bgcolor="$color_adm_r" border=0 width="$t_width" cellpadding="0" cellspacing=0><tr><td>
<TABLE border="0" width="$t_width" cellpadding="3" cellspacing= 1>
  <TBODY>
    <TR>
      <TD align="center" bgcolor="$color_adm_d" width="140"><FONT color="#ffffff">商品画像</FONT></TD>
      <TD align="center" bgcolor="$color_adm_d"><FONT color="#ffffff" width="$width_name">商品名</FONT></TD>
      <TD align="center" bgcolor="$color_adm_d" width="90"><FONT color="#ffffff">オプション</FONT></TD>
      <TD colspan="2" align="center" bgcolor="$color_adm_d" width="90"><FONT color="#ffffff">価格</FONT></TD>
      <TD align="center" bgcolor="$color_adm_d" width="90"><FONT color="#ffffff">個数</FONT></TD>
    </TR>
EOF
}
#========================================================================

		foreach ( @NEW ) {
			($goods_no,$name,$kigou,$option,$option2,$class,$setumei,$fcolor,$price,$tani,$zaiko,$limit,$tail,$bikou) = split(/\<\>/,$_);

@option = split(/\:/,$option);
$i = 0;
$option_set = "";
while($i < $option_no) {
	($op_k[$i],$op_m[$i]) =split(/\,/,$option[$i]);
	if($op_k[$i] eq ""){ $i++; next;}
		$option_set = $option_set."<option value='$op_k[$i]'>$op_m[$i]($op_k[$i])</option>\n";
	$i++;
}
if($option_set ne ""){
    $option_set = "<select name='op1'>".$option_set."</select>";
}else{
	$option_set ="\　";
}

@option2 = split(/\:/,$option2);
$i = 0;
$option2_set = "";
while($i < $option2_no) {
	($op2_k[$i],$op2_m[$i]) =split(/\,/,$option2[$i]);
	if($op2_k[$i] eq ""){ $i++; next;}
		$option2_set = $option2_set."<option value='$op2_k[$i]'>$op2_m[$i]($op2_k[$i])</option>\n";
	$i++;
}
if($option2_set ne ""){
    $option2_set = "<br><select name='op2'>".$option2_set."</select>";
}else{
	$option2_set ="\　";
}

$price_set = $price;
1 while $price_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

if ($price =~ /[^0-9]/) {          # 全角文字列を含んでいたら
        $price_set = "<font color ='#ff0000'>$price_set</font>";
}

$setumei_set ="";
	$bikou_form = "<input type='hidden' name='rem' value=$bikou>";
	if($bikou ne "\n"){
		$bikou = "<br>※".$bikou;
	}
	$setumei_set .=$setumei. $bikou;

if($zaiko ne ""){
	$zaiko_set ="<br>在庫$zaiko$tani";
}else{
	$zaiko_set ="";
    $zaiko = 100000;
}
if($limit ne ""){
	$tani_set ="<br>$limit$taniまで";
}else{
    $tani_set =$tani;
    $limit =100000;
}

$kosuu_setting = "";
foreach ( @kosuu_set ) {
	if($_ >$limit or $_ >$zaiko){
		last;
	}else{
		$kosuu_setting .= "<option value=$_>$_</option>";
	}
}
if($kosuu_setting eq ""){
	$kosuu_setting = "<select name='amount'><option value=0>−</option></select>$tani_set";
}else{
	$kosuu_setting = "<select name='amount'>$kosuu_setting</select>$tani_set";
}
if($zaiko ne 0){
	$get_setting = "かごに入れる";
}else{
    $get_setting = "在庫切れ";
}

if($tail ne ""){
	$gazou ="$dir_i/$goods_no$tail";
}else{
	$gazou ="$dir_i/space.gif";
}

	print <<"EOF";
    <form method=post action=$script>
	<input type='hidden' name='g_no' value='$goods_no'>
	<input type='hidden' name='id' value='$kigou'>
    <TR bgcolor="#ffffff">
      <TD rowspan="2" valign="middle" align="center"><table  width="120" height="90"><tr><td><center><IMG src="$gazou" width="67" height="90" border="0"></center></TD></tr></table><center>[$goods_no]$kigou</center></TD>                                      
      <TD height="60" valign="middle" align="left" width="$width_name">$name<br>
      [$class_tb[$class]]</TD>
      <TD height="60" valign="middle" align="center" width="90">
      $option_set$option2_set</TD>
      <TD colspan="2" height="60" valign="middle" align="right" width="90">$price_set円$zaiko_set</TD>
      <TD height="60" valign="middle" align="center" width="90">
      <input type="hidden" name="goods" value="$name">
      <input type="hidden" name="unit" value="$price">

      <div align="center">$kosuu_setting</div>
      </TD>
      </TR>
    <TR bgcolor="#ffffff">
      <TD colspan="3" height="50" valign="middle" align="left"><FONT color="$fcolor">$setumei_set</font>
      </TD>
      <TD colspan="2" height="60" valign="middle" align="center" width="1">
    $bikou_form
    <input type="hidden" name="gazou" value="$goods_no$tail">
    <input type="hidden" name="setumei" value="$setumei">
    <input type="hidden" name="order" value="$in{'order'}">
    <input type="hidden" name="class" value="$in{'class'}">
    <input type="hidden" name="FF" value="$in{'FF'}">
    <input type="hidden" name="keyword" value="$in{'keyword'}">
    <table border=0 width =100><TR><TD><center>$get_setting</center></TD></TR></TABLE></TD>
    </TR>
    <TR bgcolor="#ffffff">
    <TD colspan="6" height="0" bgcolor="$bg_color" background ="$bk_ground">
    <HR size="1" color="$color_adm_d"></TD>
    </TR>
    </FORM>
EOF

}

if (@NEW) {
print <<"EOF";
</TBODY>
</TABLE>
EOF
}

print <<"EOF";
</td></tr></table>
</CENTER>
EOF
		$buf ="class=".$in{'class'};
		$buf2 ="order=".$in{'order'};
        $nextlink = "";
		if ($next_num ne '') {
			$nextlink = "<a href=\"$script?mode=adm2&pass=$adm_pass&$buf&FF=$next_num\">次の$over_no件</a>";
		}
		
		$backlink = "";
		$back_num = $ff_no -$page;
		if($back_num >=0) {
			$backlink = "<a href=\"$script?mode=adm2&pass=$adm_pass&$buf&FF=$back_num\">前の$page件</a>\　\　\　";
		}
	   	print "<center><table><tr><td>$backlink$nextlink</td></tr></table></center>\n";



	print <<"EOF";
	<hr noshade size=2 width=$t_width><center><table border="0" width="$t_width"><tr><td width="$t_width" align="right">
	<a href=$script?mode=adm1>▲管理者用</a></td></tr></table>
	</center>
EOF

	print "<p>$foot</body></html>\n" ;	
	
}

#======================================================================================
sub adm_renew {

&html_header();

$header = <<"EOF";
<table border="0" cellspacing="0" cellpadding="5" width="$o_width" align="center">
<tr bgcolor="$color_adm_d"> 
<td height="28" width="$o_width" bgcolor="$color_adm_d"><font color="#FFFFFF"><b> <font color="#FFFFFF">
<center>EASY SHOP 管理 -更新</center></font></b> </font></td>
</tr>
</table>
EOF

	print <<"EOF";
	<center><table width=$o_width><tr><td align=right>
	<a href=$script>▲管理を出る</a>\　\　<a href=$modoru_adding>▲管理TOP(追加)</a>\　\　<a href=$modoru_dell>▲変更/削除</a>
	</td></tr></table></center>
EOF

	print <<"EOF";

	<form name ="F1" method="post" action="$script" enctype="multipart/form-data" onSubmit="return kakunin()">
	<table bgcolor=$color_adm_d border=0 cellspacing=0 cellpadding=0 align=center width=$o_width><tr><td>
	<table border=0 cellspacing=1 cellpadding=5 width=100% align=center>
	<tr> 
	<td bgcolor="$color_adm_r" align=center><b>商品データの更新</b></td>
	</tr></table></td></tr></table>

	<table border="0" cellpadding="10" align="center" cellspacing="1" width=$o_width>
	<tr><td valign=top>
	<table bgcolor=$color_adm_d border=0 cellspacing=0 cellpadding=0 align=center width=$o_width><tr><td>
	<table border=0 cellspacing=1 cellpadding=5 width=100% align=center>
EOF

		print <<"EOF";
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>商品NO</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="hidden" name="id" value="$in{"id"}"><B>$in{"id"}</B>
	</td>
	</tr>
		<tr> 
		<td valign="top" nowrap bgcolor="$color_adm_r"><b>分類名</b></td>
		<td bgcolor=#FFFFFF>
		<select name="class_new">
EOF

		$bun_no = @class_tb;

		foreach (0..$bun_no - 1 ) {
			if($_ ne $class){
				print "<option value='$_'>$class_tb[$_]</option>\n";
			}else{
				print "<option value='$_' selected>$class_tb[$_]</option>\n";

			}
		}
		print "</select>\n" ;

	print <<"EOF";
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>商品名</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=30 name="goodsname" value="$name">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>商品ＩＤ</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=30 name="MARK" value="$kigou">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>オプション(1)</b></td>
	<td bgcolor=#FFFFFF> 
	<table>
EOF

@option = split(/\:/,$option);
$i = 0;
while($i < $option_no) {
	($op_k[$i],$op_m[$su]) =split(/\,/,$option[$i]);
	$op_k = "OP_K".$i;
	$op_m = "OP_M".$i;
	print <<"EOF";
	<tr><td>
	記号<input type="text" size=5 name="$op_k" value="$op_k[$i]">
	</td><td>
	意味<input type="text" size=15 name="$op_m" value="$op_m[$su]">
	</td></tr>
EOF
	$i++;
}	
	
	print <<"EOF";
	</table></td></tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>オプション(2)</b></td>
	<td bgcolor=#FFFFFF> 
	<table>
EOF

@option2 = split(/\:/,$option2);
$i = 0;
while($i < $option2_no) {
	($op2_k[$i],$op2_m[$su]) =split(/\,/,$option2[$i]);
	$op2_k = "OP2_K".$i;
	$op2_m = "OP2_M".$i;
	print <<"EOF";
	<tr><td>
	記号<input type="text" size=5 name="$op2_k" value="$op2_k[$i]">
	</td><td>
	意味<input type="text" size=15 name="$op2_m" value="$op2_m[$su]">
	</td></tr>
EOF
	$i++;
}	

$zaiko ='('.$zaiko.')';	
	print <<"EOF";
	</table></td></tr>

	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>商品単価</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=30 name="PRICE" value="$price">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>購入単位</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=30 name="TANI" value="$tani">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>在庫数</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=30 name="zaiko" value="$zaiko">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>購入制限</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=30 name="limit" value="$limit">
	</td>
	</tr>

	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>商品画像</b></td>
	<td bgcolor=#FFFFFF>
	<input type=checkbox name="gazou_adm4" value=on>画像変更\　\　\　\　
	<input type="file" name="gazou" value="$goods_no$tail">
	</td>
	</tr>

EOF

$setumei =~ s/&lt;/</g;
$setumei =~ s/&gt;/>/g;
$setumei =~ s/&quot;/\"/g;
$setumei =~ s/<br>/\n/g;
$setumei =~ s/\.\n/\. \n/g;

	print <<"EOF";
	<tr> 
	<td valign="top" nowrap bgcolor="$color_adm_r"><b>商品説明</b></td>
	<td bgcolor=#FFFFFF>
	<textarea name="setumei" cols="40" rows="5">$setumei</textarea>
 
	<br>説明の色を選択してください。<br>
EOF
	$co_font = @fontcolor;
	foreach (0..$co_font-1) {
		if($fontcolor[$_] ne $fcolor){
			print "<input type=radio name=fcolor value=$fontcolor[$_]><font color=$fontcolor[$_]>■</font>\n";
		}else{
			print "<input type=radio name=fcolor value=$fontcolor[$_] checked><font color=$fontcolor[$_]>■</font>\n";
		
		}
	}

	print <<"EOF";
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>備考</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" size=30 name="bikou" value="$bikou">
	</td>
	</tr>
	<tr><td colspan=2 bgcolor=#FFFFFF>
	<input type="hidden" name="mode" value="renew">
    <input type="hidden" name="FF" value="$in{'FF'}">
    <input type="hidden" name="class" value="$in{'class'}">
    <input type="hidden" name="keyword" value="$in{'keyword'}">
	<input type="submit" value="データ更新">\　
	<input type="reset" value="クリア">
	</td></tr>
	<tr><td colspan=2 bgcolor=#FFFFFF>
	<table border=0 cellspacing=0 cellpadding=0 width=100% align=center>
	<tr><td>
	<ul>
	<li>必要な部分を変更して更新をクリックしてください。</li>
	<li>商品ID及びオプションの記号は半角アルファベットと数字(半角、桁数は自由)と「-」（ハイフン）だけを用いることができます。"="や"(ﾌﾞﾗﾝｸ) "はエラーの原因になります。</li>
	<li>商品単価、在庫数、購入制限は数字（半角）のみ。（異なるときは赤く\表\示されます）</li>
	<li>購入単位とは個、ダース、ケース、束などのことです。10個を購入単位とするとき、単位をケースと記入して、商品説明で1ケースが10個であることを示してさい。</li>
	<li>在庫数はリアルタイムに更新されていますので、増減数（追加数のときは50又は+50、減らすときは-50など）を指定できます。半角数字以外では更新は行なわれません。ブランクの時は在庫数無制限となります。在庫数無制限のときに指定された在庫数はそのまま在庫数となります。</li>
	<li>商品説明に「タイムサービス（全角）」を記入すると指定されている時間にのみ購入できるようになります。</li>
	<li>商品画像(gif又はjpg)のファイルサイズは500ｋﾊﾞｲﾄまでです。商品画面の\表\中では90×90ﾋﾟｸｾﾙで\表\示されます。商品画像の拡大では実寸で\表\示されます。</li>
	<li>説明の欄のHTML言語は有効です。したがって、<br>&lta href='http://・・・'&gt&ltfont color='#0000ff'&gtリンク&lt/font&gt&lt/a&gt<br>のように記述することによりリンク(この場合は青色\表\示)が可\能\になります。</li>
	<li>@size_tbを備考の欄に記入することにより送料のサイズを指定できます。未指定は最初のサイズになります。</li>
	</ul>
	</td></tr></table>
	</td></tr></table>
	</td></tr></table>
	</td></tr></table>
	</form>
EOF
#=======================入力チェック===================================
	print <<"EOF";
<SCRIPT LANGUAGE="JavaScript">
<!--
function kakunin(){
  if (document.F1.goodsname.value == "") {
    alert("商品名が入力されていません。");
    document.F1.goodsname.focus();
    return(false);
  }
  if (document.F1.MARK.value == "") {
    alert("商品IDが入力されていません。");
    document.F1.MARK.focus();
    return(false);
  }
  if (document.F1.PRICE.value == "") {
    alert("単価が入力されていません。");
    document.F1.PRICE.focus();
    return(false);
  }
  suuzi = document.F1.PRICE.value;
  if (suuzi.search(/[^0-9]/i) != -1) {
	alert("単価の入力が正しくありません。");
	document.F1.PRICE.focus();
	return(false);
  }
  suuzi = document.F1.PRICE.value;
  if (suuzi.search(/[^0-9]/i) != -1) {
	alert("単価は半角数字で入力してください。");
	document.F1.PRICE.focus();
	return(false);
  }
  suuzi = document.F1.zaiko.value;
  if (suuzi.search(/[^0-9\(\)\+\-]/i) != -1) {
	alert("在庫数は半角数字,(,),+,-で入力してください。");
	document.F1.zaiko.focus();
	return(false);
  }
  suuzi = document.F1.limit.value;
  if (suuzi.search(/[^0-9]/i) != -1) {
	alert("購入制限は半角数字で入力してください。");
	document.F1.limit.focus();
	return(false);
  }
  hankaku = document.F1.MARK.value;
  if (hankaku.search(/[^0-9A-Z\-]/i) != -1) {
	alert("商品IDは半角英数と-で入力してください。");
	document.F1.MARK.focus();
	return(false);
  }

}
// -->
</SCRIPT>
EOF
	print "<hr noshade size=1 width=$o_width><p>$foot</body></html>\n" ;	

}

#===============================================================
sub dell {

	open (IN,"$data_file") || &error('オープンエラー','指定された書込みファイルが開けません。');
	@LINE = <IN>;
	close (IN);

	foreach $data ( @LINE ) {
	($goods_no,$name,$kigou,$option,$option2,$class,$setumei,$fcolor,$price,$tani,$zaiko,$limit,$tail,$bikou)  = split(/\<\>/,$data);
		if ( $in{"$goods_no"} ne "on" ) {
			 push (@NEW,$data); 
		 } else {
				unlink	"$dir_i/$goods_no$tail";
		 		next; 
		 }
	}

	open (OUT,">$data_file") || &error('オープンエラー','指定された書込みファイルが開けません。');
	print OUT (@NEW);
	close (OUT);
	

		print "Location: $modoru_dell\n\n";
}
#===================================================================================
sub renew {

if ( $in{'gazou'} ne '' && $in{'gazou_adm4'} eq 'on') {

	$gif  = 1;
	$jpeg = 1;
	$macbin=0;
	foreach (@in) {
		if ($_ =~ /(.*)Content-type:(.*)\/(.*)/i) { $tail=$3; }
		if ($_ =~ /(.*)gazou=(.*)/i) { $fname=$2; }
		if ($_ =~ /application\/x-macbinary/i) { $macbin=1; }
	}
	$tail =~ s/\r//g;
	$tail =~ s/\n//g;

	$flag=0;
	if ($tail =~ /gif/i && $gif) { $tail=".gif"; $flag=1; }
	if ($tail =~ /jpeg/i && $jpeg) { $tail=".jpg"; $flag=1; }

	if (!$flag) {
		if ($fname =~ /.gif/i && $gif) { $tail=".gif"; $flag=1; }
		if (($fname =~ /.jpg/i && $jpeg) || ($fname =~ /.jpeg/i && $jpeg))
			{ $tail=".jpg"; $flag=1; }
	}
	if (!$flag) { &error("アップロードできないファイル形式です","lock"); }

	$upfile = $in{'gazou'};

	# マックバイナリ対策
	if ($macbin) {
		$length = substr($upfile,83,4);
		$length = unpack("%N",$length);
		$upfile = substr($upfile,128,$length);
	}

	# 添付データを書き込み

	$image_dir = "$dir_i/$in{'id'}$tail";
	open(OUT,"> $image_dir") || &error("画像のアップロードに失敗しました","$image_dir");
	binmode(OUT);
	binmode(STDOUT);
	print OUT "$upfile";
	close(OUT);

	chmod (0666,$image_dir);

# ファイルサイズ制限ルーチン=================================================

	$FileName = $image_dir;
	( $dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks ) = stat ( $FileName );

	if ( $size > 500000 ) { 
		unlink $image_dir ; 
		&error ("ファイルサイズの超過。","ファイル容量が500キロバイトを超えています。");
	}

	if ( $size == 0 ) { unlink $image_dir; }


	$tail_new =$tail;

}
#===============================書き込みする====================================
$i = 0;
$option_new = "";
while($i < $option_no) {
	$op_k = "OP_K".$i;
	$op_m = "OP_M".$i;
    $in{$op_k} =~ s/\s//g;
    $in{$op_k} =~ s/=//g;

	$option_new .= $in{$op_k}.",".$in{$op_m}.":";
    $i++;
}
$i = 0;
$option2_new = "";
while($i < $option2_no) {
	$op2_k = "OP2_K".$i;
	$op2_m = "OP2_M".$i;
    $in{$op2_k} =~ s/\s//g;
    $in{$op2_k} =~ s/=//g;

	$option2_new .= $in{$op2_k}.",".$in{$op2_m}.":";
    $i++;
}

# ロック処理
if ($lockkey ne 0) { &lock_log(); }

	open (IN_r,"$data_file") || &error('オープンエラー','指定された書込みファイルが開けません。');
	@LINE_r = <IN_r>;
	close (IN_r);
	
	foreach $data_r ( @LINE_r ) {
	($goods_no,$name,$kigou,$option,$option2,$class,$setumei,$fcolor,$price,$tani,$zaiko,$limit,$tail,$bikou) = split(/\<\>/,$data_r);
		if ( $goods_no eq $in{'id'} ) {
		
		    if($in{'zaiko'} eq ''){
				$zaiko = '';
			}elsif($in{'zaiko'} =~ /[()]/ ){

			}elsif($in{'zaiko'} !~ /[\-\+0-9]+/ ){
			
			}else{
				if($zaiko eq ''){$zaiko =0 ;}
				
				$zaiko =$zaiko +$in{'zaiko'};
				
			}
			
            if ($in{'gazou'} eq '' && $in{'gazou_adm4'} eq 'on')  {
				$tail_new ="";
                unlink $image_dir_old;
			}elsif($in{'gazou_adm4'} eq 'on'){	
				$image_dir_old = "$dir_i/$in{'id'}$tail";
				if($image_dir ne $image_dir_old){unlink $image_dir_old;}
			}elsif($in{'gazou_adm4'} ne 'on'){	
              	$tail_new =$tail;
            }

		$data_r = "$goods_no<>$in{'goodsname'}<>$in{'MARK'}<>$option_new<>$option2_new<>$in{'class_new'}<>$in{'setumei'}<>$in{'fcolor'}<>$in{'PRICE'}<>$in{'TANI'}<>$zaiko<>$in{'limit'}<>$tail_new<>$in{'bikou'}\n";
		}
		push (@NEW_r,$data_r); 
	}
	
	open (OUT,">$data_file") || &error('オープンエラー','指定された書込みファイルが開けません。');
	print OUT (@NEW_r);
	close (OUT);

# ファイルロック解除
	if (-e $loglock) { unlink($loglock); }

	print "Location: $modoru_dell\n\n";
}
#===================================================================================
sub adding {

	if ( $in{'goodsname'} eq '' ) { print "Location: $modoru_adding\n\n";}
	elsif ( $in{'class'} eq '' ) { print "Location: $modoru_adding\n\n";}
	elsif ( $in{'MARK'} eq '' ) { print "Location: $modoru_adding\n\n";}
	elsif ( $in{'PRICE'} eq '' ) { print "Location: $modoru_adding\n\n";}
	else {
	

	open (IN,"$cnt_file") || &error('オープンエラー','指定された書込みファイルが開けません。');
	$goods_max = <IN>;
	close (IN);
	
	if($goods_max eq ""){$goods_max = 0;}
	$goods_no = $goods_max + 1;


if ( $in{'gazou'}) {

	$gif  = 1;
	$jpeg = 1;
	$macbin=0;
	foreach (@in) {
		if ($_ =~ /(.*)Content-type:(.*)\/(.*)/i) { $tail=$3; }
		if ($_ =~ /(.*)gazou=(.*)/i) { $fname=$2; }
		if ($_ =~ /application\/x-macbinary/i) { $macbin=1; }
	}
	$tail =~ s/\r//g;
	$tail =~ s/\n//g;

	$flag=0;
	if ($tail =~ /gif/i && $gif) { $tail=".gif"; $flag=1; }
	if ($tail =~ /jpeg/i && $jpeg) { $tail=".jpg"; $flag=1; }

	if (!$flag) {
		if ($fname =~ /.gif/i && $gif) { $tail=".gif"; $flag=1; }
		if (($fname =~ /.jpg/i && $jpeg) || ($fname =~ /.jpeg/i && $jpeg))
			{ $tail=".jpg"; $flag=1; }
	}
	if (!$flag) { &error("アップロードできないファイル形式です。"); }

	$upfile = $in{'gazou'};

	# マックバイナリ対策
	if ($macbin) {
		$length = substr($upfile,83,4);
		$length = unpack("%N",$length);
		$upfile = substr($upfile,128,$length);
	}
    

	# 添付データを書き込み

	$image_dir = "$dir_i/$goods_no$tail";
	open(OUT,"> $image_dir") || &error("画像のアップロードに失敗しました","$image_dir");
	binmode(OUT);
	binmode(STDOUT);
	print OUT "$upfile";
	close(OUT);

	chmod (0666,$image_dir);

# ファイルサイズ制限ルーチン=================================================

	$FileName = $image_dir;
	( $dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks ) = stat ( $FileName );

	if ( $size > 500000 ) { 
		unlink $image_dir ; 
		&error ("ファイルサイズ超過。","ファイル容量が500キロバイトを超えています。");

	}

	if ( $size == 0 ) { unlink $image_dir; }

}	
#書きこみ=================================================================
$i = 0;
$option_new = "";
while($i < $option_no) {
	$op_k = "OP_K".$i;
	$op_m = "OP_M".$i;
    $in{$op_k} =~ s/\s//g;
    $in{$op_k} =~ s/=//g;

	$option_new .= $in{$op_k}.",".$in{$op_m}.":";
    $i++;
}
$i = 0;
$option2_new = "";
while($i < $option2_no) {
	$op2_k = "OP2_K".$i;
	$op2_m = "OP2_M".$i;
    $in{$op2_k} =~ s/\s//g;
    $in{$op2_k} =~ s/=//g;

	$option2_new .= $in{$op2_k}.",".$in{$op2_m}.":";
    $i++;
}

	$MARK = "$in{'MARK'}";

# ロック処理
if ($lockkey ne 0) { &lock_log(); }

	open (OUT,">>$data_file") || &error('オープンエラー','指定された書込みファイルが開けません。');
	print OUT "$goods_no<>$in{'goodsname'}<>$in{'MARK'}<>$option_new<>$option2_new<>$in{'class_add'}<>$in{'setumei'}<>$in{'fcolor'}<>$in{'PRICE'}<>$in{'TANI'}<>$in{'zaiko'}<>$in{'limit'}<>$tail<>$in{'bikou'}\n";
	close (OUT);

# ファイルロック解除
	if (-e $loglock) { unlink($loglock); }

	open (OUT_C,">$cnt_file") || &error('オープンエラー','指定された書込みファイルが開けません。');
	print OUT_C "$goods_no";
	close (OUT_C);

	print "Location: $modoru_adding\n\n";
	}
}

# =======================================================================================
sub adm1 {

if($adm_pass eq "1234"){
	$dis_closure = "<br>[パスワード = 1234]<br>";
}
&html_header();

print <<"EOF";
<table width=$o_width align=center cellpadding=0 border=0>
<tr><td>
<div align="right"><a href="$modoru_goods">▲戻る</a></div><hr width=$o_width noshade size=1>
<BR><BR></td></tr></table>
<table bgcolor=$color_adm_r width=350 align=center cellpadding=10 border=1 bordercolor=$color_adm_d>
<tr><td><center>
<form method=post action=$script>
<input type=hidden name=mode value=adm2>
<input type=hidden name=class value="all">
<input type=hidden name=FF value=0>
<input type=hidden name="keyword" value="">
<input type="hidden" name="superkey" value="1">
管理者用パスワードを入力してください。<br><br>
<input type=password name=pass>
<input type=submit value=認証>$dis_closure</form>
</td></tr></table>
<br></center>
<hr width=$o_width noshade size=1>
$foot
</body></html>
EOF

}

# =======================================================================================
sub adm_dell {

if ( $in{'pass'} ne $adm_pass ) { print "Location: $script?mode=adm1\n\n"; exit; }

&html_header();

# EASY SHOPヘッダー
$header = <<"EOF";
<table border="0" cellspacing="0" cellpadding="5" width="$t_width" align="center">
<tr bgcolor="$color_adm_d"> 
<td height="28" width="$t_width" bgcolor="$color_adm_d"><font color="#FFFFFF"><b> <font color="#FFFFFF">
<center>EASY SHOP 管理 -変更/削除</center></font></b> </font></td>
</tr>
</table>
EOF

	print <<"EOF";
	<center><table width=$t_width><tr><td align=right>
	<a href=$script>▲管理を出る</a>\　\　<a href=$modoru_adding>▲管理TOP(追加)</a>
	</td></tr></table></center><br>
EOF

	if (!@NEW) {
        print "<h3 align=center>★該当する商品はありません★</h3>\n"; 
	}

print <<"EOF";
<center>
<table width=$t_width boder=0 align=center cellpadding=5 bordercolor=$color_adm_d>
<tr bgcolor=$color_adm_r><td><b><center>商品データの変更/削除</center></b></td></tr>
<tr><td  bgcolor="$bg_color" background ="$bk_ground">
EOF
			print <<"EOF";
			<center>
			<table><tr><td>
			<form method=post action=$script>
			<b>分類名</b>
			<select name="class">
			<option value="all">$class_all</option>
EOF
		$bun_no = @class_tb;

		foreach (0..$bun_no - 1 ) {
			if($_ ne $classmei){
				print "<option value='$_'>$class_tb[$_]</option>\n";
			}else{
				print "<option value='$_' selected>$class_tb[$_]</option>\n";

			}
		}
			
			print "</select>\n" ;
			
	print <<"EOF";
			 and 検索キー<input type="text" size=15 name="keyword" value="$pas_word">
			<input type="hidden" name="mode" value="adm3">
			<input type="hidden" name="pass" value="$adm_pass">
    		<input type="hidden" name="superkey" value="0">
    		<input type="hidden" name="FF" value=0>
			\　\　<input type=submit value=商品検索>
			</form></TD><tr></table></center>
EOF

	print <<"EOF";
<hr noshade size=1>
<center>商品画像をクリックすると該当商品のデータを変更できます。</center>
</td></tr>
</table>
<form method=post action=$script>
<input type=hidden name="mode" value="dell"><b>[検索商品数：$data_su]</b>
<TABLE bgcolor="$color_adm_r" border=0 width="$t_width" cellpadding="0" cellspacing="0"><tr><td>
<TABLE border=0 width="$t_width" cellpadding="3" cellspacing="1"><tr><td>
	<TBODY>
	<TR>
	<TD width="49" align="center" bgcolor="$color_adm_d"><FONT color="#ffffff"><B>削除</B></FONT></TD>
	<TD align="center" bgcolor="$color_adm_d" width="112"><FONT color="#ffffff"><B>商品画像</B></FONT></TD>
	<TD align="center" bgcolor="$color_adm_d" colspan="2" width="155"><FONT color="#ffffff"><B>商品名</B></FONT></TD>
	<TD align="center" bgcolor="$color_adm_d" width="96"><B><FONT color="#ffffff">単価</FONT></B></TD>
	<TD align="center" bgcolor="$color_adm_d" width="90"><FONT color="#ffffff"><B>在庫数</B></FONT></TD>
	<TD align="center" bgcolor="$color_adm_d" width="101"><FONT color="#ffffff"><B><FONT color="#ffffff">購入制限</FONT></B></FONT></TD>
	</TR>
EOF

foreach ( @NEW ) {
	($goods_no,$name,$kigou,$option,$option2,$class,$setumei,$fcolor,$price,$tani,$zaiko,$limit,$tail,$bikou) = split(/\<\>/,$_);

$price_set = $price;
1 while $price_set =~ s/(.*\d)(\d\d\d)/$1,$2/g; #桁カンマを入れる処理

if ($price =~ /[^0-9]/) {          # 全角文字列を含んでいたら
        $price_set = "<font color ='#ff0000'>$price_set</font>";
}
if ($limit =~ /[^0-9]/) {          # 全角文字列を含んでいたら
        $limit_set = "<font color ='#ff0000'>$limit</font>";
}else{ $limit_set =$limit;}
if ($zaiko =~ /[^0-9]/) {          # 全角文字列を含んでいたら
        $zaiko_set = "<font color ='#ff0000'>$zaiko</font>";
}else{$zaiko_set =$zaiko;}

if($bikou ne ''){
$bikou_set ="<br>"."※".$bikou;
}

@opt = split(/\:/,$option);
$i = 0;
$option ="[ｵﾌﾟｼｮﾝ]";
while($i < $option_no) {
	($op_k,$op_m) =split(/\,/,$opt[$i]);
	if($op_k ne ""){
		$option .=$op_k."=". $op_m."\　";
	}
	$i++;
}

@opt = split(/\:/,$option2);
$i = 0;
$option2 =" ";
while($i < $option2_no) {
	($op_k,$op_m) =split(/\,/,$opt[$i]);
	if($op_k ne ""){
	$option2 .="\　".$op_k."=". $op_m;
	}
	$i++;
}

if($tail ne ""){
	$gazou ="$dir_i/$goods_no$tail";
}else{
	$gazou ="$dir_i/space.gif";
}

print <<"EOF";
	<TR>
	<TD rowspan="3" bgcolor="#ffffff" width="49" align="center"><input type=checkbox name="$goods_no"></TD>
	<TD bgcolor="#ffffff" rowspan="3" align="center" width="112"><a href=\"$save_data&mode=adm4&pass=$adm_pass&id=$goods_no\"><IMG src="$gazou" width="67" height="90" border="0"><BR>
     <font color="$link_color"> [$goods_no]$kigou</font></A></TD>
	<TD bgcolor="#ffffff" colspan="2" width="155">$name</TD>
	<TD bgcolor="#ffffff" align="right" width="96">$price_set円</TD>
	<TD bgcolor="#ffffff" align="right" width="90">$zaiko_set$tani</TD>
	<TD bgcolor="#ffffff" align="right" width="101">$limit_set$tani</TD>
	</TR>
	<TR>
	<TD bgcolor="#ffffff" colspan="5">[分類]$class_tb[$class]\　 $option$option2</TD>
	</TR>
	<TR>
	<TD bgcolor="#ffffff" height="58" colspan="5">[説明]<FONT color="$fcolor">$setumei</font>$bikou_set</TD>
	</TR>
	<TR>
	<TD bgcolor="$color_adm_r" colspan="7"><IMG src="$dir_i/space.gif" width="1" height="1" border="0"></TD>
	</TR>

EOF
}

print <<"EOF";
<tr><td bgcolor="#ffffff" colspan=7>
<input type="hidden" name="class" value="$in{'class'}">
<input type="hidden" name="FF" value="$in{'FF'}">
<input type="hidden" name="keyword" value="$in{'keyword'}">
<input type=submit value=削除></td></tr>
</table></td></tr></table>
</form>
EOF

$buf ="class=".$in{'class'};

if($data_su > $page){
$i =1;
$j =0;
	while ($j < $data_su){
		if($j ne $ff_no ){
			$jump_set .="<FONT color='#0000ff' size=-1>[</font><a href=\"$script?mode=adm3&pass=$adm_pass&$buf&FF=$j&price_sort=$in{'price_sort'}\"><font color='#0000ff' size=-1>$i<font></a><FONT color='#0000ff' size=-1>]</font>";
		}else{
			$jump_set .="<FONT color='#0000ff' size=-1>[<b>$i</b>]</font>";
		}
		$i ++;
		$j = $j + $page_dell; 
	}
}

        $nextlink = "";
		if ($next_num ne '') {
			$nextlink = "<a href=\"$script?mode=adm3&pass=$adm_pass&$buf&FF=$next_num\">次の$over_no件</a>";
		}
		
		$backlink = "";
		$back_num = $ff_no -$page_dell;
		if($back_num >=0) {
			$backlink = "<a href=\"$script?mode=adm3&pass=$adm_pass&$buf&FF=$back_num\">前の$page件</a>\　\　";
		}
	   	print "<center><table width=$o_width><tr><td align='center'>$backlink$nextlink\　\　 $jump_set</td></tr></table></center>\n";

print <<"EOF";

<hr noshade size=2 width=$t_width>$foot
</body></html>
EOF

}
# Cookieに値を書き込むためのSet-Cookie:ヘッダを生成する
#
sub setCookie{
    local($tmp, $val);
    $val = $_[1];
    $val =~ s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;
    $tmp = "Set-Cookie: ";
    $tmp .= "$_[0]=$val; ";
    $tmp .= "expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
    return($tmp);
}
sub setCookie_0{
    local($tmp, $val);
    $val = $_[1];
    $val =~ s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;
    $tmp = "Set-Cookie: ";
    $tmp .= "$_[0]=$val; ";
    $tmp .= ";\n";
    return($tmp);
}
#
# Cookieの値を読み出す
#
sub getCookie {
    local($xx, $name, $value);
    for $xx (split(/; */, $ENV{'HTTP_COOKIE'})) {
        ($name, $value) = split(/=/, $xx);
        $value =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("C", hex($1))/eg;
        $COOKIE{$name} = $value;
    }
}

sub html_header{
	print "Content-type: text/html\n\n";
	print "<html><head><title>$main_title</title>\n";
	print "<META content=\"text/html; charset=Shift_JIS\" http-equiv=Content-Type>\n";
	print "<META content=text/css http-equiv=Content-Style-Type>\n";

	print "$style";
	
	print "</head>$body$header\n";

}

#=================ロック処理=================================== 
sub lock_log{
	local($retry) = 5;
	while (!symlink(".", $loglock)) {
		if (--$retry <= 0) { &error("e_shop is lock."); }
		sleep(1);
	}
}

#===============================================================
sub error {
# ファイルロック解除
if (-e $loglock) { unlink($loglock); }

&html_header();
	
print <<"EOF";
<CENTER>
<TABLE cellpadding="3" width="$o_width">
	<TBODY>
	<TR>
	<TD align="right" width="$o_width"><A href="$save_data&order="">▲商品画面</A></TD>
	</TR>
	</TBODY>
</TABLE>
</CENTER>
EOF

	print "<br><center>$_[0]</center>\n";
	print "<center>$_[1]</center>\n";

	print "<br><hr noshade size=1 width=$o_width><p>$foot</body></html>\n";
	exit;
}