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
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
Dim Auxiliar()
Redim Auxiliar(9)
Application("Opiniones")=Auxiliar
End Sub
</SCRIPT>
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://"&_
Request.ServerVariables("SERVER_NAME")&_
Request.ServerVariables("SCRIPT_NAME") %>
<html>
<head>
<META HTTP-EQUIV="REFRESH" CONTENT="5;<%=PaginaActual%>">
<title>MiniChat (visualización)</title>
</head>
<body>
<FONT FACE="Comic Sans MS" COLOR="Blue" size="1">
<%
IF NOT isArray( Application("Opiniones")) THEN
Application.Lock
Dim Auxiliar()
Redim Auxiliar(9)
Application("Opiniones")=Auxiliar
Application.UnLock
END IF
Temporal=Application("Opiniones")
FOR Opinion=8 to 0 step -1%>
<%= Temporal(Opinion) %> <BR>
<% NEXT %>
<FONT>
</body>
</html>
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
<%
IF Request.Cookies("Apodo")="" and request.form("opinion")<>"" THEN
if request.form("apodo")<>"" then
Response.Cookies("Apodo")=Request.Form("Apodo")
else
Response.Cookies("Apodo")="Anonimo"
end if
Application.Lock
Temporal=Application("Opiniones")
FOR i=7 TO 0 STEP -1
Temporal(i+1)=Temporal(i)
NEXT
if request.form("apodo")<>"" then
Temporal(0)="<FONT COLOR=""#000000"">** " & Request.Form("Apodo") & " ** Entra en el minichat</FONT>"
else
Temporal(0)="<FONT COLOR=""#000000"">** Anonimo ** Entra en el minichat</FONT>"
end if
Application("Opiniones")=Temporal
Application.Unlock
END IF
IF Request.Form("Opinion")<>"" THEN
Apodo=Request.Cookies("Apodo")
Application.Lock
Temporal=Application("Opiniones")
FOR i=7 TO 0 STEP -1
Temporal(i+1)=Temporal(i)
NEXT
Temporal(0)=Apodo&": "&Request.Form("Opinion")
Application("Opiniones")=Temporal
Application.Unlock
END IF%>
<html>
<head>
<title>incluir opinion</title>
<base target="_self">
</head>
<body bgcolor="#6699FF">
<FORM METHOD="POST" ACTION="incluir.asp">
<% IF Request.Cookies("Apodo")="" THEN %>
<font color="#FFFFFF">
Apodo:</font> <INPUT TYPE="TEXT" SIZE=10 NAME="Apodo">
<input type="hidden" name="go" size="20" value="si"><BR>
<% END IF %>
<INPUT TYPE="TEXT" SIZE=30 NAME="Opinion">
<INPUT TYPE="SUBMIT" VALUE="Enviar">
<a href="cerrar.asp" target="_top">Salir</a>
</FORM>
</body>
</html>
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
Application.Lock
Temporal=Application("Opiniones")
FOR i=7 TO 0 STEP -1
Temporal(i+1)=Temporal(i)
NEXT
Temporal(0)="<FONT COLOR=""#FF0000"">** " &Request.cookies("Apodo")&" ** Se va del minichat</FONT>"
Application("Opiniones")=Temporal
Application.Unlock
response.cookies("apodo")=""
END IF%>
<HTML>
<HEAD>
<script language="JavaScript">
{close();}
</SCRIPT>
</HEAD>
<BODY>
</BODY>
</HTML>
5.- Ahora lo montamos todo en una pagina de frames
default.asp
<html>
<head>
<title>Salon de conversación</title>
</head>
<FRAMESET rows="*,70">
<FRAME SRC="visualizacion.asp">
<FRAME SRC="incluir.asp" target="_self">
</FRAMESET>
</html>
6.- Para que quede "bonito" mostraremos el chat en una nueva ventana sin barras y mas pequeña, eso lo haremos con javaScript
<HTML>
<HEAD>
<script language="JavaScript">
<!--
function openWindow(url, name) {
popupWin = window.open(url, name, 'scrollbars,resizable,width=400,height=350')
}
// -->
</script>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#000000" VLINK="#000000">
<a HREF="javascript:openWindow('default.asp', 'minichat');">Enter chatroom</a>
</BODY>
</HTML>
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
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
Dim Auxiliar()
Redim Auxiliar(9)
Application("Opiniones")=Auxiliar
End Sub
</SCRIPT>
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://"&_
Request.ServerVariables("SERVER_NAME")&_
Request.ServerVariables("SCRIPT_NAME") %>
<html>
<head>
<META HTTP-EQUIV="REFRESH" CONTENT="5;<%=PaginaActual%>">
<title>MiniChat (visualización)</title>
</head>
<body>
<FONT FACE="Comic Sans MS" COLOR="Blue" size="1">
<%
IF NOT isArray( Application("Opiniones")) THEN
Application.Lock
Dim Auxiliar()
Redim Auxiliar(9)
Application("Opiniones")=Auxiliar
Application.UnLock
END IF
Temporal=Application("Opiniones")
FOR Opinion=8 to 0 step -1%>
<%= Temporal(Opinion) %> <BR>
<% NEXT %>
<FONT>
</body>
</html>
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
<%
IF Request.Cookies("Apodo")="" and request.form("opinion")<>"" THEN
if request.form("apodo")<>"" then
Response.Cookies("Apodo")=Request.Form("Apodo")
else
Response.Cookies("Apodo")="Anonimo"
end if
Application.Lock
Temporal=Application("Opiniones")
FOR i=7 TO 0 STEP -1
Temporal(i+1)=Temporal(i)
NEXT
if request.form("apodo")<>"" then
Temporal(0)="<FONT COLOR=""#000000"">** " & Request.Form("Apodo") & " ** Entra en el minichat</FONT>"
else
Temporal(0)="<FONT COLOR=""#000000"">** Anonimo ** Entra en el minichat</FONT>"
end if
Application("Opiniones")=Temporal
Application.Unlock
END IF
IF Request.Form("Opinion")<>"" THEN
Apodo=Request.Cookies("Apodo")
Application.Lock
Temporal=Application("Opiniones")
FOR i=7 TO 0 STEP -1
Temporal(i+1)=Temporal(i)
NEXT
Temporal(0)=Apodo&": "&Request.Form("Opinion")
Application("Opiniones")=Temporal
Application.Unlock
END IF%>
<html>
<head>
<title>incluir opinion</title>
<base target="_self">
</head>
<body bgcolor="#6699FF">
<FORM METHOD="POST" ACTION="incluir.asp">
<% IF Request.Cookies("Apodo")="" THEN %>
<font color="#FFFFFF">
Apodo:</font> <INPUT TYPE="TEXT" SIZE=10 NAME="Apodo">
<input type="hidden" name="go" size="20" value="si"><BR>
<% END IF %>
<INPUT TYPE="TEXT" SIZE=30 NAME="Opinion">
<INPUT TYPE="SUBMIT" VALUE="Enviar">
<a href="cerrar.asp" target="_top">Salir</a>
</FORM>
</body>
</html>
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
Application.Lock
Temporal=Application("Opiniones")
FOR i=7 TO 0 STEP -1
Temporal(i+1)=Temporal(i)
NEXT
Temporal(0)="<FONT COLOR=""#FF0000"">** " &Request.cookies("Apodo")&" ** Se va del minichat</FONT>"
Application("Opiniones")=Temporal
Application.Unlock
response.cookies("apodo")=""
END IF%>
<HTML>
<HEAD>
<script language="JavaScript">
{close();}
</SCRIPT>
</HEAD>
<BODY>
</BODY>
</HTML>
5.- Ahora lo montamos todo en una pagina de frames
default.asp
<html>
<head>
<title>Salon de conversación</title>
</head>
<FRAMESET rows="*,70">
<FRAME SRC="visualizacion.asp">
<FRAME SRC="incluir.asp" target="_self">
</FRAMESET>
</html>
6.- Para que quede "bonito" mostraremos el chat en una nueva ventana sin barras y mas pequeña, eso lo haremos con javaScript
<HTML>
<HEAD>
<script language="JavaScript">
<!--
function openWindow(url, name) {
popupWin = window.open(url, name, 'scrollbars,resizable,width=400,height=350')
}
// -->
</script>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#000000" VLINK="#000000">
<a HREF="javascript:openWindow('default.asp', 'minichat');">Enter chatroom</a>
</BODY>
</HTML>
Pedro Rufo Martín
Webmaster de www.asptutor.com