Free CGI Perl PHP Script Olive Design CGI

一言メッセージ掲示板 その1

一言メッセージの掲示板をつくってみました。

まず、ファイル名bbs01.phpを作成し、下のソースを貼り付けて設置します。 同じ階層に空のファイルlog.datを作成してパーミションを666にします。

サンプル

サンプルは書き込みできません。

ソース bbs01.php

<?php
#ログ保存数を設定
$data_max=10;
#データファイルを設定
$data_file="log.dat";

$comment=$_POST[comment];

#新しいコメントが追加されたら
if(!empty ($comment)){
        #タグの無効化
	$comment= htmlspecialchars ($comment);
        #データファイルを一行づつ読み込み
	$data_all = file($data_file);
	$fp = fopen($data_file,"w");
	flock($fp,2);
        #新しいコメントを書き込み
	fwrite($fp,"$comment\n");
		for ($i=0; $i<$data_max;$i++){
                        #古いコメント書き込み
			fwrite($fp,$data_all [$i]);
	}
	flock($fp,3);
	fclose($fp);
}
?>

<html>
<head>
<meta http-equiv="Content-Type"
 content="text/html; charset=Shift_JIS">
<title>一言メッセージ</title></head>
<body>
<h4>一言メッセージを書いてください。</h4>
<form method="post" action="bbs01.php" ><br/>
保存コメント数は<?php echo "$data_max"; ?>です。<br/>
入力 =>
<input type=text name="comment">
<input type="submit" value="送信"><br/>

<?php
#コメントの表示
$data_all = file($data_file);

for( $i = 0; $i < $data_max ;$i++){
	if(!empty($data_all[$i])){
		echo "$data_all[$i]<br/>\n"  ;
	}

}
?>

</body>
</html>
Perl PHP Free CGI Script OliveDesign CGI

Perl PHP Free CGI Script OliveDesign CGI

プライバシーポリシー / 特定商取引法に基づく表示