Скрипт комментарий на страницу.

<table width="400"><tr ><td valign="top">
<?
// Включаем конфигурационный файл

// Число сообщений на странице
$pnumber = 5;
// Отпрвлять письмо на e-mail при добавлении нового сообщения
// в гостевую книгу? Для включениея данного сервиса исправте на true
$sendmail = true;
// em-mail на который следует отправлять сообщение
$valmail = "mail@mail.ru";
// Ограничивать число сообщений в гостевой книге?
$catmessage = true;
// Максимальное число сообещний в гостевой книге
$nummessage = 10;

// Извлекаем параметр start из командной строки
$start = $_GET["start"];

$dir_rec = dir("records");
$i = 0;
while($entry = $dir_rec->read())
{
if (substr($entry,0,3)=="rec")
{
$names[$i]=substr($entry,4);
$i++;
}
}
$dir_rec->close();
@rsort($names);
$count = $i;
$count1 = $count;

if (empty($start)) $start = 0;
if ($start < 0) $start = 0;

print "<center>";
if ($count > $start + $pnumber) $count = $start + $pnumber;

if ($start != 0)
{
print " <A class=link href=?start=".($start - 10).">Предыдущие</A> ";
}
if ($count1 > $start + 10)
{
print " <A class=link href=?start=".($start + 10).">Следующие</A> \n";
}
print "</center><br>";

for ($i = $start; $i < $count; $i++)
{
$entry = $names[$i];
$data = file("records/rec.".$entry);
$date = $entry;
$name = trim($data[0]);
$city = trim($data[1]);
$email = trim($data[2]);
$url = trim($data[3]);
$msg = trim($data[4]);
$answer = trim($data[5]);
?>

<table border="0" width="400" cellpadding="0" cellspacing="0">
<tr bgcolor="#F8F8F8">
<td rowspan="1" height="20"><p class=ptdg><b><? echo $name?></b>&nbsp;<? if (!empty($city)) print "($city)"; ?></td>
<td width="100%" valign="bottom" align="right" ><p class=help>от: <b><? print date("<b>d-m-Y</b> H - i",$date); ?></b></td>
</tr>
<tr>
<td></td>
<td bgcolor="gray" height="1"><img src="images/pic.gif" border="0" width="1" height="1" alt=""></td>
</tr>
<tr valign="top">
<td rowspan="2" colspan="2" height="25"><p class=ptdg><? if (!empty($email)) print "e-mail: <a class=link href=mailto:$email>$email</a>&nbsp;&nbsp;"; ?>
<? if (!empty($url)) print "www: <a class=link href='$url'>$url</a>"; ?></td>
</tr>
<tr>
<td height="10"></td>
</tr>
<tr valign="top">
<td colspan="2"><p class=ptext>
<? echo $msg; ?>
<br>
<?
if (!empty($answer))
{
print "<p class=panswer><b>Аdmin:</b>&nbsp$answer";
}
?>
</td>
</tr>
</table>
<br><br>
<?
//
}
print "<center>";
if ($count > $start + $pnumber) $count = $start + $pnumber;
print " ";

if ($start != 0)
{
print " <A class=link href=?start=".($start - $pnumber).">Предыдущие</A> ";
}
if ($count1 > $start + $pnumber)
{
print " <A class=link href=?start=".($start + $pnumber).">Следующие</A> \n";
}
?>


<?
// Включаем конфигурационный файл

