Después de aprender ASP, podemos construir una sala de chat más simple basada en el contenido que hemos aprendido. Todos pueden mejorar continuamente sus funciones dominando el proceso básico del establecimiento de la sala de chat. Ahora echemos un vistazo a los métodos de ASP para construir una sala de chat simple.
Los pasos principales se describen a continuación:
1. Agregue el código en el archivo global.asa. Esta parte del código procesa principalmente el evento Application_onStart. En este evento, se definen y se asignan un datos con 15 elementos a las propiedades de un objeto de aplicación. El contenido del archivo global.asa es el siguiente.
＜ Script Language = "VBScript" Runat = "Server"> Sub Application_onStartdim Machats (15) Define un datos con 15 Elementos. Aplicación ("Gachats") = Machats almacena el contenido de Conversat.Application ("Gicúter") = 0 almacena el número de conversaciones existentes.2. Agregue código en el archivo ASPCHAT.ASP. Tenga en cuenta que debe agregar esta parte del código entre dos líneas horizontales en la página de inicio, es decir, entre dos <hr> en el texto. El programa primero determina si el método "Post" 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, al solicitar esta página de inicio por primera vez, se usa el método "Get". Por lo tanto, si se usa el método "post", significa que un determinado navegador vuelve a aplicar al enviar su propio contenido de conversación, que debe procesarse porque hay un nuevo contenido de conversación. De lo contrario, significa que cierto navegador se aplica a esta página de inicio por primera vez y no ha enviado ninguna conversación, por lo que solo necesita mostrar el contenido de conversación actual.
＜ p align = "Center"> ＜ Font Size = 5> Una sala de chat simple </font> ＜/p> ＜BR> ＜%Entrada de proceso si request.ServerVariAbles ("request_method") = "post" luego indica el hablante si digna ("txthowho")> 0 Thensession ("sswho") = request ("TxtxtAftAllock. Un puntero de referencia local mlcounter = aplicación ("gicounter") machats = aplicación ("gachats") Si el número de líneas escritas excede 10, comience a contar nuevamente. Si mlCounter> 9 thenmlCounter = 0end si incrementa la entrada del usuario, agregue 1MACHAT (mlChounter) = session ("sswho") & ":" & request ("txtcents") mlcounter = mlCounter+1 establece la variable local para ser válida dentro de la aplicación Scope.applicati "gicounter") = mlcounterapplacation ("" "geAx") Elimina el bloqueo de la aplicación de objeto de aplicación. UnlockEd si%> ＜%escribe textAreaif Application ("GiCounter") = 0 entonceslstemp = Application ("Gachat") (0) Else para x = 0 a Application ("GiCounter")-1lstemp = LSTEMP & "＜BR>" APLICA3. Finalmente, inicialice el contenido de txtwho. Es decir, cuando el navegador ingresa a su nombre una vez, él o ella no necesita volver a entrar en él. Para distinguir cada espectador diferente, el objeto "Sesión" se usa aquí. El nombre del espectador se registra utilizando la sesión ("SSWHO"). El siguiente código se escribe directamente debajo del código anterior y se almacena en Aspchat.asp.
＜ Form Method = "Post" Action = "Aspchat.asp" name = "frmasp"> ＜ div align = "centro"> ＜ centro> ＜ p> discurso: ＜ type de entrada = "text" name = "txtcents" size = "34"> ＜/p> ＜/Center> ＜/div> ＜ div align = "Center"> ＜ Center> ＜ p>: ＜ ＜ ＜ " name = "B1"> ＜/P> ＜/Center> ＜/div> ＜/form>
Completo. Simplemente agregue el código de archivo HTM completo antes y después de los 2 y 3 pasos de código y guárdelo como Aspchat.asp. Este es un programa de sala de chat ASP muy simple. ¡Puede mejorar continuamente sus funciones a medida que aprende!
Lo anterior es cómo ASP construye una sala de chat simple. ¿Estás muy conmovido? Si anhela aprender aquí, tome medidas rápidamente.