Ver Mensaje Individual
  #1 (permalink)  
Antiguo 26/10/2006, 12:55
Avatar de aurelitus
aurelitus
 
Fecha de Ingreso: marzo-2006
Mensajes: 59
Antigüedad: 19 años
Puntos: 0
Titulo de pagina con FRAMES

Hola a todos, no se si han visto o utilizado el codigo de un minichat que encontre en el foro, el que utiliza una pagina ASP con FRAMES.

Mi pregunta es : como puedo adicionarle a estos programas que cambie el titulo de la pagina y/o que cambie de color... copio el codigo para los que no lo han visto, la verdad no recuerdo quien es el dueño, de antemano que disculpe.

esta pagina asp es la que agrupa las otras tres paginas dentro de los FRAMES, concepto que no manejo para nada.

DEFAULT.ASP
<html>

<head>
<title><Salon de conversación></title>
</head>

<FRAMESET rows="*,100">
<FRAME SRC="visualizacion.asp">
<FRAME SRC="incluir.asp" target="_self">
</FRAMESET>

</html>




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)="[" & time()& "]" & Apodo & ": " & Request.Form("Opinion")
Application("Opiniones")=Temporal
Application.Unlock
END IF
X=Request.Form("OPINION")
%>

<html>

<head>
<title><%=X%></title>
<base target="_self">
</head>

<body bgcolor="#FFFFFF">
<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">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp ;&nbsp;&nbsp;
<a href="cerrar.asp" target="_top">Salir</a>
</FORM>
</body>

</html>



VISUALIZACION.ASP

<% PaginaActual="http://"&_
Request.ServerVariables("SERVER_NAME")&_
Request.ServerVariables("SCRIPT_NAME") %>
<html>

<head>
<META HTTP-EQUIV="REFRESH" CONTENT="5;<%=PaginaActual%>">
<title><%=X%></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>
<%
X=TEMPORAL(OPINION)
%>


<% NEXT %>

<FONT>
</body>

</html>

OJALA ALGUIEN ME PUEDA DAR ALGUNA AYUDA.

GRACIAS