Puede que ASP no sea el lenguaje mas idóneo para una aplicación de chat, pero el caso es que funciona y al ser ASP es completamente compatible con cualquier navegador, y además es, como veréis, tremendamente sencillo de desarrollar.
Puede que ASP no sea el lenguaje mas idóneo para una aplicación de chat, pero el caso es que funciona y al ser ASP es completamente compatible con cualquier navegador, y además es, como veréis, tremendamente sencillo de desarrollar. El código que os muestro es el utilizado en el chat de esta web, el introducir mejoras ya es cosa vuestra, es fácil añadir funcionalidades al estilo de las que veréis en otros chat en Java, como colores, lista de usuarios, etc … Bueno, empezamos por el principio. 1.-Lo primero que necesitamos es un lugar para almacenar las frases que los usuarios introduzcan para luego mostrarlas. Para ello usaremos un array de nueve elementos, que seran la cantidad de frases que mostraremos en el chat ( podéis cambiar el numero a lo que os parezca oportuno). Este array lo guardaremos dentro del objeto Application, a fin de que pueda ser accedido por todo el mundo. A fin de que este disponible siempre, la crearemos dentro del archivo global.asa. Global.asa
A partir de este momento tenemos una variable de aplicación denominada «opiniones» que contiene nuestro chat 2.-Lo siguiente que necesitamos es una página que nos muestre el contenido de nuestro chat (es decir, lo que hay en application(«opiniones»). A este modulo lo denominaremos visualización.asp. Consiste en una pagina que se llama a si misma cada x segundos (META HTTP-EQUIV=»REFRESH» CONTENT=»5), con lo que nos refresca la información, y que muestra los datos contenidos en Application(«opiniones») mediante un sencillo bucle FOR Visualizacion.asp <% PaginaActual="http://"&_
<% IF NOT isArray( Application(«Opiniones»)) THEN Application.Lock Dim Auxiliar() Redim Auxiliar(9) Application(«Opiniones»)=Auxiliar Application.UnLock END IF Temporal=Application(«Opiniones»)
3.-Nuestro tercer modulo sera «incluir.asp» el cual nos va a permitir que los usuarios escriban opiniones en el chat. Para que un usuario escriba una aportación, este usuario debe estar identificado por un apodo o «nick», este apodo lo guardaremos en una cookie. incluir.asp <% END IF
4.- Cuando el usuario termine su sesión de chat debemos eliminar la cookie que lo identifica, para ello usaremos el modulo cerrar.asp cerrar.asp <% if Request.cookies("Apodo")<>«» then END IF%> 5.- Ahora lo montamos todo en una pagina de frames default.asp
6.- Para que quede "bonito" mostraremos el chat en una nueva ventana sin barras y mas pequeña, eso lo haremos con javaScript Enter chatroom
|
Leave A Comment