Construction Case施工事例
施工事例カテゴリconstruction category
屋根・外壁・外構リフォーム
#!/usr/bin/perl
## ݒ
# ̃t@C
$self = 'job.cgi';
$self2 = 'whats_new/user/search2.cgi';
# ʐ^ꍇ̉摜
$nophoto = '../photo/printing.gif';
# ev[giꗗ\ʁj
$html1 = '../html/list3.html';
# ev[giڍו\ʁj
$html2 = '../html/details.html';
## Cũ[h
require '../lib/jcode.pl';
require '../lib/stdio.pl';
require '../lib/sub.pl';
require '../lib/setup.pl';
&setup;
&get_date;
## f[^擾inbVɊi[j
%param = ();
@keys = stdio::getFormData(\%param, "", "SJIS", ";", "");
## JeSڕ\
@cate_viewname = &cate_viewname();
#************************************************************************************************** [h (Ȃ)
if(!$param{'mode'}){
## f[^t@CI[v
@dbdatafile = &fileopen($data_file);
## ̏
stdio::trString(\$param{'ps1'}, "", 1, 1);
$param{'ps1'} =~ s/\D//g;
stdio::trString(\$param{'ps2'}, "", 1, 1);
$param{'ps2'} =~ s/\D//g;
stdio::trString(\$param{'madori'}, "", 1, 1);
##
foreach(@dbdatafile){
if($_ eq $dbdatafile[0]){ next; }
chomp;
@dbdata1 = split(/<>/);
# fڋ
if($dbdata1[19] ne 1){ next; }
# JeSP
if($param{'category1'}){
@cate1 = split(/;/, $param{'category1'});
$cate1flag = '';
foreach(@cate1){
if($dbdata1[1] eq $_){ $cate1flag = 1; }
}
if(!$cate1flag){ next; }
}
# V
if($param{'new'}){
if($dbdata1[17] ne '1'){ next; }
}
# [h
if($param{'word'}){
$word = $_;
stdio::trString(\$word, "", 1); # ׂ̈ɏɒu
stdio::trString(\$param{'word'}, "", 1); # ׂ̈ɏɒu
if(!stdio::searchString($word, $param{'word'})){ next; }
}
if($dbdata1[22] eq ""){
$dbdata1[22] = 0;
}else{
$dbdata1[22] = $dbdata1[22];
}
#
$sorthash{$dbdata1[22],$dbdata1[0]} = $_;
}
## \[g
foreach $key (sort {$a cmp $b} (keys %sorthash)) {
push(@searchdata,$sorthash{$key});
}
## e[uo
if($searchdata[0] ne ''){
$p = $param{'p'};
$p2 = $param{'p'} + 1;
if($p > 0){
$ppg = "?p=$p";
}else{
$ppg = "";
}
foreach(1 .. 100){
if(!$searchdata[$p]){ next; }
@dbdata2 = split(/<>/, $searchdata[$p]);
$dbdata2[16] =~ s/<//g;
$dbdata2[45] =~ s/<//g;
$mojisu = length($dbdata2[21]);
$mojisu2 = length($dbdata2[16]);
$mojisu2 = length($dbdata2[45]);
$mojisu_max = $title_seigen;
if($mojisu > $mojisu_max){
$seigen2 = substr($dbdata2[21], 0,$title_seigen).'...';
}else{
$seigen2 = $dbdata2[21];
}
if($mojisu2 > $kiji_seigen){
$seigen3 = substr($dbdata2[16], 0,$kiji_seigen).'...@@@ǂ';
}else{
$seigen3 = $dbdata2[16];
}
$td_color = $td_color eq $td_color1? $td_color2: $td_color1;
# ʐ^PCQCR
$photo1j = $photo_dir.$dbdata2[0]."_1.jpg";
$photo2j = $photo_dir.$dbdata2[0]."_2.jpg";
$photo1j2 = $photo_dir2.$dbdata2[0]."_1.jpg";
$photo2j2 = $photo_dir2.$dbdata2[0]."_2.jpg";
if(-e $photo1j2){ $phototag1 = qq|

$dbdata2[21]
$dbdata2[16]
$phototag1

$phototag2
内装リフォーム
#!/usr/bin/perl
## ݒ
# ̃t@C
$self = 'job.cgi';
$self2 = 'whats_new/user/search2.cgi';
# ʐ^ꍇ̉摜
$nophoto = '../photo/printing.gif';
# ev[giꗗ\ʁj
$html1 = '../html/list3.html';
# ev[giڍו\ʁj
$html2 = '../html/details.html';
## Cũ[h
require '../lib/jcode.pl';
require '../lib/stdio.pl';
require '../lib/sub.pl';
require '../lib/setup.pl';
&setup;
&get_date;
## f[^擾inbVɊi[j
%param = ();
@keys = stdio::getFormData(\%param, "", "SJIS", ";", "");
## JeSڕ\
@cate_viewname = &cate_viewname();
#************************************************************************************************** [h (Ȃ)
if(!$param{'mode'}){
## f[^t@CI[v
@dbdatafile = &fileopen($data_file);
## ̏
stdio::trString(\$param{'ps1'}, "", 1, 1);
$param{'ps1'} =~ s/\D//g;
stdio::trString(\$param{'ps2'}, "", 1, 1);
$param{'ps2'} =~ s/\D//g;
stdio::trString(\$param{'madori'}, "", 1, 1);
##
foreach(@dbdatafile){
if($_ eq $dbdatafile[0]){ next; }
chomp;
@dbdata1 = split(/<>/);
# fڋ
if($dbdata1[19] ne 1){ next; }
# JeSP
if($param{'category1'}){
@cate1 = split(/;/, $param{'category1'});
$cate1flag = '';
foreach(@cate1){
if($dbdata1[1] eq $_){ $cate1flag = 1; }
}
if(!$cate1flag){ next; }
}
# V
if($param{'new'}){
if($dbdata1[17] ne '1'){ next; }
}
# [h
if($param{'word'}){
$word = $_;
stdio::trString(\$word, "", 1); # ׂ̈ɏɒu
stdio::trString(\$param{'word'}, "", 1); # ׂ̈ɏɒu
if(!stdio::searchString($word, $param{'word'})){ next; }
}
if($dbdata1[22] eq ""){
$dbdata1[22] = 0;
}else{
$dbdata1[22] = $dbdata1[22];
}
#
$sorthash{$dbdata1[22],$dbdata1[0]} = $_;
}
## \[g
foreach $key (sort {$a cmp $b} (keys %sorthash)) {
push(@searchdata,$sorthash{$key});
}
## e[uo
if($searchdata[0] ne ''){
$p = $param{'p'};
$p2 = $param{'p'} + 1;
if($p > 0){
$ppg = "?p=$p";
}else{
$ppg = "";
}
foreach(1 .. 100){
if(!$searchdata[$p]){ next; }
@dbdata2 = split(/<>/, $searchdata[$p]);
$dbdata2[16] =~ s/<//g;
$dbdata2[45] =~ s/<//g;
$mojisu = length($dbdata2[21]);
$mojisu2 = length($dbdata2[16]);
$mojisu2 = length($dbdata2[45]);
$mojisu_max = $title_seigen;
if($mojisu > $mojisu_max){
$seigen2 = substr($dbdata2[21], 0,$title_seigen).'...';
}else{
$seigen2 = $dbdata2[21];
}
if($mojisu2 > $kiji_seigen){
$seigen3 = substr($dbdata2[16], 0,$kiji_seigen).'...@@@ǂ';
}else{
$seigen3 = $dbdata2[16];
}
$td_color = $td_color eq $td_color1? $td_color2: $td_color1;
# ʐ^PCQCR
$photo1j = $photo_dir.$dbdata2[0]."_1.jpg";
$photo2j = $photo_dir.$dbdata2[0]."_2.jpg";
$photo1j2 = $photo_dir2.$dbdata2[0]."_1.jpg";
$photo2j2 = $photo_dir2.$dbdata2[0]."_2.jpg";
if(-e $photo1j2){ $phototag1 = qq|

$dbdata2[21]
$dbdata2[16]
$phototag1

$phototag2
水廻りリフォーム
#!/usr/bin/perl
## ݒ
# ̃t@C
$self = 'job.cgi';
$self2 = 'whats_new/user/search2.cgi';
# ʐ^ꍇ̉摜
$nophoto = '../photo/printing.gif';
# ev[giꗗ\ʁj
$html1 = '../html/list3.html';
# ev[giڍו\ʁj
$html2 = '../html/details.html';
## Cũ[h
require '../lib/jcode.pl';
require '../lib/stdio.pl';
require '../lib/sub.pl';
require '../lib/setup.pl';
&setup;
&get_date;
## f[^擾inbVɊi[j
%param = ();
@keys = stdio::getFormData(\%param, "", "SJIS", ";", "");
## JeSڕ\
@cate_viewname = &cate_viewname();
#************************************************************************************************** [h (Ȃ)
if(!$param{'mode'}){
## f[^t@CI[v
@dbdatafile = &fileopen($data_file);
## ̏
stdio::trString(\$param{'ps1'}, "", 1, 1);
$param{'ps1'} =~ s/\D//g;
stdio::trString(\$param{'ps2'}, "", 1, 1);
$param{'ps2'} =~ s/\D//g;
stdio::trString(\$param{'madori'}, "", 1, 1);
##
foreach(@dbdatafile){
if($_ eq $dbdatafile[0]){ next; }
chomp;
@dbdata1 = split(/<>/);
# fڋ
if($dbdata1[19] ne 1){ next; }
# JeSP
if($param{'category1'}){
@cate1 = split(/;/, $param{'category1'});
$cate1flag = '';
foreach(@cate1){
if($dbdata1[1] eq $_){ $cate1flag = 1; }
}
if(!$cate1flag){ next; }
}
# V
if($param{'new'}){
if($dbdata1[17] ne '1'){ next; }
}
# [h
if($param{'word'}){
$word = $_;
stdio::trString(\$word, "", 1); # ׂ̈ɏɒu
stdio::trString(\$param{'word'}, "", 1); # ׂ̈ɏɒu
if(!stdio::searchString($word, $param{'word'})){ next; }
}
if($dbdata1[22] eq ""){
$dbdata1[22] = 0;
}else{
$dbdata1[22] = $dbdata1[22];
}
#
$sorthash{$dbdata1[22],$dbdata1[0]} = $_;
}
## \[g
foreach $key (sort {$a cmp $b} (keys %sorthash)) {
push(@searchdata,$sorthash{$key});
}
## e[uo
if($searchdata[0] ne ''){
$p = $param{'p'};
$p2 = $param{'p'} + 1;
if($p > 0){
$ppg = "?p=$p";
}else{
$ppg = "";
}
foreach(1 .. 100){
if(!$searchdata[$p]){ next; }
@dbdata2 = split(/<>/, $searchdata[$p]);
$dbdata2[16] =~ s/<//g;
$dbdata2[45] =~ s/<//g;
$mojisu = length($dbdata2[21]);
$mojisu2 = length($dbdata2[16]);
$mojisu2 = length($dbdata2[45]);
$mojisu_max = $title_seigen;
if($mojisu > $mojisu_max){
$seigen2 = substr($dbdata2[21], 0,$title_seigen).'...';
}else{
$seigen2 = $dbdata2[21];
}
if($mojisu2 > $kiji_seigen){
$seigen3 = substr($dbdata2[16], 0,$kiji_seigen).'...@@@ǂ';
}else{
$seigen3 = $dbdata2[16];
}
$td_color = $td_color eq $td_color1? $td_color2: $td_color1;
# ʐ^PCQCR
$photo1j = $photo_dir.$dbdata2[0]."_1.jpg";
$photo2j = $photo_dir.$dbdata2[0]."_2.jpg";
$photo1j2 = $photo_dir2.$dbdata2[0]."_1.jpg";
$photo2j2 = $photo_dir2.$dbdata2[0]."_2.jpg";
if(-e $photo1j2){ $phototag1 = qq|

$dbdata2[21]
$dbdata2[16]
$phototag1

$phototag2
店舗改修
#!/usr/bin/perl
## ݒ
# ̃t@C
$self = 'job.cgi';
$self2 = 'whats_new/user/search2.cgi';
# ʐ^ꍇ̉摜
$nophoto = '../photo/printing.gif';
# ev[giꗗ\ʁj
$html1 = '../html/list3.html';
# ev[giڍו\ʁj
$html2 = '../html/details.html';
## Cũ[h
require '../lib/jcode.pl';
require '../lib/stdio.pl';
require '../lib/sub.pl';
require '../lib/setup.pl';
&setup;
&get_date;
## f[^擾inbVɊi[j
%param = ();
@keys = stdio::getFormData(\%param, "", "SJIS", ";", "");
## JeSڕ\
@cate_viewname = &cate_viewname();
#************************************************************************************************** [h (Ȃ)
if(!$param{'mode'}){
## f[^t@CI[v
@dbdatafile = &fileopen($data_file);
## ̏
stdio::trString(\$param{'ps1'}, "", 1, 1);
$param{'ps1'} =~ s/\D//g;
stdio::trString(\$param{'ps2'}, "", 1, 1);
$param{'ps2'} =~ s/\D//g;
stdio::trString(\$param{'madori'}, "", 1, 1);
##
foreach(@dbdatafile){
if($_ eq $dbdatafile[0]){ next; }
chomp;
@dbdata1 = split(/<>/);
# fڋ
if($dbdata1[19] ne 1){ next; }
# JeSP
if($param{'category1'}){
@cate1 = split(/;/, $param{'category1'});
$cate1flag = '';
foreach(@cate1){
if($dbdata1[1] eq $_){ $cate1flag = 1; }
}
if(!$cate1flag){ next; }
}
# V
if($param{'new'}){
if($dbdata1[17] ne '1'){ next; }
}
# [h
if($param{'word'}){
$word = $_;
stdio::trString(\$word, "", 1); # ׂ̈ɏɒu
stdio::trString(\$param{'word'}, "", 1); # ׂ̈ɏɒu
if(!stdio::searchString($word, $param{'word'})){ next; }
}
if($dbdata1[22] eq ""){
$dbdata1[22] = 0;
}else{
$dbdata1[22] = $dbdata1[22];
}
#
$sorthash{$dbdata1[22],$dbdata1[0]} = $_;
}
## \[g
foreach $key (sort {$a cmp $b} (keys %sorthash)) {
push(@searchdata,$sorthash{$key});
}
## e[uo
if($searchdata[0] ne ''){
$p = $param{'p'};
$p2 = $param{'p'} + 1;
if($p > 0){
$ppg = "?p=$p";
}else{
$ppg = "";
}
foreach(1 .. 100){
if(!$searchdata[$p]){ next; }
@dbdata2 = split(/<>/, $searchdata[$p]);
$dbdata2[16] =~ s/<//g;
$dbdata2[45] =~ s/<//g;
$mojisu = length($dbdata2[21]);
$mojisu2 = length($dbdata2[16]);
$mojisu2 = length($dbdata2[45]);
$mojisu_max = $title_seigen;
if($mojisu > $mojisu_max){
$seigen2 = substr($dbdata2[21], 0,$title_seigen).'...';
}else{
$seigen2 = $dbdata2[21];
}
if($mojisu2 > $kiji_seigen){
$seigen3 = substr($dbdata2[16], 0,$kiji_seigen).'...@@@ǂ';
}else{
$seigen3 = $dbdata2[16];
}
$td_color = $td_color eq $td_color1? $td_color2: $td_color1;
# ʐ^PCQCR
$photo1j = $photo_dir.$dbdata2[0]."_1.jpg";
$photo2j = $photo_dir.$dbdata2[0]."_2.jpg";
$photo1j2 = $photo_dir2.$dbdata2[0]."_1.jpg";
$photo2j2 = $photo_dir2.$dbdata2[0]."_2.jpg";
if(-e $photo1j2){ $phototag1 = qq|

$dbdata2[21]
$dbdata2[16]
$phototag1

$phototag2