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.
- < ScriptLanguage = VBScriptrunat = servidor >
- Subapplication_onstart
- Dimmachats (15) define dados com 15 elementos.
- APLICAÇÃO (Gachats) = Machats armazena o conteúdo da conversa.
- APLICAÇÃO (GiCounter) = 0 armazena o número de conversas existentes.
- Endsub
- </script >
2. Adicione o código no arquivo aspchat.asp.
- < palign = centro >< fontsize = 5 > uma sala de bate -papo simples </font ></p >
- <br>
- <%
- Entrada do processo
- ifRequest.ServerVariables (request_method) = postthen
- Assine o alto -falante
- iflen (request (txtwho)) > 0hen
- Sessão (sswho) = solicitação (txtwho)
- endif
- Bloquear objetos de aplicativo
- Application.lock
- Crie um ponteiro de referência local
- mlCounter = Aplicação (Gicounter)
- Machats = Aplicação (Gachats)
- Se o número de linhas escritas exceder 10, comece a contar novamente.
- ifmlCounter> 9then
- mlCounter = 0
- endif
- Aumente a entrada do usuário, aumente o contador em 1
- Machat (mlchounter) = sessão (sswho) &: & request (txtcents)
- mlCounter = mlCounter+1
- Defina as variáveis locais como válidas no escopo do aplicativo.
- Applicatigicounter) = MLCounter
- Aplicação (Gachats) = Machat
- Eliminar o bloqueio do objeto de aplicação
- Application.unlock
- endif
- %>
- <%
- Escreva para textarea
- ifApplication (gicounter) = 0then
- lots = Application (Gachats) (0)
- outro
- forx = 0toApplication (gicounter) -1
- lotsp = LotSorp & <br> APLICAÇÃO (Gachats) (x)
- próximo
- endif
- Response.whiteStemp
- %>
- < hr >
3. Finalmente, inicialize o conteúdo de txtwho Sessão (sswho) para registrar a navegação.
- < formmethod = postaction = aspchat.aspname = frMMAsp>
- < Divalign = Centro >< Centro >< P > discurso: < inputType = textName = txtCentsSize = 34 ></p >
- </centro ></div >< divalign = centro >< Centro >< P > Objeto: < inputType = submitValue = Enviar nome = b1 ></p >
- </centro ></div >
- </forma >
Conclua.