#!/usr/local/bin/perl # Written By Takeshi Fujita # Copyright(c)2001-2002 Trick Plus Planning All right reserved require "../../lib/jcode.pl"; require "../../lib/cgi-lib.pl"; require "../../lib/cgi-page.cgi"; &ReadParse; &getDate; print "Content-type: text/html\n\n"; #==========[ データ取得 ]================================================= $num = $in{'num'}; $kazu = $in{'kazu'}; $submit = $in{'submit'}; &jcode'convert(*id,'euc'); &jcode'convert(*submit,'euc'); #==========[ HTML出力 ]================================================= print < AZUMAの椅子張替えで同型状やリピーターのWEB受注実績検索結果INDEX表示 $STYLE $MIDASHI1 〜WEB受注実績の検索結果INDEX〜 $MIDASHI2 $MENU1 $MENU2 $FLOW1 　AZUMAの椅子張替え（トップページ） ソファ、ダイニングチェアの張り替えといえば東加工所の椅子張替え WEB受注実績 椅子張替えのWEB受注実績へ 同型状検索やリピーターのWEB受注実績の検索結果INDEXを表示中　 $FLOW2 EOM #---------------------------------------------------------- if($kazu eq ""){ if($num eq ""){$mes = "詳細を表示したい件名を選択して下さい。";&error;} $list = "../data/main.cgi"; open(DAT,"$list"); while (){ chop; @retu = split('\n'); foreach $retu (@retu){ @cell = split('\t', $retu); if( $cell[20] == 1 || $pass eq "tpp"){ if($cell[1] eq "$num" || $cell[18] eq "$num"){ $data_0 = "$cell[0]"; #ID $data_1 = "$cell[1]"; #A-NO $data_2 = "$cell[2]"; #会社名 $data_3 = "$cell[3]"; #氏名 $data_4 = "$cell[4]"; #イニシャル $data_5 = "$cell[5]"; #住所（県） $data_6 = "$cell[6]"; #住所（区・市・郡） $data_7 = "$cell[7]"; #感想の有・無 $data_8 = "$cell[8]"; #きっかけ $data_9 = "$cell[9]"; #問合方法 $data_10 = "$cell[10]"; #引取方法 $data_11 = "$cell[11]"; #作業内容 $data_12 = "$cell[12]"; #納品方法 $data_13 = "$cell[13]"; #納品先 $data_14 = "$cell[14]"; #引取日 $data_15 = "$cell[15]"; #納品日 $data_16 = "$cell[16]"; #タイトル $data_17 = "$cell[17]"; #紹介者ページ $data_18 = "$cell[18]"; #リピーター $data_19 = "$cell[19]"; #進行状況 $data_20 = "$cell[20]"; #表示・非表示 #==========[ 進行状況 ]========================== $more_view = " "; if($data_19 == 200001010002){ $state = "作業中"; if($data_15 =~ /\./){ ($nen,$gatu,$hi) = split('\.', $data_15); if($nen < $year){$state = "詳細ページ準備中";} elsif($nen == $year){ if($gatu < $mon){$state = "詳細ページ準備中";} elsif($gatu == $mon){ if($hi < $day){$state = "詳細ページ準備中";} } } } } elsif($data_19 == 200001010001){$state = "詳細ページ準備中"} elsif($data_19 == 200001010000 || $data_19 == 100000000000){ $more_view = "■詳細ページを見る！"; $state = "詳細ページUP済" } #==========[ きっかけ ]========================== $file = "../data/data_9.cgi"; $t=0; open(LOG,"$file"); while (){ chop; @line = split('\n'); foreach $line (@line){ @profile = split('\t', $line); if($profile[0] eq $data_8){ $fir_value = $profile[1]; } } } close(LOG); #==========[ 問合方法 ]========================== $file = "../data/data_1.cgi"; $t=0; open(LOG,"$file"); while (){ chop; @line = split('\n'); foreach $line (@line){ @profile = split('\t', $line); if($profile[0] eq $data_9){ $from_value = $profile[1]; } } } close(LOG); #==========[ 引取方法 ]========================== $file = "../data/data_7.cgi"; $t=0; open(LOG,"$file"); while (){ chop; @line = split('\n'); foreach $line (@line){ @profile = split('\t', $line); if($profile[0] eq $data_10){ $get_value = $profile[1]; } } } close(LOG); #==========[ 作業内容 ]========================== $file = "../data/data_10.cgi"; $t=0; open(LOG,"$file"); while (){ chop; @line = split('\n'); foreach $line (@line){ @profile = split('\t', $line); if($profile[0] eq $data_11){ $do_value = $profile[1]; } } } close(LOG); #==========[ 納品方法 ]========================== $file = "../data/data_3.cgi"; $t=0; open(LOG,"$file"); while (){ chop; @line = split('\n'); foreach $line (@line){ @profile = split('\t', $line); if($profile[0] eq $data_12){ $put_value = $profile[1]; } } } close(LOG); #==========[ 納品先 ]========================== $file = "../data/data_4.cgi"; $t=0; open(LOG,"$file"); while (){ chop; @line = split('\n'); foreach $line (@line){ @profile = split('\t', $line); if($profile[0] eq $data_13){ $who_value = $profile[1]; } } } close(LOG); #---------------------------------------------------------------------- print <
■$data_16 $more_view
■$data_1 $data_4 $data_5$data_6 引き取り日：$data_14 進行状況
納　品　日：$data_15 $state
$fir_value $from_value $get_value $do_value $put_value
EOM #---------------同型・紹介などの表示（2004.8.10 荒川）----------------- $more_view = ""; $sub_file = "../data/sub.cgi"; open(SUB,"$sub_file"); while (){ chop; @gyou = split('\n'); foreach $gyou (@gyou){ @masu = split('\t', $gyou); if($masu[1] eq "$data_1"){ $sub_0 = "$masu[0]"; #ID $sub_1 = "$masu[1]"; #A-NO $sub_2 = "$masu[2]"; #詳細情報の有・無 $sub_3 = "$masu[3]"; #作業工程の有・無 $sub_4 = "$masu[4]"; #メーカー $sub_5 = "$masu[5]"; #イス種類１ $sub_6 = "$masu[6]"; #イス種類２ $sub_7 = "$masu[7]"; #イス種類３ $sub_8 = "$masu[8]"; #本数 $sub_9 = "$masu[9]"; #同型 $sub_10 = "$masu[10]"; #張り地１ $sub_11 = "$masu[11]"; #張り地２ $sub_12 = "$masu[12]"; #張り地情報 $sub_13 = "$masu[13]"; #柄 $sub_14 = "$masu[14]"; #フェース $sub_15 = "$masu[15]"; #加工説明 $sub_16 = "$masu[16]"; #加工費 $sub_17 = "$masu[17]"; #その他の費用 $sub_18 = "$masu[18]"; #作業内容詳細 $sub_19 = "$masu[19]"; #加工前写真 $sub_20 = "$masu[20]"; #加工後写真 #==========[ メーカー ]========================== $make_value = $make_values{$sub_4}; #==========[ イス種類１ ]========================= $cat_1_value = $cat_1_values{$sub_5}; #==========[ イス種類２ ]========================= $cat_2_value = $cat_2_values{$sub_6}; #==========[ イス種類３ ]========================= $cat_3_value = $cat_3_values{$sub_7}; #==========[ 張り地１ ]========================== $fav_1_value = $fav_1_values{$sub_10}; #==========[ 張り地２ ]========================== $fav_2_value = $fav_2_values{$sub_11}; #==========[ 張り地情報 ]========================= $fav_3_value = $fav_3_values{$sub_12}; #==========[ 柄 ]=============================== $gara_value = $gara_values{$sub_13}; #==========[ フェース ]========================== $face_value = $face_values{$sub_14}; #==========[ 画像 ]============================= if($sub_19 ne ""){$img_1 = "\"$do_value前／$make_value　$cat_1_value（$cat_2_value$cat_3_value）の$do_value加工\"";} else{$img_1 = "";} if($sub_20 ne ""){$img_2 = "\"$do_value後／$make_value　$cat_1_value（$cat_2_value$cat_3_value）の$do_value加工\"";} else{$img_2 = "";} #---------------------------------------------------------------- #@titles = ("メーカー名","イス等の種類","分類1／分類2","数　量","張り地1／張り地2","張り地情報","柄","フェース","$sub_15","その他の費用","作業内容詳細"); @titles = ("メーカー名","イス等の種類／分類1／分類2","$sub_15"); $t_suu = @titles; #---------------------------------------------------------------------- print <
加工前 加工後
$img_1 $img_2
EOM #---------------------------------------------------------------------- if($data_18 ne ""){ #---------------------------------------------------------------------- print < EOM #---------------------------------------------------------------------- }else{ #---------------------------------------------------------------------- print < EOM #---------------------------------------------------------------------- } #---------------------------------------------------------------------- print < EOM #---------------------------------------------------------------------- if($data_17 ne ""){ #---------------------------------------------------------------------- print < EOM #---------------------------------------------------------------------- }else{ #---------------------------------------------------------------------- print < EOM #---------------------------------------------------------------------- } #---------------------------------------------------------------------- print < EOM #---------------------------------------------------------------------- if($sub_9 ne ""){ #---------------------------------------------------------------------- print < EOM #---------------------------------------------------------------------- }else{ #---------------------------------------------------------------------- print < EOM #---------------------------------------------------------------------- } #---------------------------------------------------------------------- print <
EOM #---------------------------------------------------------------------- #@bodys = ("$make_value","$cat_1_value","$cat_2_value／$cat_3_value","$sub_8","$fav_1_value／$fav_2_value","$fav_3_value","$gara_value","$face_value","$sub_16","$sub_17","$sub_18"); @bodys = ("$make_value","$cat_1_value／$cat_2_value$cat_3_value","$sub_16"); $co = 0; for($t=0;$t<$t_suu;$t++){ if($bodys[$t] ne ""){ if($co % 2 == 0){$bg = " bgcolor=\"#eeeeee\"";} else{$bg = "";} #---------------------------------------------------------------------- print < $titles[$t] $bodys[$t] EOM #---------------------------------------------------------------------- $co++; } } @bodys = (); #---------------------------------------------------------------------- print <
EOM #---------------------------------------------------------------------- $more_view = " "; } } } close(SUB); } } } } close(DAT); if($data_0 eq ""){$mes = "該当する詳細情報がありませんでした。";&error;} #==================================================================== }elsif($num eq ""){ if($kazu eq ""){$mes = "詳細を表示したい件名を選択して下さい。";&error;} $list = "../data/sub.cgi"; open(SUB,"$list"); while (){ chop; @retu = split('\n'); foreach $retu (@retu){ @cell = split('\t', $retu); if($cell[9] eq "$kazu"){ $sub_1 = "$cell[1]"; #A-NO $sub_19 = "$cell[19]"; #加工前写真 $sub_20 = "$cell[20]"; #加工後写真 #==========[ 画像 ]============================= if($sub_19 ne ""){$img_1 = "\"$do_value前の写真\"";} else{$img_1 = "";} if($sub_20 ne ""){$img_2 = "\"$do_value後の写真\"";} else{$img_2 = "";} #============================================ $data = "../data/main.cgi"; open(LOG,"$data"); while (){ chop; @gyou = split('\n'); foreach $gyou (@gyou){ @koma = split('\t', $gyou); if( $koma[20] == 1 || $pass eq "tpp"){ if($koma[1] eq "$sub_1"){ $data_0 = "$koma[0]"; #ID $data_1 = "$koma[1]"; #A-NO $data_2 = "$koma[2]"; #会社名 $data_3 = "$koma[3]"; #氏名 $data_4 = "$koma[4]"; #イニシャル $data_5 = "$koma[5]"; #住所（県） $data_6 = "$koma[6]"; #住所（区・市・郡） $data_7 = "$koma[7]"; #感想の有・無 $data_8 = "$koma[8]"; #きっかけ $data_9 = "$koma[9]"; #問合方法 $data_10 = "$koma[10]"; #引取方法 $data_11 = "$koma[11]"; #作業内容 $data_12 = "$koma[12]"; #納品方法 $data_13 = "$koma[13]"; #納品先 $data_14 = "$koma[14]"; #引取日 $data_15 = "$koma[15]"; #納品日 $data_16 = "$koma[16]"; #タイトル $data_17 = "$koma[17]"; #紹介者ページ $data_18 = "$koma[18]"; #リピーター $data_19 = "$koma[19]"; #進行状況 $data_20 = "$koma[20]"; #表示・非表示 #==========[ 進行状況 ]========================== $more_view = " "; if($data_19 == 200001010002){ $state = "作業中"; if($data_15 =~ /\./){ ($nen,$gatu,$hi) = split('\.', $data_15); if($nen < $year){$state = "詳細ページ準備中";} elsif($nen == $year){ if($gatu < $mon){$state = "詳細ページ準備中";} elsif($gatu == $mon){ if($hi < $day){$state = "詳細ページ準備中";} } } } } elsif($data_19 == 200001010001){$state = "詳細ページ準備中"} elsif($data_19 == 200001010000 || $data_19 == 100000000000){ $more_view = "■詳細ページを見る！"; $state = "詳細ページUP済" } #==========[ きっかけ ]========================== $file = "../data/data_9.cgi"; $t=0; open(LOG,"$file"); while (){ chop; @line = split('\n'); foreach $line (@line){ @profile = split('\t', $line); if($profile[0] eq $data_8){ $fir_value = $profile[1]; } } } close(LOG); #==========[ 問合方法 ]========================== $file = "../data/data_1.cgi"; $t=0; open(LOG,"$file"); while (){ chop; @line = split('\n'); foreach $line (@line){ @profile = split('\t', $line); if($profile[0] eq $data_9){ $from_value = $profile[1]; } } } close(LOG); #==========[ 引取方法 ]========================== $file = "../data/data_7.cgi"; $t=0; open(LOG,"$file"); while (){ chop; @line = split('\n'); foreach $line (@line){ @profile = split('\t', $line); if($profile[0] eq $data_10){ $get_value = $profile[1]; } } } close(LOG); #==========[ 作業内容 ]========================== $file = "../data/data_10.cgi"; $t=0; open(LOG,"$file"); while (){ chop; @line = split('\n'); foreach $line (@line){ @profile = split('\t', $line); if($profile[0] eq $data_11){ $do_value = $profile[1]; } } } close(LOG); #==========[ 納品方法 ]========================== $file = "../data/data_3.cgi"; $t=0; open(LOG,"$file"); while (){ chop; @line = split('\n'); foreach $line (@line){ @profile = split('\t', $line); if($profile[0] eq $data_12){ $put_value = $profile[1]; } } } close(LOG); #==========[ 納品先 ]========================== $file = "../data/data_4.cgi"; $t=0; open(LOG,"$file"); while (){ chop; @line = split('\n'); foreach $line (@line){ @profile = split('\t', $line); if($profile[0] eq $data_13){ $who_value = $profile[1]; } } } close(LOG); #---------------------------------------------------------------------- print <
■$data_16 $more_view
■$data_1 $data_4 $data_5$data_6 引き取り日：$data_14 進行状況
納　品　日：$data_15 $state
$fir_value $from_value $get_value $do_value $put_value
加工前 加工後
$img_1 $img_2
EOM #---------------------------------------------------------------------- $more_view = " "; } } } } close(LOG); } } } close(SUB); if($data_0 eq ""){$mes = "該当する詳細情報がありませんでした。";&error;} } #---------------------------------------------------------------------- print <
 ↑このページのTopへ↑  
