#!/usr/bin/perl # 簡易データベース RightSEARCH2 v2.23 (SJIS) 検索用 # # Original Script by www.rescue.ne.jp # Modified by RIGHT http://herz.pobox.ne.jp/cyder/doc/right_top.htm # [History] # v2.0 10/JUN/1999 編集モードを追加 # v2.1 15/JUN/1999 最大データ数の設定を追加 # v2.10 28/JUL/1999 スクリプト名を変更 #--- これ以降のバージョンでは、データファイルの設置場所が変わるため、データの移動の際に注意が必要です --- # v2.20 16/DEC/1999 ファイルロック機能を付加 # v2.21 21/DEC/1999 削除・編集モードへのパスワード流用処理を追加 # v2.22 28/JAN/2000 編集作業時の表示方法を変更 # v2.23 22/APR/2000 検索時、検索ヒット数を表示 #--- 初期設定 ----------------------------------------------------------------------------------- $jcodepath = '../jcode.pl'; # 日本語コード処理ライブラリ $script = './search2.cgi'; # このスクリプト $indexurl = '../tenpo.html'; # index.htmlの設置場所 $tmpdir = './tmp'; # データファイルを入れるディレクトリ(相対パスか絶対パス) $data_file = '.httenpo.csv'; # データファイル名 $bgcolor = '#ffffff'; # ページ全体の背景色 $text_color = '#000000'; # ページ内の文字色 $link_color = '#0000ff'; # ページ内のリンク色 $title = '販売店舗案内'; # タイトル $page = 150; # 1ページの表示数 $hit_use = 1; # 検索結果の総数を表示 (1:する、0:しない) # (データ数が多い場合、初回の検索処理がやや遅くなります) #------------------------------------------------------------------------------------------------ #■入力 require "$jcodepath"; $| = 1; if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } if ($buffer eq "") { &error('エラー','使い方が間違っています.'); } @pairs = split(/&/,$buffer); foreach $pair (@pairs) { ($name,$value) = split(/=/, $pair); $name2 = $name; $value2 = $value; $FORM2{$name} = $value; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; &jcode'convert(*value,'euc'); $value =~ s//>/g; $value =~ s/\n//g; $value =~ s/\r//g; $value =~ s/\t//g; $value =~ s/\,//g; #フォーム変数へ $FORM{$name} = $value; } #■検索処理 $file = "$tmpdir\/$data_file"; if (!open(IN,"$file")) { &error('データベース読取エラー','復旧をお待ちください.'); } @BASE = ; #ソート練習 #@BASE = sort{ $a cmp $b } @BASE; @BASE = reverse(@BASE); close(IN); if ($FORM{'FF'} eq '') { $FF = 0; $all = 0; } else { $FF = $FORM{'FF'}; $all = $FORM{'ALL'}; } $TO = $FF + $page - 1; if ($TO > $#BASE) { $TO = $#BASE; } $hit = 0; $next_num = ''; foreach $num ($FF .. $#BASE) { $data = $data2 = $BASE[$num]; &jcode'convert(*data,'euc'); ($sharp,$d,$DATE,$NAME,$YOMI,$PREF,$ADRE,$TELN,$TIME,$ACS1,$ACS2,$MAP,$HOME,$BUNN,$STYL,$ATH1,$ATH2) = split(/\,/,$data); if ($sharp =~ /^#/) { next; } # 地域別検索 # if ($FORM{'PREF'} ne 'all') { unless ($PREF eq $FORM{'PREF'}) { next; } } # 都道府県(一致) if ($FORM{'PREF'} ne 'all') { unless ($PREF eq $FORM{'PREF'}) { next; } } # 店舗名(マッチ) if ($FORM{'NAME'} ne '') { unless ($NAME =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$FORM{'NAME'}/i) { next; } } # 検索終了処理 if ($hit == $page) { if ($next_num eq '') { $next_num = $num; } if ($FF || (!$hit_use)) { last; } } else { push(@NEW,$data2); $hit++; } if ($hit_use && (!$FF)) { $all++; } } $body = ""; ####トップ部分は下の""から下の行を変更(ソースをコピペでOK) print "Content-type: text/html\n\n"; print <<'EOF'; (ゲイビデオ、DVD)KO GROUP VIDEO WEBSITE〜KOグループレーベル総合サイト

取扱店舗

KO COMPANY VIDEO LAVEL

KOカンパニーレーベルでは、かわいい・かっこいい系・ギャル男・お兄系から野郎系・ガッチリ系・カチムチ系・ガテン系・熊系までのあらゆるタイプと、3P・4P・乱交、レイプ、監禁・拘束などのハードなSEXから、学校、職場、野外、恋愛ストーリーなどあらゆるシチュエーションを網羅した作品を巧みなカメラアングルで制作しております。現在10レーベルを発売中。お気に入りのビデオがきっと、いや、必ず見つかります。

アウトレットビデオとは

