Foros del Web » Programando para Internet » ASP Clásico »

mandar formulario a popup

Estas en el tema de mandar formulario a popup en el foro de ASP Clásico en Foros del Web. para agradecer el uso de esta pagina me tomo la libertad de por el siguiente codigo que manda los datos de un formulario de busqueda ...
  #1 (permalink)  
Antiguo 30/03/2011, 11:48
 
Fecha de Ingreso: marzo-2011
Mensajes: 1
Antigüedad: 13 años, 7 meses
Puntos: 0
De acuerdo mandar formulario a popup

para agradecer el uso de esta pagina me tomo la libertad de por el siguiente codigo que manda los datos de un formulario de busqueda para borrar y que despues esta busqueda se cierre y que abra otro popup donde esta la funcion de borrar

bien es sistema funciona asi..

1.-al dar click en borrar aparece un popup donde existen dos cajas de texto uno busca folio y otro nombre al dar click en el boton buscar
este popup se cierra y abre otro popup asp que contiene un gif simulando borrar el archivo que logico tiene el codigo DELETE para borrar los datos

2.- codigo

popup borrar:

<li><a href="javascript:Borrar('Delete.asp')" >Borrar</a></li>

<head>

<SCRIPT LANGUAGE="JavaScript">

function Borrar(URL) {
day = new Date();
id = day.getTime();
eval("page" + id + " = window.open(URL, '" + id + "', 'toolbar=0,scrollbars=0,location=0,statusbar=0,men ubar=0,resizable=0,width=500,height=338,left = 262,top = 215');");
}
// End -->
</script>

</head>

cuando abre el popup


esto estara en el codigo

<!--si se fijan aqui en el formiulario ponemos directamente abrir el otro popup



<form name="formulario" method="post" action="DeleteRegistro.asp" onsumit="window.open('','Formdelete','width=500,he ight=290,left=500,top=338);" ><table width="501" height="348" border="0">
<tr>
<td width="589" height="273" class="fondo_Table">
<div class="cajas">
<div class="usuari">
<input type="text" name="folio" id="folio" value="" >
</div>
<div class="pass">
<input type="text" name="nombre" id="NomAP" value="" >
</div>

</div><!--fin de cajas-->
</td>
</tr>

</table>
<!--el boton lo modifique para que aparesca con imagnes editas que hice en el fireword-->

<div class="btn">

<a href="javascript:cerrar1popup();"> </a><!--aqui manda a la funcion para cerrar este popup y abra el otro con el siguiente codigo-->

<input type="image" class="botonCal1" id="f_btn3" src="../../Imagenes/Marcos_Login/Difusion/Busquedas/BusqEditBtn.png" onmouseover="sobre()" onmouseout="fuera()" onclick="funcion()"/>

<script language="javascript">
function sobre(){
document.getElementById("f_btn3").src="BusqEditBtn _f2.png";
}
function fuera(){
document.getElementById("f_btn3").src="BusqEditBtn .png";
}
function funcion(){
document.getElementById("formulario").submit().src ="BusqEditBtn.png";
}

</script>

</div>

</form>

y esta es la funcion que cierra este popup sin que aparesca el tan idiado mensague de confirmancion en IE8 en otros no se si funciona

function cerrar1popup() {
close();
}

con esto ya se abre el otro popup

con el cual reciben igual las variables
con el Request.form("y nos nombre de las cajas de texto de su form")

con la funsion delete que les pongo a continuacion con el codigo completo

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Borrando Registro</title>

<Script Language=JavaScript Type='Text/JavaScript'>

function cerrar(url_pop) {
window.focus();
setTimeout('window.close();',5000);
}
-->
</Script>
<style>
.contenido{
width:500px;
height:261px;
margin-left:auto;
margin-right:auto;
}
</style>
</head>
<BODY onLoad="cerrar('DeleteRegistro.asp')">
<div class="contenido">

<%dim oConn,StrSQL,folio,nombre

folio = Request.form("folio")
nombre = Request.form("nombre")

if folio <> "" then

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("DB.mdb"))

StrSQL="delete from servicio where folio ='"& Folio &"'"
oConn.Execute(StrSQL)
end if

if nombre <> "" then
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("DB.mdb"))
StrSQL="delete from servicio where nombres ='"& nombre &"'"
oConn.Execute(strSQL)

end if

oConn.Close
set oConn = nothing

%>
<img src="Basura.gif" / ></div>

</body>
</html>

si se fija ya en esta pagina que tambien es popup hace el proceso de borrar y luego desaparece en 5 segundos si que salga el mensaje de confirmancion

por el momento eso es todo agradesco a esta pagina que me a servido bastante si necestian mas rutinas con asp script o algo que no les salga mi corrreo esta aqui para responderles gracias

Etiquetas: mandar, popup, formulario
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 20:01.