Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - ASP и VBScript

Страница: 1 |

 

  Вопрос: Скриптик для гостевой книги.... Добавлено: 08.07.03 17:06  

Автор вопроса:  STEAM | ICQ: 276847102 
 Подкиньте, плиз , скриптик для гостевой книги... Хорошо б сразу с защитой от флуда

Ответить

  Ответы Всего ответов: 7  

Номер ответа: 1
Автор ответа:
 Nio



Вопросов: 15
Ответов: 115
 Web-сайт: www.fea.nxt.ru
 Профиль | | #1
Добавлено: 09.07.03 17:35

Вот, держи простенький скриптик на php:

<?
define ("GBook","gb.gbf");
function LoadBook($fname)
{ $f=@fopen(GBook, "rb");
 if(!$f) return array();
 $Book=Unserialize(fread($f, 100000));
 fclose($f);
 return $Book;
}
function SaveBook ($fname, $Book)
{ $f=fopen(GBook, "wb");
 fwrite($f, Serialize($Book));
 fclose($f);
}
$Book=LoadBook(GBook);
if(!empty($New['txt'])){
 $Book=array(time()=>$New)+$Book;
 SaveBook(GBook, $Book);
}
?>
<html><head><title>Моя гостевая книга</title></head>
<a name="up">
<BODY LINK="#FF0000" VLINK="#FF0000" ALINK="#FF0000" BACKGROUND="img/back.jpg">
<center>
<img src="img/gb.gif"></center><hr>
<div align='right'><a href="#dd">Добавить сообщение</a></div>
<?
foreach ($Book as $id=>$Entry)
{
echo $Entry['nm']."     "."<img src=\"img/sml/em".$Entry['em'].".gif\">"."<br>";
for ($i=25;$i>=1;$i--)
 $Entry['txt']= str_replace("sm".$i,"<img src=\"img/sml/s".$i.".gif\">",$Entry['txt']);
echo $Entry['txt'];
echo "<hr>";
}
?>
<a name="dd">
<center>
<font color='red' size=+1>Добавление нового сообщния<br></font>
<font size=-1>
Для вставки смайлика в текст просто напечатайте в нужном месте smX где X - номер нужного вам смайлика<br>
<? for ($i=1;$i<=16;$i++) echo $i.") "."<img src=\"img/sml/s".$i.".gif\">"."  "; ?>
<? for ($i=17;$i<=25;$i++) echo $i.") "."<img src=\"img/sml/s".$i.".gif\">"."  "; ?>
</font>
</center>
<br>
<form action=gb.php method=post>
Ваше имя: <input type=text name="New[nm]"><br>
Ваше сообщение:<br>
<textarea name="New[txt]" wrap=virtual cols=70 rows=5></textarea><br>
Выберите смайлик, соответствующий Вашему настроению:<br>
<input type=radio name="New[em]" value="1"> <img src="img/sml/em1.gif">
<input type=radio name="New[em]" value="2"> <img src="img/sml/em2.gif">

... тут куча смайликов...

<input type=radio name="New[em]" value="26"> <img src="img/sml/em26.gif">
<br>
<input type=submit name "doAdd" value="Отправить">
<input type=reset value="Очистить">
</form>
<center><a href="#up">Наверх</a></center>
</body></html>

Успешно работает на www.area5.h10.ru

Ответить

Номер ответа: 2
Автор ответа:
 Virtual



Вопросов: 10
Ответов: 30
 Профиль | | #2 Добавлено: 12.10.03 00:09

Блин у меня много скриптов пиши скину!

asvelin@yandex.ru

Ответить

Номер ответа: 3
Автор ответа:
 DaSharm



ICQ: 780477 

Вопросов: 72
Ответов: 1297
 Web-сайт: dasharm.com
 Профиль | | #3
Добавлено: 31.12.03 16:12

Защитится от флуда невозможно.

Ответить

Номер ответа: 4
Автор ответа:
 Александр



Разработчик Offline Client

ICQ: 204034 

Вопросов: 106
Ответов: 1919
 Профиль | | #4 Добавлено: 01.01.04 10:09

А вообще реально написать гостевуху на JavaScript/VBScript????

Просто мой хост больше ничего не держит и не позволяет изменять шаблоны гостевух???

Ответить

Номер ответа: 5
Автор ответа:
 Sharp


Лидер форума

ICQ: 216865379 

Вопросов: 106
Ответов: 9979
 Web-сайт: sharpc.livejournal.com
 Профиль | | #5
Добавлено: 01.01.04 10:30

JavaScript & VBScript - клиентские технологии. А тебе нужно записывать сообщения на сервере. Поэтому тебе надо либо придумывать, как можно, не сохраняя гостевуху, добавлять в нее записи, либо искать другой хостинг.

Ответить

Номер ответа: 6
Автор ответа:
 Александр



Разработчик Offline Client

ICQ: 204034 

Вопросов: 106
Ответов: 1919
 Профиль | | #6 Добавлено: 01.01.04 10:45

Подскажи нормальные хосты с PHP/Perl/красивыми именами :) plzzzz!!!!

Ответить

Номер ответа: 7
Автор ответа:
 Sharp


Лидер форума

ICQ: 216865379 

Вопросов: 106
Ответов: 9979
 Web-сайт: sharpc.livejournal.com
 Профиль | | #7
Добавлено: 01.01.04 11:05

Вопрос уже поднимался. Все не вспомню, но вот часть:

domaindlx.com

1asphost.com

www.50free.com

www.u9.ru.

http://www.t35.com

http://www.hostweb.ru

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам