質問者
[E-Mail]
1999/12/24(金) 17:25:01
こんにちは。
このサイトでお世話になってます。
このたび、掲示板を作ってみました。
しかし、何分初心者で更新すると、それだけで、発言されてしまったりしています（＾＾；
それはさておき、いたずらや間違え防止のため、コメントなしで投稿したときに、
コメントが記入されていません。
等と、メッセージが表示されるようなものを作りたいのです。
もちろん一応作りましたが見事に失敗（＾＾；
(ちなみに以下に書いたものが、それです。)
どうぞよろしくお願い致します。
----------------ここから--------------------
open(OUT,">$log");
print OUT "<TABLE border=\"1\">\n <TBODY>\n <TR>\n";
print OUT "<TD>$FORM{'title'}</TD>\n<TD>$time</TD>\n";
if ($FORM{'mail'} ne '@') { # メールがない場合の対処
print OUT "\n<TD><a href=\"mailto:$FORM{'mail'}\">$FORM{'name'}</A></TD>\n";
} else {
print OUT "\n<TD>$FORM{'name'}</TD>\n";}
print OUT "<\!--$ENV{'REMOTE_ADDR'}-->\n<\!--$ENV{'REMOTE_HOST'}-->\n";
if ($FORM{'mail'} ne "") { # メッセージがない場合の対処
print "コメントが記入されていません。";
} else {
print OUT "<BLOCKQUOTE>$FORM{'mass'}</BLOCKQUOTE>\n";
if ($FORM{'URL'} ne "http://") { # ホームページがない場合の対処
print OUT "\n<TD><a href=\"mailto:$FORM{'URL'}\">$FORM{'URL'}</A></TD>\n";
} else {
print OUT "\n";
}
print OUT '<BR><P><hr size=3><BR></P>';
---------------------ここまで-----------------------
ではー