Inicio>Tutorial de programación de red>Tutorial ASP

ASP construye una sala de chat simple

Autor：Eve Cole Fecha de actualización：2025-03-06 10:00:04

Este artículo presenta principalmente ASP para construir una sala de chat muy simple.

Después de una etapa de aprendizaje ASP, construiremos una sala de chat más simple basada en el contenido que hemos aprendido.

Los pasos principales se describen a continuación:

1. Agregue el código en el archivo global.ASA. son los siguientes.

  1. ＜ scriptLanguage = vBscripTrunat = servidor ＞
  2. Subapplicio_onstart
  3. Los dimmachats (15) define un datos con 15 elementos.
  4. Aplicación (Gachats) = Machats almacena el contenido de la conversación.
  5. Aplicación (GiCounter) = 0 almacena el número de conversaciones existentes.
  6. Endsub
  7. ＜/script ＞

2. Agregue el código en el archivo ASPCHAT.ASP.

El programa primero determina si el método de publicación se usa al solicitar esta página de inicio, porque el método de envío de ventanas en este ejemplo es POST, en general, cuando se aplica esta página de inicio por primera vez, el método GET se usa. El método de publicación es el método de publicación, significa que se vuelve a aplicar un determinado navegador al enviar su contenido de conversación porque hay un nuevo contenido de conversación. No envía ninguna conversación, por lo que solo necesita mostrar el contenido de conversación actual.
  1. ＜ palign = centro ＞＜ fontSize = 5 ＞ una sala de chat simple ＜/fuente ＞＜/P ＞
  2. ＜BR>
  3. ＜%
  4. Entrada de procesos
  5. ifrequest.servervariables (request_method) = postthen
  6. Firma el altavoz
  7. iflen (solicitud (txtwho)) ＞ 0Then
  8. Session (SSWHO) = solicitud (txtwho)
  9. endif
  10. Bloquear objetos de aplicación
  11. Application.lock
  12. Crea un puntero de referencia local
  13. mlcounter = aplicación (gicounter)
  14. Machats = Aplicación (Gachats)
  15. Si el número de líneas escritas excede las 10, comience a contar nuevamente.
  16. ifmlcounter> 9
  17. mlcounter = 0
  18. endif
  19. Aumentar la entrada del usuario, aumentar el contador por 1
  20. Machat (mlChounter) = Session (SSWHO) &: & Solic (txtcents)
  21. mlcounter = mlcounter+1
  22. Establezca las variables locales para que sean válidas dentro del alcance de la aplicación.
  23. Applicatigicounter) = mlCounter
  24. Aplicación (Gachats) = Machat
  25. Eliminar el bloqueo de objetos de aplicación
  26. Aplicación
  27. endif
  28. %＞
  29. ＜%
  30. Escribir a TextARea
  33. ifapplication (gicounter) = 0then
  34. LSTEMP = Aplicación (Gachats) (0)
  35. demás
  36. forx = 0toapplication (gicounter) -1
  37. LSTSTEMP = LSTEMP & ＜BR> Aplicación (Gachats) (X)
  38. próximo
  39. endif
  40. Respuesta. whitestempp
  41. %＞
  42. ＜ HR ＞

3. Finalmente, inicializa el contenido de Txtwho. Sesión (SSWHO) para registrar la navegación.

  1. ＜ FormMethod = PostAction = AspChat.aspName = FRMASP>
  2. ＜ Divalign = Center ＞＜ Center ＞＜ P ＞ Discurso: ＜ InputType = TextName = txtCentsSize = 34 ＞＜/P ＞
  3. ＜/Center ＞＜/Div ＞＜ Divalign = Center ＞＜ Center ＞＜ P ＞ Objeto: ＜ InputType = SubmitValue = Enviar nombre = B1 ＞＜/P ＞
  4. ＜/centro ＞＜/div ＞
  5. ＜/forma ＞

Complete.

Artículos relacionados