ASP constrói uma sala de bate -papo simples

Este artigo apresenta principalmente a ASP para construir uma sala de bate -papo muito simples.

Após um estágio do ASP Learning, criaremos uma sala de bate -papo mais simples com base no conteúdo que aprendemos.

As etapas principais são descritas abaixo:

1. Adicione o código no arquivo global.ASA. são os seguintes.

1. ＜ ScriptLanguage = VBScriptrunat = servidor ＞
2. Subapplication_onstart
3. Dimmachats (15) define dados com 15 elementos.
4. APLICAÇÃO (Gachats) = Machats armazena o conteúdo da conversa.
5. APLICAÇÃO (GiCounter) = 0 armazena o número de conversas existentes.
6. Endsub
7. ＜/script ＞

2. Adicione o código no arquivo aspchat.asp.

---

O programa determina primeiro se o método de postagem é usado ao se inscrever para esta página inicial, porque o método de envio da janela neste exemplo é publicado em geral. O método de postagem é o método de postagem, significa que um determinado navegador reaplicou -se ao enviar seu conteúdo de conversação Não envia nenhuma conversa; portanto, você só precisa exibir o conteúdo atual da conversa.

1. ＜ palign = centro ＞＜ fontsize = 5 ＞ uma sala de bate -papo simples ＜/font ＞＜/p ＞
2. ＜br>
3. ＜%
4. Entrada do processo
5. ifRequest.ServerVariables (request_method) = postthen
6. Assine o alto -falante
7. iflen (request (txtwho)) ＞ 0hen
8. Sessão (sswho) = solicitação (txtwho)
9. endif
10. Bloquear objetos de aplicativo
11. Application.lock
12. Crie um ponteiro de referência local
13. mlCounter = Aplicação (Gicounter)
14. Machats = Aplicação (Gachats)
15. Se o número de linhas escritas exceder 10, comece a contar novamente.
16. ifmlCounter> 9then
17. mlCounter = 0
18. endif
19. Aumente a entrada do usuário, aumente o contador em 1
20. Machat (mlchounter) = sessão (sswho) &: & request (txtcents)
21. mlCounter = mlCounter+1
22. Defina as variáveis ​​locais como válidas no escopo do aplicativo.
23. Applicatigicounter) = MLCounter
24. Aplicação (Gachats) = Machat
25. Eliminar o bloqueio do objeto de aplicação
26. Application.unlock
27. endif
28. %＞
29. ＜%
30. Escreva para textarea
33. ifApplication (gicounter) = 0then
34. lots = Application (Gachats) (0)
35. outro
36. forx = 0toApplication (gicounter) -1
37. lotsp = LotSorp & ＜br> APLICAÇÃO (Gachats) (x)
38. próximo
39. endif
40. Response.whiteStemp
41. %＞
42. ＜ hr ＞

3. Finalmente, inicialize o conteúdo de txtwho Sessão (sswho) para registrar a navegação.

1. ＜ formmethod = postaction = aspchat.aspname = frMMAsp>
2. ＜ Divalign = Centro ＞＜ Centro ＞＜ P ＞ discurso: ＜ inputType = textName = txtCentsSize = 34 ＞＜/p ＞
3. ＜/centro ＞＜/div ＞＜ divalign = centro ＞＜ Centro ＞＜ P ＞ Objeto: ＜ inputType = submitValue = Enviar nome = b1 ＞＜/p ＞
4. ＜/centro ＞＜/div ＞
5. ＜/forma ＞

Conclua.