ASP строит простую чат -комнату

Эта статья в основном представляет ASP, чтобы построить очень простой чат.

После стадии обучения ASP мы построим самую простую чат на основе контента, который мы изучили.

Основные шаги описаны ниже:

1. Добавьте код в файле Global.ASA. являются следующими.

1. ＜ Scriptlanguage = vbscriptrunat = server ＞
2. Subapplication_onstart
3. Диммахаты (15) определяют данные с 15 элементами.
4. Application (Gachats) = Machats хранит содержание разговора.
5. Application (gicounter) = 0 хранит количество существующих разговоров.
6. Заканчивая
7. ＜/Сценарий ＞

2. Добавьте код в файле aspchat.asp.

---

Программа сначала определяет, используется ли метод POST при подаче заявки на эту домашнюю страницу, потому что метод представления окна в этом примере является POST. Метод POST - это метод POST, это означает, что определенный браузер повторно подает при подаче своего или ее контента Не отправляет никаких разговоров, поэтому вам нужно только отобразить текущий контент разговора.

1. ＜ palign = center ＞＜ fontsize = 5 ＞ Простая чата ＜/font ＞＜/p ＞
2. ＜br>
3. ＜%
4. Вход процесса
5. ifrequest.servervariables (request_method) = postthen
6. Подписать оратор
7. iflen (запрос (txtwho)) ＞ 0then
8. Session (sswho) = запрос (txtwho)
9. эндиф
10. Блокировать объекты приложения
11. Application.lock
12. Создайте локальный указатель ссылки
13. mlcounter = приложение (gicounter)
14. Махаты = приложение (Гачаты)
15. Если количество написанных строк превышает 10, начните считать снова.
16. ifmlcounter> 9then
17. mlcounter = 0
18. эндиф
19. Увеличьте пользовательский ввод, увеличить счетчик на 1
20. Мачат (mlChounter) = Session (Sswho) &: & request (txtcents)
21. mlcounter = mlcounter+1
22. Установите локальные переменные, чтобы быть действительными в области приложения.
23. ApplicatIgicOunter) = mlcounter
24. Приложение (Gachats) = Махат
25. Устранение блокировки объекта приложения
26. Application.unlock
27. эндиф
28. %＞
29. ＜%
30. Напишите в Textarea
33. ifapplication (gicounter) = 0then
34. LSTEMP = Application (Gachats) (0)
35. еще
36. forx = 0toApplication (gicounter) -1
37. LSTEMP = LSTEMP & ＜BR> Приложение (Gachats) (x)
38. следующий
39. эндиф
40. Response.whitestemp
41. %＞
42. ＜ HR ＞

3. Наконец, инициализируйте содержание TXT Session (SSWHO) для записи просмотра.

1. ＜ formmethod = postaction = aspchat.aspname = frmasp>
2. ＜ Divalign = Центр ＞＜ Центр ＞＜ P ＞ Речь: ＜ inputtype = textName = txtCentsSize = 34 ＞＜/P ＞
3. ＜/Центр ＞＜/Div ＞＜ Divalign = Центр ＞＜ Центр ＞＜ P ＞ объект: ＜ inputtype = pospervalue = send name = b1 ＞＜/p ＞
4. ＜/Центр ＞＜/div ＞
5. ＜/форма ＞

Завершите.