トップページ｜最近のWEB受注実績を表示｜「カテゴリー別」検索｜「タイプ別」検索｜「受注経緯別」検索｜「張り地別」検索｜「顧客別」検索
$jserch $FOOT $KAISEKI1 var ID="100032664-026"; $KAISEKI2 EOM #==========[ E R R O R ]================================================== sub error{ #---------------------------------------------------------------------- print < $mes
トップページ｜最近のWEB受注実績を表示｜「カテゴリー別」検索｜「タイプ別」検索｜「受注経緯別」検索｜「張り地別」検索｜「顧客別」検索
$jserch $FOOT $KAISEKI1 var ID="100032664-02"; $KAISEKI2 EOM #---------------------------------------------------------------------- exit; } #==========[ 年月日：時分秒取得 ]=========================================== sub getDate{ #/曜日表示（日英切換）/ ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $year = $year + 1900; $mon++; @e_wday_array = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat'); @j_wday_array = ('日','月','火','水','木','金','土'); $e_date = sprintf("%04d.%01d.%01d(%s)",$year,$mon,$mday,$e_wday_array[$wday]); $j_date = sprintf("%04d年%01d月%01d日（%s）",$year,$mon,$mday,$j_wday_array[$wday]); $e_time = "$hour:$min:$sec"; $j_time = "$hour時$min分$sec秒"; #/桁数統一/ @time = ($sec,$min,$hour,$mday,$mon,$year); foreach (@time){if($_ < 10){$_ = "0$_";}} ($sec,$min,$hour,$day,$mon,$year) = @time; $s_date = "$year.$mon.$day;$hour:$min:$sec"; } #====================================================================