便利なホームページの作成に必要な、これは便利と思われるhtmlソースやタグ、CSSやCGI又.htaccessなどのソースを紹介します。

青色のテキストをクリックコピーして、ページの所定位置に貼り付けてください。
 おみくじ


参考例⇒ 「 おみくじの参考例 」



#! /usr/local/bin/perl

@kuji = ('大吉 (^O^)/C□☆□D\(^_^ )カンパーイ!','中吉 (´∀`∩)↑age↑ ','小吉 ( ´ー`)y―┛~~','吉 ∈(゚◎゚)∋','凶 (((;-д- )=3ハァハァ'); #おみくじの配列
$rand = int(rand 5); #0~4の乱数

# HTML出力
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<title>おみくじ</title>\n";
print "</head>\n";
print "<body bgcolor=\"#FDF5E6\"><center>♪~( ̄ε ̄;)<br><br><b>\n";
print "$kuji[$rand]</b><br>\n";
print "</center></body>\n";
print "</html>\n";

exit;
 更新のたびに背景画像を変える



   表示例⇒「 背景画像


「.cgi」ファイルにコピペ!

右の例では、乱数が
int(rand 5) 壁紙の枚数が0~5枚にしています。
つまり、6枚を用意。


画像ファイルの置き場所を表示。
$img = "./";



#! /usr/local/bin/perl

# 画像保存先(0~の番号で保存されている)
$img = "./";

# 乱数
$rand = int(rand 5);

# 画像URL
$img = "$img$rand.jpg";

# HTML出力
print qq(Content-type: text/html\n\n);
print qq(<html>\n);
print qq(<head>\n);
print qq(<title>見る度に背景画像が変わります</title>\n);
print qq(</head>\n);
print qq(<body background="$img">\n);
print qq(見る度に背景画像が変わります<br>\n);
print qq(</body>\n);
print qq(</html>\n);

exit;
 訪問回数
(クッキー, $ENV{'HTTP_COOKIE'}, Set-Cookie)





#! /usr/local/bin/perl

$COOKIENAME = "count"; # クッキー名
$COOKIELIFE = 30; # クッキー保存日数
$count = 0;

# クッキーデータ取り込み
foreach $pair (split(/;\s*/, $ENV{'HTTP_COOKIE'})) {
my ($name, $cookie) = split(/=/, $pair);
if($name eq $COOKIENAME) {
$count = $cookie;
last;
}
}

# クッキーデータ作成
$count++; # 訪問回数+1
@mon = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
@wdy = qw(Sun Mon Tue Wed Thu Fri Sat);
$life = $COOKIELIFE * 24 * 60 * 60;
($sec, $min, $hour, $day, $mon, $year, $wday) = gmtime(time + $life);
$expires = sprintf("%s, %02d-%s-%04d %02d:%02d:%02d GMT",
$wdy[$wday], $day, $mon[$mon], $year + 1900, $hour, $min, $sec);

# HTML出力
print "Content-type: text/html\n";
print "Set-Cookie: $COOKIENAME=$count; expires=$expires;\n\n"; # クッキー保存
print "<html>\n";
print "<head>\n";
print "<title>訪問回数</title>\n";
print "</head>\n";
print "<body>\n";
print " $count 回目の訪問です<br>\n";
print "</body>\n";
print "</html>\n";

exit;

オーナー所有の姉妹サイトを紹介

便利に使える姉妹サイト  オーナーお勧めのBLOG
お勧め 顔文字とカラーコードのワンクリックコピペ お勧め ウェブ&ネット徒然日記