![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
13/11/2006, 02:01
|
| | Fecha de Ingreso: diciembre-2005
Mensajes: 11
Antigüedad: 19 años, 1 mes Puntos: 0 | |
Hola, os pongo el código de frames.asp y de sup.asp, ok?
No son htm, sino asp, pero sencillos.
A ver qué, ojalá alguien esté inspirado esta mañana de lunes... FRAMES.ASP
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 3.2//EN">
<html>
<head>
<title>La Xarxa - Eina de comunicació corporativa</title>
<%'*********** Esta funcion rellena el IdXarxa en el formulario y lo envia%>
<SCRIPT Language="javascript">
function CargaXarxa(IdXarxa)
{
document.Form1.IdXarxa.value=IdXarxa;
document.Form1.submit();
}
</SCRIPT>
</head>
<%
If not (Request("contrasenya")="yeyepu") then
response.write "Accés denegat<br>"
else
'*********** Este es el formulario que postará la password%>
<form name="Form1" method="POST" action="xarxa.asp" target="blank">
<input type="hidden" name="contrasenya" size="10" value=<%="'" & Request("contrasenya") & "'"%>>
<input type="hidden" name="IdXarxa" value="" size="10">
</form>
<frameset rows="30%,*">
<frame src="sup.asp" scrolling="auto" border=0 frameborder=0 marginwidth="0" marginheight="0" name="superior" target="principal">
<frameset cols="26%,*">
<frame src="izquierda.asp" scrolling="auto" border=0 frameborder=0 marginwidth="0" marginheight="0" name="esquerre" target="principal">
<frame src="principal.asp" resizable="yes" scrolling="auto" border=0 frameborder=0 marginwidth="0" marginheight="0" name="principal" target="principal">
</frameset>
</frameset>
<%end if
%>
<noframes>
<body>
<p>Aquesta plana utilitza frames, i el seu navegador no els suporta.</p>
</body>
</noframes>
</html>
----------------------------------------- SUP.ASP
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 3.2//EN">
<html>
<head>
<title>La Xarxa</title>
<base target="principal">
<%'*********** Esta funcion rellena el IdXarxa en el formulario y lo envia%>
<script languaje="javascript">
var contras=top.document.Form1.contrasenya.value;
function CargaXarxa(IdXarxa,mot)
{
document.Form1.IdXarxa.value=IdXarxa;
document.Form1.contrasenya.value=contras;
document.Form1.paraula.value=mot;
document.Form1.submit();
}
</SCRIPT>
</head>
<%
Dim rs
Dim SQL
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.ConnectionTimeout = 15
DataConn.CommandTimeout = 30
DataConn.Open "dsn=dsnXarxa"
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Xarxes ORDER BY IdXarxa DESC"
cmdTemp.CommandText = SQL
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = DataConn
rs.Open cmdTemp, , 1, 3
' ejecución de la consulta
if rs.recordcount>0 then
rs.movefirst
'*********** Este es el formulario tiene cargada la password y un espacio para el IdXarxa%>
<form name="Form1" method="POST" action="xarxa.asp" target="blank">
<input type="hidden" name="contrasenya" value="" size="10">
<input type="hidden" name="IdXarxa" value="" size="10">
<input type="hidden" name="paraula" value="" size="40">
</form>
<body bgcolor="#FFFFE6">
<center>
<table border="0" cellspacing="0" width="100%" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0">
<tr>
<td bgcolor="#FFB51A">
<p align="left">
<img border="0" src="logo_small_taronja.gif" align="middle"><font size="2" color="#FFFFFF" face="MS Sans Serif, Arial"><br>
</font>
<font size="1" color="#295300" face="MS Sans Serif, Arial">Eina de comunicació directiva de la Corporació Sanitària Parc Taulí</font></td>
<td bgcolor="#FFB51A" width="30%" height="100">
<p align="center">
<img border="0" src="pasti_logo_taronja.gif" align="middle"><img border="0" src="Logo_20anys_OK_taronja_small2.jpg"></td>
</tr>
<tr>
<td bgcolor="#FFFFE6" colspan="2" height="9">
</td>
</tr>
<tr>
<td bgcolor="#FFFFE6" colspan="2" height="9">
<img border="0" src="vinyet.gif">
<font face="MS Sans Serif, Arial" color="#295300" size="1">Accés
a</font><font face="MS Sans Serif, Arial" color="#295300" size="2"><B> </b> </font>
<font face="MS Sans Serif, Arial" color="#295300">
<a style="text-decoration:underline; cursor:hand" onclick="CargaXarxa(<%=rs("Idxarxa")%>,'');">
<B>
La Xarxa <%=rs("Idxarxa")%> </b><font size="1">>>></font></a></font></font><font size="2" color="#295300" face="MS Sans Serif, Arial"> </font>
<font size="1" color="#295300" face="MS Sans Serif, Arial">- darrera edició, de <%=rs("Data")%></font></td>
</tr>
</table>
</center>
<%end if%>
</body>
</html> |