ASP как зеркало информационной революции, или создай интерактивный сайт за полчаса

MoZ (real_moz@hotmail.com)

Спецвыпуск Xakep, номер #015, стр. 015-094-5

<textarea cols="57" rows="6" name="message"></textarea> <br> 'Задали размер поля и переменную, где будем хранить бред юзверя.

<input type="Submit" value="Отправить"> 'Кнопа "Отправить".

</form>

<script language="JavaScript">

// Рефрешим фреймы со списком пользователей и с чатом. Для этого используется обычный клиентский яваскрипт.

parent.frames[0].document.location = "chat.html";

parent.frames[1].document.location = "users.html";

</script>

<%

end if

%>

Файло два

<!--

chat.asp

Обновляясь каждые 10 секунд, выводит содержимое чата.

-->

<html>

<head> <meta http-equiv="Refresh" content="10"> </head>

<body>

<!--

Далее - самый простой способ вывести содержание любой переменной в поток HTML: знак "=" и имя переменной

-->

<% = Application("chat") %>

</body>

</html>

Файло тры

<!--

users.asp

Обновляясь каждые 10 секунд, выводит список участников чата.

-->

<html>

<head> <meta http-equiv="Refresh" content="10"> </head>

<body>

<center>

<b>Сейчас в чате:</b> <br>

<%

'Метод Write объекта Response выводит необходимые данные в поток HTML.

Response.Write Application("UsersList")

%>

</center>

</body>

</html>

Файло четыре

' global.asa - специальный файл, в котором можно описать скрипты.

' для обработки служебных событий, таких, как начало и окончание работы приложения и сессий.

' В данном случае нас интересует только одно событие - окончание сессии.

' Это событие возникает в том случае, когда пользователь уходит с нашего сайта.

<SCRIPT LANGUAGE="VBScript" RUNAT=Server>

Sub Session_OnEnd

' Данная процедура вызывается при завершении сессии и удаляет пользователя из списка участников чата.

' При желании можешь попробовать вывести сообщение о том, что такой-то пользователь нас покинул.

if Session("UserName")<>"" then

Application.Lock

Application("UsersList") = Replace(Application("UsersList"), Session("UserName") & "<br>", "", 1, -1, 1)

Application.Unlock

end if

End Sub

</SCRIPT>

Как видишь, все достаточно просто - любой хотя бы немного работавший с Visual Basic напишет такое за полчаса. Рабочий вариант этого чата ты можешь посмотреть здесь - http://www27.brinkster.com/realmoz/chat.html

Халявные хостинги

Итак, будем считать, что свою крутую страничку ты уже сделал и перед тобой стоит задача - где же ее разместить? Варианты платного хостинга ты, надо полагать, с негодованием отметаешь? Я так и знал. Вот тогда небольшой список мест, где можно попробовать на халяву разместить свой ASP-проект.

http://www.cfm-resources.com/. Несмотря на свое название и общее тяготение к ColdFusion (еще один язык для создания интерактивных веб-сайтов) - дают размещать и ASP-страницы. 30 мегов, база данных MS Access, есть доступ по FTP, дают бесплатный Email и обеспечивают техническую поддержку.

http://www.brinkster.com/. Обещают 30 мегабайт, никаких баннеров, поддержку ASP 3.0 и ASP.NET (установлен .NET Framework Beta 2), базы данных в виде MS Access. Из минусов - нет поддержки закачки файлов по FTP, придется выкладывать все через WEB-интерфейс. Однако поддержка .NET - это явный, большой и жирный плюс. Как ты заметил, страничка с примером выложена именно туда.

Назад на стр. 015-094-4  Содержание  Вперед на стр. 015-094-6

ttfb: 3.1299591064453 ms