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.
- < ScriptNanguage = VBScriptrunat = serveur >
- Sous-application_onstart
- Dimmachats (15) définit des données avec 15 éléments.
- Application (gachats) = Machats stocke le contenu de la conversation.
- Application (gicounter) = 0 stocke le nombre de conversations existantes.
- Fin
- < / script >
2. Ajouter du code dans le fichier aspchat.asp.
- < Palign = Centre >< FontSize = 5 > Une salle de chat simple < / police >< / p >
- <br>
- <%
- Processus d'entrée
- ifrequest.servervariables (request_method) = post-then
- Signer l'orateur
- iflen (demande (txtwho)) > 0
- Session (SSWHO) = demande (txtwho)
- endire
- Bloquer les objets d'application
- Application.lock
- Créer un pointeur de référence local
- mlCounter = application (gicounter)
- machats = application (gachats)
- Si le nombre de lignes écrit dépasse 10, recommencez.
- ifmlcounter> 9Then
- mlcounter = 0
- endire
- Augmenter la saisie de l'utilisateur, augmenter le compteur de 1
- machat (mlchounter) = session (SSWHO) &: & request (txtcents)
- mlcounter = mlcounter + 1
- Définissez les variables locales pour être valides dans la portée de l'application.
- Applicatigicounter) = mlcounter
- Application (gachats) = machat
- Éliminer le blocage des objets d'application
- Application.unlock
- endire
- % >
- <%
- Écrivez à TextArea
- ifApplication (gicounter) = 0Then
- lstemp = application (gachats) (0)
- autre
- ForX = 0TOPPLICATION (GICOUNTER) -1
- lstemp = lstemp & <br> application (gachats) (x)
- suivant
- endire
- Réponse.
- % >
- < hr >
3. Enfin, initialisez le contenu de txtwho. Session (SSWHO) pour enregistrer la navigation.
- < FormMethod = postaction = aspchat.aspname = frmmasp>
- < Divalign = Center >< Centre >< P > Speech: < InputType = textName = txtcentsSize = 34 >< / p >
- < / Centre >< / div >< divalign = Centre >< Centre >< P > Objet: < InputType = soumidValue = Send name = b1 >< / p >
- < / centre >< / div >
- < / Form >
Compléter.