
26/10/2006, 12:55
|
 | | | 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">   ;
<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 |