Page d'accueil>Tutoriel de programmation réseau>Tutoriel ASP

ASP construit une salle de chat simple

Auteur：Eve Cole Date de mise à jour：2025-03-06 10:00:04

Cet article présente principalement ASP pour construire une salle de chat très simple.

Après une étape de l'apprentissage ASP, nous construisons une salle de chat la plus simple en fonction du contenu que nous avons appris.

Les étapes principales sont décrites ci-dessous:

1. Ajouter le code dans le fichier global.asa. sont les suivants.

  1. ＜ ScriptNanguage = VBScriptrunat = serveur ＞
  2. Sous-application_onstart
  3. Dimmachats (15) définit des données avec 15 éléments.
  4. Application (gachats) = Machats stocke le contenu de la conversation.
  5. Application (gicounter) = 0 stocke le nombre de conversations existantes.
  6. Fin
  7. ＜ / script ＞

2. Ajouter du code dans le fichier aspchat.asp.

Le programme détermine d'abord si la méthode de la publication est utilisée lors de la possibilité de postuler pour cette page d'accueil, car la méthode de soumission de la fenêtre dans cet exemple est en général. La méthode du post est la méthode du post, cela signifie qu'un certain navigateur est en train de soumettre son contenu de conversation. Ne soumet aucune conversation, vous n'avez donc qu'à afficher le contenu de conversation actuel.
  1. ＜ Palign = Centre ＞＜ FontSize = 5 ＞ Une salle de chat simple ＜ / police ＞＜ / p ＞
  2. ＜br>
  3. ＜%
  4. Processus d'entrée
  5. ifrequest.servervariables (request_method) = post-then
  6. Signer l'orateur
  7. iflen (demande (txtwho)) ＞ 0
  8. Session (SSWHO) = demande (txtwho)
  9. endire
  10. Bloquer les objets d'application
  11. Application.lock
  12. Créer un pointeur de référence local
  13. mlCounter = application (gicounter)
  14. machats = application (gachats)
  15. Si le nombre de lignes écrit dépasse 10, recommencez.
  16. ifmlcounter> 9Then
  17. mlcounter = 0
  18. endire
  19. Augmenter la saisie de l'utilisateur, augmenter le compteur de 1
  20. machat (mlchounter) = session (SSWHO) &: & request (txtcents)
  21. mlcounter = mlcounter + 1
  22. Définissez les variables locales pour être valides dans la portée de l'application.
  23. Applicatigicounter) = mlcounter
  24. Application (gachats) = machat
  25. Éliminer le blocage des objets d'application
  26. Application.unlock
  27. endire
  28. % ＞
  29. ＜%
  30. Écrivez à TextArea
  33. ifApplication (gicounter) = 0Then
  34. lstemp = application (gachats) (0)
  35. autre
  36. ForX = 0TOPPLICATION (GICOUNTER) -1
  37. lstemp = lstemp & ＜br> application (gachats) (x)
  38. suivant
  39. endire
  40. Réponse.
  41. % ＞
  42. ＜ hr ＞

3. Enfin, initialisez le contenu de txtwho. Session (SSWHO) pour enregistrer la navigation.

  1. ＜ FormMethod = postaction = aspchat.aspname = frmmasp>
  2. ＜ Divalign = Center ＞＜ Centre ＞＜ P ＞ Speech: ＜ InputType = textName = txtcentsSize = 34 ＞＜ / p ＞
  3. ＜ / Centre ＞＜ / div ＞＜ divalign = Centre ＞＜ Centre ＞＜ P ＞ Objet: ＜ InputType = soumidValue = Send name = b1 ＞＜ / p ＞
  4. ＜ / centre ＞＜ / div ＞
  5. ＜ / Form ＞

Compléter.

Articles connexes