Ver Mensaje Individual
  #1 (permalink)  
Antiguo 08/02/2003, 19:32
el maracuchito
 
Fecha de Ingreso: diciembre-2002
Mensajes: 4
Antigüedad: 22 años, 5 meses
Puntos: 0
Ayudad para crear un CHAT en ASP

Yo soy Nuevo en ASP por unas páginas encontré esto Chat en asp en ejemplo
Quiero poner en mi Web un Chat en asp OK
Yo lo hice como esta en el ejemplo para ver como funcionaba
Primero me habría el Chat pero me decía, Abrir o guardar la parte de Incluir .asp
Yo le puse para que no me saliera el mensaje de abrir o guardar archivo le coloque en la parte de arriba <HTML> y no me salio mas el guardar o abrir archivo
Muy bien todo después me pide todo el Apodo y un texto para entrar
Pero no me sale nada y no entro quiero saber que debo hacer para entrar en el Chat y funcione correctamente..
Que significa esto y que debo colocar hay si mi dirección de mi pagina no entiendo esto

<link rel="stylesheet" href="../incluidos/estilos.css" type="text/css">
<% PaginaActual = "http://" & request.servervariables("SERVER_NAME") & request.servervariables("SCRIPT_NAME") %>
Que tengo que colocar hay cera por eso que no me funciona bien
1-Incluir
Aquí donde puse <HTML> para que no me guardara o abrir Archivo

<%
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=""#FFFFFF"">*** " & request.form("apodo") & " entra [" & hour(now) & ":" & minute(now) & "]</font>"
else
temporal(0)="<font color=""#FFFFFFF"">*** Anonimo entra [" & hour(now) & ":" & minute(now) & "]</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>Chat</title>
<base target="_self">
<link rel="stylesheet" href="../incluidos/estilos.css" type="text/css">
</head>
<body onload="javascript:document.frm.opinion.focus();" bgcolor="#800000" text="#FF0000">
<hr color="#FF0000">
<table border="0" width="100%" align="center">
<form name="frm" method="post" action="incluir.asp">
<tr>
<th colspan="2"><font color="#FFFFFF">Bienvenido&nbsp; Chat </font></th>
</tr>
<% if request.cookies("apodo") = "" then %>
<tr>
<th width="5" class="texto"><font color="#FFFFFF">Nick</font></th>
<td class="textopeq">
<input type="text" size=10 name="apodo" class="Fields">
<input type="hidden" name="go" size="20" value="si">
<font color="#FFFFFF"> (Escribe un nick y un texto para entrar)</font></td>
</tr>
<% end if %>
<tr>
<th width="5" class="texto"><font color="#FFFFFF">Texto</font></th>
<td>
<input type="text" size=30 name="opinion" class="Fields">
&nbsp;
<input type="submit" value="Enviar" class="submit">
</td>
</tr>
</form>
</table>
</body>
</html>

2-visualización
<% PaginaActual = "http://" & request.servervariables("SERVER_NAME") & request.servervariables("SCRIPT_NAME") %>
<html>
<head>
<meta http-equiv="refresh" content="2;<%=PaginaActual%>">
<title>Chat hipozulia</title>
<link rel="stylesheet" href="../incluidos/estilos.css" type="text/css">
</head>
<body bgcolor="#800000" text="#FF0000">
<table width="96%" border="0" cellspacing="0" cellpadding="1" align="center" height="250">
<tr>
<td bgcolor="#000000">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="250">
<tr>
<td bgcolor="#" class="Fields">
<%
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
response.write temporal(opinion) & "<br>"
next
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>

3- cerrar
<%
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")&" cierra [" & hour(now) & ":" & minute(now) & "]</font>"
application("opiniones") = temporal
application.unlock
response.cookies("apodo") = ""
end if
%>
<html>
<head>
<script language="javascript">{close();}</script>
</head>
<body>
</body>
</html>

4-default
html>
<head>
<title>Chat</title>
</head>
<frameset rows="*,100" border="0">
<frame src="visualizacion.asp">
<frame src="incluir.asp" target="_self" scrolling="no" noresize>
</frameset><noframes></noframes>
</html>