$error = "";
$action = $_POST["action"];
if (!empty($action))
{
$lenmsg = strlen($_POST["msg"]);
$templen = 0;
$temp = strtok($_POST["msg"], " ");
if (strlen($_POST["msg"])>60) {
while ($templen < $lenmsg) {
if (strlen($temp)>60) {
$action = "";
$error = $error."<LI>Текст сообщения содержит слишком много символов без пробелов\n";
break;
} else {
$templen = $templen + strlen($temp) + 1;
}
$temp = strtok(" ");
}
}

$name = trim($_POST["name"]);
$msg = trim($_POST["msg"]);
$email = trim($_POST["email"]);

if (empty($msg))
{
$action = "";
$error = $error."<LI>Вы не ввели сообщение\n";
}

if (empty($name))
{
$action = "";
$error = $error."<LI>Вы не ввели имя\n";
}
if(!empty($email))
{
if (!preg_match("/^[-0-9a-z_]+@[-0-9a-z_^\.]+\.[a-z]{2,3}$/i", $email))
{
$action = "";
$error = $error."<LI>Неверно введен е-mail.&nbsp Введите e-mail в виде <i>something@server.com</i> \n";
}
}


$name = substr($_POST["name"],0,32);
$name = htmlspecialchars(stripslashes($name));
$city = substr($_POST["city"],0,32);
$city = htmlspecialchars(stripslashes($city));
$email = substr($_POST["email"],0,32);
$email = htmlspecialchars(stripslashes($email));
$url = substr($_POST["url"],0,36);
$url = htmlspecialchars(stripslashes($url));
$msg = substr($msg,0,1024);

$url = strtr($url, "HTPF", "htpf");
if (trim($url)!="") {
if (strtolower((substr($url, 0, 7))!="http://") && (strtolower(substr($url, 0, 7))!="ftp://")) $url="http://".$url;
}



$search_bad_words = array("'хуй'si","'пизд'si","'ёб'si",
"'сука'si","'суки'si","'дроч'si","'хуя'si","'ссуч'si");
$replace = array("*","*","*","*","*","*","*","*");
$msg = preg_replace($search_bad_words,$replace,$msg);
$name = preg_replace($search_bad_words,$replace,$name);
$city = preg_replace($search_bad_words,$replace,$city);

$msg = htmlspecialchars(stripslashes($msg));

if (empty($error))
{
$msg = nl2br($msg);

$msg = str_replace("[u]","<u>",$msg);
$msg = str_replace("[U]","<u>",$msg);
$msg = str_replace("[i]","<i>",$msg);
$msg = str_replace("[I]","<i>",$msg);
$msg = str_replace("[b]","<B>",$msg);
$msg = str_replace("[B]","<B>",$msg);
$msg = str_replace("[sub]","<SUB>",$msg);
$msg = str_replace("[SUB]","<SUB>",$msg);
$msg = str_replace("[sup]","<SUP>",$msg);
$msg = str_replace("[SUP]","<SUP>",$msg);
$msg = str_replace("[/u]","</u>",$msg);
$msg = str_replace("[/U]","</u>",$msg);
$msg = str_replace("[/i]","</i>",$msg);
$msg = str_replace("[/I]","</i>",$msg);
$msg = str_replace("[/b]","</B>",$msg);
$msg = str_replace("[/B]","</B>",$msg);
$msg = str_replace("[/SUB]","</SUB>",$msg);
$msg = str_replace("[/sub]","</SUB>",$msg);
$msg = str_replace("[/SUP]","</SUP>",$msg);
$msg = str_replace("[/sup]","</SUP>",$msg);
$msg = eregi_replace("(.*)\\[url\\](.*)\\[/url\\](.*)","\\1<a href=\\2>\\2</a>\\3",$msg);
$msg = str_replace("\n"," ",$msg);
$msg = str_replace("\r"," ",$msg);

$file = fopen("records/rec.".time(),"w");
fputs($file,$name."\n");
fputs($file,$city."\n");
fputs($file,$email."\n");
fputs($file,$url."\n");
fputs($file,$msg."\n");
fclose($file);
// Если $sendmail = true отправляем уведомление
if($sendmail)
{
$thm = "Новый комментарий к Вашей анкете";
$msg = "Комментарий: $msg\nИмя: $name\nhttp://rap4me.com";
mail($valmail, $thm, $msg, "From:casting@rap4me.com \r\n");
}
// Если $catmessage = true органичиваем число
// сообщений в гостевой книге $nummessage
if($catmessage)
{
// Открываем директорию records
$dir = opendir("records");
while(($file = readdir($dir)))
{
// Помещаем названия файлов в массив $array_file[]
if(is_file("records/$file")) $array_file[] = $file;
}
// Проверяем количество файлов в директории
if(count($array_file)>$nummessage)
{
// Производим обратную сортировку массива
@rsort($array_file);
// Удаляем лишние файлы
for($i=$nummessage; $i<count($array_file); $i++) unlink("records/".$array_file[$i]);
}
// Закрываем директорию
closedir($dir);
}

print "<META HTTP-EQUIV='Refresh' CONTENT='0'; URL='#'>\n";

}
}

if (empty($action))
{
?>

<hr><br /><br />

<form action='' method=post>
<input type=hidden name=action value=post>

<table border="0" align="left" cellpadding="6" cellspacing="0" width="400">
<tr valign="top">
<td colspan="3" >
<b>Добавить комментарий:</b>
</td>
</tr>
<tr>
<td width="55"><p class=ptd><b>Имя *</em></b></td>
<td><input type=text name=name maxlength=32 size=25 ></td>
<td rowspan="3" width="120">

</td>
</tr>

<tr>
<td width="55"><b>E-mail *</b></td>
<td><input type=text name=email size=25 maxlength=32 ></td>
</tr>


<tr>
<td colspan="3">
<b>Сообщение *<em></b><br>
<textarea cols=42 rows=5 name=msg></textarea>
</td>
</tr>
<tr>
<td colspan="3">
<input type="submit" value="Добавить">&nbsp;&nbsp;&nbsp;
<input type="submit" value="Отменить">
</td>
</tr>
</table>

</form>

<?
if (!empty($error))
{
print "<font color=green>Во время добавления записи произошли следующие ошибки: </font>\n";
print "<UL>\n";
print $error;
print "</UL>\n";
}
?>
<? } ?>
</td></tr></table>