#!/usr/local/bin/perl ##リンクもとの？のあとについてある数値を取得 $SELECT = $ENV{'QUERY_STRING'}; ##イメージの格納場所 $IMGDIR = "http://www.esaka.co.jp/hikkosi/img"; ##1枚目のはがきの数１〜８をタイトルに表示 $IDXTTL = "1〜11"; $IDXTTL2= "1ttl"; $LINKIDX= "1"; ##EXITIMGをクリックしたときの移動先 $LINKEXT= "http://www.esaka.co.jp/hikkosi/index.shtml"; ## 脱出するときのイメージ $EXITIMG= "http://www.esaka.co.jp/hikkosi/img/exit.gif"; ## $NXTIMG = "http://www.esaka.co.jp/hikkosi/img/back"; ## NXTIMGのリンク先あとで１か２を代入する $LINKNXT= "http://www.esaka.co.jp/hikkosi/catalog"; ##もしSELECTが1以上24未満でなおかつ$SELECT が12以上だったら ##IDXTTLは９〜２１IDXTTL2はa-c2ttl.gif になり if ($SELECT > '0' && $SELECT < '25') { if ($SELECT > '11') { $IDXTTL = "12\x81`24"; $IDXTTL2= "2ttl"; $LINKIDX = "2";} ##上記以外はここからの処理をする ##TTLIMGにIMGDIRのa-c1ttl.gifをいれる $TTLIMG = "$IMGDIR/a-c$IDXTTL2.gif"; $IDXTTL2= s/ttl//; $NXTIMG = "$NXTIMG"."$LINKIDX".".gif"; $LINKNXT= "$LINKNXT"."$LINKIDX".".htm"; ##大きな画像を表示。そのurlを記述。SELECTは3行目で定義 $PRTIMG = "$IMGDIR/catalog/ari$SELECT-ex.jpg"; &MailHtml; } else {&ArguError;} exit(0); sub MailHtml { print "Content-type: text/html\n\n"; print < ハガキデザイン$IDXTTL
　　　　　


EofHP } sub ArguError { print "Content-type: text/html\n\n"; print < Argument check error!\n
EofERR }