ゲイビデオではあまり聞き慣れない言葉、アウトレットビデオ。KOカンパニーでは廃盤になった作品をアウトレットとして蘇らせ、激安価格で販売いたしております。なんと、正規価格の70%〜80%OFF!ただ、廃盤になっただけで、中古ではありません。封も切られていない正真正銘の新品商品です。

ピックアップ店舗 地域検索一覧

取扱店舗

KO-SHOP大阪店

大阪府大阪市北区中津1-2-21
中津明大ビルB1
06-6372-7099

KO-SHOP仙台店

仙台市青葉区春日町1-15
第3白鳥ビル2階5号
022-267-8840

KO-SHOP金沢店

石川県金沢市広坂1-1-48
ウナシンビル5F
076-223-3410

取扱ネットショップ

KO-SHOP

お客様第一のKO-SHOP、お客様にとってオンリーワンであるKO-SHOP、迅速・丁寧・安心なKO-SHOP。ご利用くださるお客様すべてに心からの感謝を伝えられるサイトを目指しています。→KO-SHOP

B-SHOP

豊富な品揃え・B-SHOP限定のプレゼントでみなさまをお出迎え☆お探しの商品がきっとみつかるはず☆新作も充実☆楽しくショッピングできるサイトを心がけています。→B-SHOP

G-EXPRESS

カッコイイ系・ガッチリ系のビデオならG-EXPRESSにおまかせください。5,000円以上お買い上げの方は、送料無料&プレゼント付きでサービス満点!→G-EXPRESS

第一倉庫

アウトレット商品から、スペシャル・プライスの限定商品まで、蔵出し価格で販売中!!随時、商品が入荷しておりますので、お見逃し無く!→第一倉庫

下記店舗でもKOカンパニーの商品を取り扱っております。ご参照下さい。

EOF #ヘッド部分の変更EOFの上の行まで if (!@NEW) { print "●ご指定の条件では見当たりませんでした.

\n"; } else { if ($hit_use) { print " $all 件ありました。\n"; } print "[戻る]\n"; ($sharp,$d,$DATE,$NAME,$YOMI,$PREF,$ADRE,$TELN,$TIME,$ACS1,$ACS2,$MAP,$HOME,$BUNN,$STYL,$ATH1,$ATH2) = split(/\,/,@NEW[0]); print "

$PREF

\n"; print "\n"; print " \n"; $co = 0; foreach $data (@NEW) { ($sharp,$d,$DATE,$NAME,$YOMI,$PREF,$ADRE,$TELN,$TIME,$ACS1,$ACS2,$MAP,$HOME,$BUNN,$STYL,$ATH1,$ATH2) = split(/\,/,$data); if ($sharp =~ /^#/) { next; } if($co == 0){ if($STYL == 1){ $tbbg = 'color2'; }else{ $tbbg = 'color1'; } $co = 1; }else{ if($STYL == 1){ $tbbg = 'color2'; }else{ $tbbg = 'color0'; } $co = 0; } print " \n"; $hd = "($d)"; if($STYL == 1){ $hd = ""; } if($HOME =~ /^http:/ ){ print "\n"; if($FORM{'debug'} eq "1"){ print "
$sharp,$d,$DATE,$NAME,$YOMI,$PREF,$ADRE,$TELN,$TIME,$ACS1,$ACS2,$MAP,$HOME,$BUNN,$STYL,$ATH1,$ATH2
"; } print "\n"; print "\n"; } print "

$NAME $hd

\n"; #リンクが各HP }else{ if($MAP eq ""){ print "

$NAME $hd

\n"; #リンクなし }else{ print "

$NAME $hd

\n"; #リンクがMAP } } $ACS1=~ s/([^=^\"]|^)((http|ftp|https)\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\,\|]+)/$1$2<\/a>/g; $ACS2=~ s/([^=^\"]|^)((http|ftp|https)\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\,\|]+)/$1$2<\/a>/g; if($PREF eq "その他"){}else{ print "$PREF$ADRE
\n"}; print "$TELN
\n"; print "$TIME
$ACS1
$ACS2
$HOME
\n"; if ($hit_use) { $first_hit = $FORM{'HIT'} + 1; $end_hit = $first_hit + $hit -1; # print "

[ $all ] 件から $first_hit - $end_hit 件を表\示しています。

\n"; } if ($next_num ne '') { while (($key,$val) = each %FORM2) { if ($key ne 'FF' && $key ne 'ALL' && $key ne 'HIT') { $buf = "$buf&$key=$val"; } } # print "

次の$page件

\n"; } } print "[戻る]

\n"; print "

\n"; print "\n\n"; exit; sub error { print "Content-type: text/html\n\n"; print "$title\n"; print "$body\n"; print "

$_[0]

\n"; print "

$_[1]

\n"; print "ブラウザの[戻る]ボタンを押して前の画面に移動してください.

\n"; print "
2005 © KO COMPANY
\n\n"; exit; }