#!/usr/bin/perl use CGI qw(:standard); # ----- 共通 ----- $G_RELATIVE_PATH=''; require $G_RELATIVE_PATH.'includes/common.pl'; # ---------------- print "Content-type: text/html\n\n"; print <<"EOL"; 布目電機株式会社
  • お問合せ
  • ENGLISH
get flash player

このサイトをご覧いただくには最新のFlash Playerが必要です。
上のバナーよりインストールしてください。

世界標準のトランスメーカー 布目電機

EOL # ----- 登録データの一覧 ----- $RIGHT_TAG = ''; if (-f $G_PATH_ROOT_DATA.$FILE_NEW) { local(@new); open(IN, $G_PATH_ROOT_DATA.$FILE_NEW); while () { push(@new, $_); }; close(IN); if (@new>0) { @new = sort bystring_rev @new; $i_=0; for ($_=0; $_<@new; $_++) { @Data = split(/,/, $new[$_]); if (($Data[6] eq $G_CONTENTS_OPEN)&&($Data[3].$Data[4].$Data[5]<=$year.sprintf("%02d",$mon).sprintf( "%02d", $mday))) { if ($i_ eq 0) { fPrint('
新着情報 (更新日:'.$Data[0].'/'.$Data[1].'/'.$Data[2].')
'); fPrint(''); }; $i_++; fPrint(''); fPrint(''); fPrint(''); fPrint(''); } } fPrint('
'.$Data[0].'.'.$Data[1].''.fCrLf2Br(fTab2Br($Data[8])).'
'); } } print <<"EOL";

EOL