はじめまして。

バナー広告をランダムで表示できるプログラムを作りたいのです。

しかも、どのバナーにも対応できるように、
こんなのを作ったのですが。

rand.cgiとします。
---------------------------------------------
#!/usr/local/bin/perl
# ランダムバナー出力CGI

#ここに表示したいタグを記入する。
@filename = (

"<a href="xxx.html><img src="xxx01.gif></a>",
"<a href="xxx.html><img src="xxx02.gif></a>",
"<a href="xxx.html><img src="xxx03.gif></a>",

);

srand;	# timeをseedにして初期化
$num = int(rand(@filename));

$|=1;# バッファリングの停止
#undef $/;

print "Content-type:text/html\n\n";

if (open(UZ ,"$filename[$num]" )){

	print STDOUT <UZ>;
	close UZ;

} else {

	print $filename[$num]."\r\n";

}
--------------------------------------------
これなら、普通にrand.cgiを呼び出せば、表示されるのですが、

これを、HTMLに組み込んで
<script src="rand.cgi>で表示させたいのです。

どうしたらよいのでしょうか？

CGIはscriptタグでは呼び出せません。
# scriptはJavaScriptなどクライアント側で実行するスクリプト用のタグです。

SSIを使うか、それが不可能ならページ全体をCGIから出力します。

>バナー広告をランダムで表示できるプログラムを作りたいのです。

画像をランダムに表示すると言う例として以下のものを何点か選ん
みましたがご参考になるものがあれば幸いです。

http://www.kcb-net.ne.jp/ki-net/change/index.shtml
(アクセス毎に表示を変える)

http://www.kcb-net.ne.jp/ki-net/page69.html
(NEXT IMAGE バーをクリック)

http://www.kcb-net.ne.jp/ki-net/page105.html
(画像を自動的に入れ替える)

http://www.kcb-net.ne.jp/ki-net/page118.html
(マウスの動きで3つの画像を入れ替える)

http://www.kcb-net.ne.jp/ki-net/page208.html
(TIME2で画像を入れ替える、IE6.0)

全て表示 (V)→ソース (C) でscriptは見れますのでご意向に添ったものが
あるかどうかを見て見て下さい。

ありがとうございます。
scriptで呼び出せないんですか？

でも<script src="rand.cgi></script>で
やったら、こーなったんですが・・・

下記のように作りなおしました。
<script src="rand.cgi></script>
で呼び出したら、
バリューコマースのバナーだけ表示されるんです。

IFRAMEを使ってないバナーが表示されません。

なんででしょうか＾＾；

rand.cgiとします。
-----------------------------------------------------------------
#!/usr/local/bin/perl
# ランダムバナー出力CGI

#ここに表示したいタグを記入する。
@filename = (

#バリューコマースバナー
"<IFRAME src=\"http://ad.jp.ap.valuecommerce.com/***/***\">
 <script Language=\"javascript\" Src=\"http://ad.jp.ap.valuecommerce.com/***/***\"></script>
 <noscript><a Href=\"http://ck.jp.ap.valuecommerce.com/***/***\" target=\"_blank\" >
 <img Src=\"http://ad.jp.ap.valuecommerce.com/***/***\" Border=\"0\"></a></noscript></IFRAME>",

#A8バナー
"<a href=\"http://px.a8.net/****/***\" target=\"_blank\">
<img border=\"0\" src=\"http://ad.a8.net/***/*****\"></a>",

#その他バナー
"<a href="xxx.html><img src="xxx03.gif></a>",

);

srand; # timeをseedにして初期化
$num = int(rand(@filename));

$|=1;# バッファリングの停止
#undef $/;

print "Content-Type: text/javascript\n";
print "Pragma: no-cache\n";
print "Cache-Control: no-cache\n\n";

if (open(UZ ,"<$filename[$num]" )){

print STDOUT "document.write(\'$filename[$num]\')\;";
close UZ;

} else {

print "document.write(\'$filename[$num]\')\;"."\r\n";
-----------------------------------------------------------------