Foros del Web » Programando para Internet » Javascript »

pasar datos de un popup a un form

Estas en el tema de pasar datos de un popup a un form en el foro de Javascript en Foros del Web. una consulta mas, dentro de la pagina principal en realidad tengo tres campos de texto con botones para subir diferentes imagenes, como tendria que hacer ...

  #31 (permalink)  
Antiguo 29/04/2004, 16:46
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 22 años, 8 meses
Puntos: 1
una consulta mas, dentro de la pagina principal en realidad tengo tres campos de texto con botones para subir diferentes imagenes, como tendria que hacer para no tener que repetir el codigo javascript en la pagina principal y para no tener que hacer 3 paginas popup con el mismo codigo y solo cambiando alguna linea?
No se si se entiende bien.
bueno espero tu ayuda gracias
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #32 (permalink)  
Antiguo 30/04/2004, 07:06
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 22 años, 8 meses
Puntos: 1
help me tunait
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #33 (permalink)  
Antiguo 30/04/2004, 16:19
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 22 años, 8 meses
Puntos: 1
pliss alguien que me ayude, con estoooooooooo?
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #34 (permalink)  
Antiguo 01/05/2004, 07:46
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 22 años, 8 meses
Puntos: 1
pliss tunait, ayudame
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #35 (permalink)  
Antiguo 01/05/2004, 12:04
 
Fecha de Ingreso: febrero-2001
Mensajes: 1.374
Antigüedad: 24 años, 1 mes
Puntos: 11
mira, te iba a dar una solucion con codigo y todo, porque yo estoy haciendo lo mismo en un sitio, pero no se porque segui leyendo los mensajes que dejaste y lei una respuesta que le dejaste a caricatos que realmente me quito todas las ganas de ayudarte.

alguien que viene aca pidiendo ayuda y responde como respondiste vos no merece ni el menor esfuerzo de mi parte, hablo por mi, no por los demas. chau.
  #36 (permalink)  
Antiguo 01/05/2004, 14:09
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 22 años, 8 meses
Puntos: 1
ok, lamento que vos pienses eso, ademas creo que cuando uno quiere dar una ayuda lee los mensajes.
¿Que te pareceria si vos dejas un mensaje y vengo yo y te escribo cualquiera, sin saber de lo que vos estas hablando, me parece de muy mal gusto, si queres ayudar lee el mensaje y despues si podes ayudar, le respondes y si no sabes seguis de largo, no es cuestion de escribir para quedar bien, es cuestion de ayudar.
De cualquier modo respeto tu punto de vista y espero que tambien respeten el mio.
igualmente gracias
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #37 (permalink)  
Antiguo 01/05/2004, 14:41
Avatar de caricatos
Moderador
 
Fecha de Ingreso: abril-2002
Ubicación: Torremolinos (Málaga)
Mensajes: 19.607
Antigüedad: 22 años, 11 meses
Puntos: 1284
Hola a todos:

La verdad es que yo también tengo algo similar en alguna página mia, pero no tengo muy clara la pregunta, y no tengo ganas de pedir una explicación mejor porque ni me ha parecido bien la respuesta que me diste anteriormente, ni me parece bien la que le das a Tukzone...
Creo que necesitarías algo así como una "cura de humildad" o no sé como llamarlo.
Seguí el mensaje pero no participé, y creo que la primera respuesta que te dí era buena en javascript ... y resulta que el problema estaba en el código asp... (lenguaje que no controlo)... Además te respondí después de 3 intentos frustrados de llamar la atención, y ahora, después de 4 (cuatro) no consigues que te respondan ...

No te preocupes que no soy rencoroso y si puedo trataré de ayudarte, pero necesito saber que quieres realmente...

Si te animas a describir mejor tu problema, intentaré echarte una mano.

Saludos
  #38 (permalink)  
Antiguo 02/05/2004, 10:57
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 22 años, 8 meses
Puntos: 1
tengo tres botones y textboxes para abrir la misma popup, donde subo imagenes al servidor, ahora la pregunta como hago para saber de cual de esos botones es el que abrio la popup y saber en cual debo dejar el resultado final en los textbox.

con respecto a lo que me dices, no quiero seguir con el tema, puede ser que yo te haya entendido mal o tu a mi. si en todo caso fui yo lo siento mucho, mi intencion nunca en el foro fue tratar mal a los compañeros que con mucho gusto siempre estan dispuestos a brindarte una mano, pero la verdad es que tu respuesta me dejo un poco desorientado.
sori y gracias
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #39 (permalink)  
Antiguo 02/05/2004, 12:51
Avatar de caricatos
Moderador
 
Fecha de Ingreso: abril-2002
Ubicación: Torremolinos (Málaga)
Mensajes: 19.607
Antigüedad: 22 años, 11 meses
Puntos: 1284
Hola otra vez:

Tal vez baste con poner un campo oculto que se actualice al pulsar al botón con el destino que sea:

<form name="formulario" action=formulario.php method=... >
<input type=hidden name=destino />

<input type=button onclick='destino.value = "campo1"; this.form.submit()' />
<input type=text name="campo1" />

<input type=button onclick='destino.value = "campo2"; this.form.submit()' />
<input type=text name="campo2" />

<input type=button onclick='destino.value = "campo3"; this.form.submit()' />
<input type=text name="campo3" />
</form>

La verdad es que no creo que se trate de un formulario, pero con esto enviaría la información que se podría leer fácilmente desde un cgi, si es con un enlace normal podrías añadir al enlace el destino desde el mismo botón:

<input type=button onclick='window.open("formulario.html?destino=camp o1", "", "")' />

Espero que te sirva.

Saludos
  #40 (permalink)  
Antiguo 03/05/2004, 00:41
Avatar de caricatos
Moderador
 
Fecha de Ingreso: abril-2002
Ubicación: Torremolinos (Málaga)
Mensajes: 19.607
Antigüedad: 22 años, 11 meses
Puntos: 1284
Hola otra vez:

Por lo pronto, aquí tienes un ejemplillo que funciona:

Página principal:

<html>
<head>
<script type="text/javascript">
function asignar(sitio, dato) {
document.forms.prueba[sitio].value = dato;
}

function enviar(x) {
window.open("popup.html?destino=" + x.name, "popup", "width=300,height=200,status=yes");
}
</script>
</head>
<body>
<form name="prueba" action="destino.html" target="">
<input type="text" name="dato1" value="" />
<input type="button" value="popup" onclick="enviar(dato1)" />

<input type="text" name="dato2" value="" />
<input type="button" value="popup" onclick="enviar(dato2)" />

<input type="text" name="dato3" value="" />
<input type="button" value="popup" onclick="enviar(dato3)" />
</form>
</body>
</html>

Popup:

<html>
<head>
<script>
function dejar(esto) {
var destino = location.search.split('=')[1];
opener.asignar(destino, esto.dato.value);
window.close();
}
</script>
</head>
<body>
<form>
<input type="text" name=dato />
<input type="button" value=enviar onclick="dejar(this.form)" />
</form>
</body>
</html>

Saludos
  #41 (permalink)  
Antiguo 03/05/2004, 02:45
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 22 años, 8 meses
Puntos: 1
Bueno, primero es lo primero y para terminar:
Ayer le comente a mi novia lo que estaba sucediendoen realidad ella vio tu respuesta anterior y mi contestacion y me pregunto lo que pasaba y le comente, le mostre como empezo todo y al releer el mensaje en cuestion me di cuenta que estube mal, ademas de que ella tambien me lo dijo, y realmente te pido disculpas, no fue mi intencion decir eso, pero sin que esto sea una excusa, debe ser que ese dia no estubiera muy bien.
De cualquier modo veo tu buena voluntad y ha eso me refiero cuando hay buena voluntad se ayuda. y desde ya muchas gracias por la tuya y por dejar pasar mi mala respuesta.
Ahora con respecto a lo que me dejastes voy a probarlo ahora mismo y despues te comento que paso
Saludos
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #42 (permalink)  
Antiguo 03/05/2004, 03:56
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 22 años, 8 meses
Puntos: 1
me parece que el problema lo tengo en el popup, porque yo tengo esto y es diferente a lo que vos me pones y la verdad no se como adaptarlo:
<script language="Javascript1.2">
function cierra_ventana() {
var NomArch
NomArch="<%=FileName%>"
//opener.document.armar.foto.value = "/fotos/" + NomArch;
close();
}
</script>

pero la cosa no queda solo ahi, en la pagina principal al hacer clik en el boton no abre el popup
que puede ser?
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #43 (permalink)  
Antiguo 03/05/2004, 04:28
Avatar de caricatos
Moderador
 
Fecha de Ingreso: abril-2002
Ubicación: Torremolinos (Málaga)
Mensajes: 19.607
Antigüedad: 22 años, 11 meses
Puntos: 1284
Hola otra vez:

Intentemos ir por partes:

Cuando insertas código que no sea javascript/html es más difícil encontrar una respuesta, aunque supongo que
NomArch="<%=FileName%>"
asigna a NomArch el valor de una variable asp FileName, y si es así el opener que has convertido a comentario podría estar bien, pero para saber si: NomArch="<%=FileName%>" es una asignación correcta tendrás que mirar el código fuente del popup, no es muy complicado y te quita de dudas fácilmente.

Aunque lo importante en un principio es que se abra el popup
La única forma de abrirlo es con window.open y en la línea puedes poner los parámetros.

Pon el código que abre el popup para ver si va bien (a veces es mejor ir "piano, piano..."

Saludos
  #44 (permalink)  
Antiguo 04/05/2004, 03:25
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 22 años, 8 meses
Puntos: 1
el tema es que antes andaba bien, tunait me ayudo en este tema y funciona pero solo mandaba el dato a un solo textbox y yo necesito modificarlo para que se abra por dos lados mas con diferentes texbox en donde dejar el dato. bueno probare el tema para de que se habra el popup y despues te comento
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #45 (permalink)  
Antiguo 04/05/2004, 03:47
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 22 años, 8 meses
Puntos: 1
no se porque pero no lo habre revise todo segun lo pusistes vos pero nada.
asi es como lo tego
textbox 1
<%=idFoto%> es una variable por si viene para crear uno nuevo o para modificar los datos. digamos que si es un registro nuevo no pone nada pero si viene para modificar pone lo que hay en la base de datos.
<input name="foto" type="text" id="foto" size="25" value='<%=idFoto%>'>
el boton
<input type="button" name="Submit" class="frmButton" value="Agregar" onClick="subFoto(foto)">
<input name="fotoG" type="text" id="fotoG" size="25" value='<%=idFotoG%>'>
<input type="button" name="Submit2" class="frmButton" value="Agregar" onClick="subFoto(fotoG)">
<input name="fotoC" type="text" id="fotoC" size="25" value='<%=idFotoC%>'>
<input type="button" name="Submit3" class="frmButton" value="Agregar" onClick="subFoto(fotoC)">

bueno en el script puse
function asignar(sitio, dato) {
document.forms.armar[sitio].value = dato;
}

function subFoto(x) {
open("upload.asp?destino=" + x.name","Agregar","width=500,height=200,toolbar=no ,directories=no,menubar=no,status=yes");
}

y en en el popup lo que te puse antes
el NomArch con la variable en asp, lo que hace es tomar el nombre del archivo que subi para mandarlo al textbox de la pagina central. para que pueda ser guardado en la base de datos.
espero que me entiendas, porque se me hace haveces un poco dificil explicarlo.
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #46 (permalink)  
Antiguo 04/05/2004, 13:51
Avatar de caricatos
Moderador
 
Fecha de Ingreso: abril-2002
Ubicación: Torremolinos (Málaga)
Mensajes: 19.607
Antigüedad: 22 años, 11 meses
Puntos: 1284
Hola otra vez:

Fíjate en la función subFoto(x)...
open("upload.asp?destino=" + x.name ","Agregar","")

Hay unas comillas de más detrás de lo que te puse en rojo, lo de rojo es que en vez de x.name tendría que ser x.value.

Saludos
  #47 (permalink)  
Antiguo 05/05/2004, 04:15
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 22 años, 8 meses
Puntos: 1
bueno ahora habre la popup hace todo pero al darle cerrar no me pasa los datos a los textbox de la pagina principal ni cierra la popup.

el codigo del boton
<input name="button" type="button" onClick="cierra_ventana(this.form)" value="<%=textBotCerrar%>"

el codigo del script
<script language="Javascript1.2">
function cierra_ventana(esto) {
var NomArch
NomArch="<%=FileName%>"
var destino = location.search.split('=')[1];
destino=destino + "/fotos/" + NomArch
//(este era el que tenia cuando hacia la prueba con solo uno de los textbox) opener.document.armar.foto.value = "/fotos/" + NomArch;
opener.asignar(destino, esto.dato.value);
close();
}
</script>

se me hace que no entra por el tema de que cierra_ventana(this.form) entra vacio puede ser eso?
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #48 (permalink)  
Antiguo 05/05/2004, 17:28
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 22 años, 8 meses
Puntos: 1
alguien que me pueda ayudar, pliss
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #49 (permalink)  
Antiguo 06/05/2004, 16:56
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 22 años, 8 meses
Puntos: 1
nadie me ayudara con esto?????
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #50 (permalink)  
Antiguo 07/05/2004, 03:47
Avatar de tunait
Moderadora
 
Fecha de Ingreso: agosto-2001
Ubicación: Terok Nor
Mensajes: 16.805
Antigüedad: 23 años, 6 meses
Puntos: 381
He tocado básicamente la parte de asp y ligeramente el javascript.

En mi compu funcionó ok, te dejo el código de ambos archivos en base a lo que me enviaste por email el otro día:

página inicial prueba.asp


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Documento sin t&iacute;tulo</title>
<script language="javascript" type="text/javascript">
function subFoto() {
open("upload.asp","","width=500,height=350,toolbar =no,directories=no,menubar=no,status=no");
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<form name="armar" method="post" action="">
<input type="text" name="foto" class="frmText" size="25">
<input type="text" name="foto2" class="frmText" size="25">
<input type="text" name="foto3" class="frmText" size="25">
<input type="button" value=prueba name="btnFoto" onClick="subFoto()">
</form>
</body>
</html>


************************************

Página upload.asp

<%@LANGUAGE="VBSCRIPT"%>
<%response.buffer=true%>

<%
Func = Request("Func")
if isempty(Func) Then
Func = 1
End if
Select Case Func
Case 1
%>

<table width="360" border="0" align="center">
<tr>
<td>
<div align="center">Selecciona una imagen para subir. </div>
</td>
</tr>
</table>
<form enctype="multipart/form-data" action="upload.asp?func=2" method=POST id=form1 name=form1>
<table align="center">
<tr>
<td>&nbsp;</td>
</tr>
<tr>
<td><font color="#330066" size="2">Pulsa en el botón examinar y elige el archivo
de tu ordenador.<br>
<br>
</font></td>
</tr>
<tr>
<td><font color="#330066" size="2">Luego pulsa el botón subir.<br>
<br>
</font></td>
</tr>
<tr>
<td><strong><font color="#330066" size="2">Nombre del archivo...</font></strong></td>
</tr>
<tr>
<td> <font size="2">
<input name=File1 size=30 type=file>
<br>
</font></td>
</tr>
<tr>
<td><strong><font color="#330066" size="2">Nombre del archivo...</font></strong></td>
</tr>
<tr>
<td> <font size="2">
<input name=File2 size=30 type=file>
<br>
</font></td>
</tr>
<tr>
<td><strong><font color="#330066" size="2">Nombre del archivo...</font></strong></td>
</tr>
<tr>
<td> <font size="2">
<input name=File3 size=30 type=file>
<br>
</font></td>
</tr>
<tr>
<td align=left>
<input type="submit" value="Subir">
<br>
<br>
</td>
</tr>
<tr>
<td><font color="#330066" size="2">NOTA: Espera, recibirás una notificación
cuando el archivo haya sido subido</font><font size="2">.<br>
<br>
</font></td>
</tr>
</table>
</form>
<%
Case 2
ForWriting = 2
adLongVarChar = 201
lngNumberUploaded = 0

'Get binary data from form
noBytes = Request.TotalBytes
binData = Request.BinaryRead (noBytes)
'convery the binary data to a string
Set RST = CreateObject("ADODB.Recordset")
LenBinary = LenB(binData)

if LenBinary > 0 Then
RST.Fields.Append "myBinary", adLongVarChar, LenBinary
RST.Open
RST.AddNew
RST("myBinary").AppendChunk BinData
RST.Update
strDataWhole = RST("myBinary")
End if

strBoundry = Request.ServerVariables ("HTTP_CONTENT_TYPE")
lngBoundryPos = instr(1,strBoundry,"boundary=") + 8
strBoundry = "--" & right(strBoundry,len(strBoundry)-lngBoundryPos)
'Get first file boundry positions.
lngCurrentBegin = instr(1,strDataWhole,strBoundry)
lngCurrentEnd = instr(lngCurrentBegin + 1,strDataWhole,strBoundry) - 1
Dim FileNameTotal,contador
contador = 1
%>
<script language="Javascript1.2">
function cierra_ventana() {
<%
Do While lngCurrentEnd > 0
'Get the data between current boundry and remove it from the whole.
strData = mid(strDataWhole,lngCurrentBegin, lngCurrentEnd - lngCurrentBegin)
strDataWhole = replace(strDataWhole,strData,"")

'Get the full path of the current file.
lngBeginFileName = instr(1,strdata,"filename=") + 10
lngEndFileName = instr(lngBeginFileName,strData,chr(34))
'Make sure they selected at least one file.
if lngBeginFileName = lngEndFileName and lngNumberUploaded = 0 Then

Response.Write "<H2> Ha ocurrido el siguiente error.</H2>"
Response.Write "Debes elegir un archivo para subir"
Response.Write "<BR><BR>Pulsa el botón volver, realiza la corrección."
Response.Write "<BR><BR><INPUT type='button' onclick='history.go(-1)' value='<< Volver' id='button'1 name='button'1>"
Response.End
End if
'There could be one or more empty file boxes.

if lngBeginFileName <> lngEndFileName Then
strFilename = mid(strData,lngBeginFileName,lngEndFileName - lngBeginFileName)

'Loose the path information and keep jus
' t the file name.
tmpLng = instr(1,strFilename,"\")

Do While tmpLng > 0
PrevPos = tmpLng
tmpLng = instr(PrevPos + 1,strFilename,"\")
Loop

FileName = right(strFilename,len(strFileName) - PrevPos)
if contador = 1 then
FileNameTotal = FileName
else
FileNameTotal = FileNameTotal & ", " & FileName
end if
'Get the begining position of the file data sent.
'if the file type is registered with the
' browser then there will be a Content-Type
lngCT = instr(1,strData,"Content-Type:")

if lngCT > 0 Then
lngBeginPos = instr(lngCT,strData,chr(13) & chr(10)) + 4
Else
lngBeginPos = lngEndFileName
End if
'Get the ending position of the file data sent.
lngEndPos = len(strData)

'Calculate the file size.
lngDataLenth = lngEndPos - lngBeginPos
'Get the file data
strFileData = mid(strData,lngBeginPos,lngDataLenth)
'Create the file.
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile (Server.MapPath ("\fotos") & "\" & FileName, ForWriting, True)
Dim FileName

f.Write strFileData
Set f = nothing
Set fso = nothing

lngNumberUploaded = lngNumberUploaded + 1

End if

'Get then next boundry postitions if any
' .
lngCurrentBegin = instr(1,strDataWhole,strBoundry)
lngCurrentEnd = instr(lngCurrentBegin + 1,strDataWhole,strBoundry) - 1
if contador <> 1 then
%>
opener.document.armar.foto<%=contador%>.value = "<%=FileName%>";
<%
else
%>
opener.document.armar.foto.value = "<%=FileName%>";
<%
end if
contador = contador+1
loop
End Select
%>
close();
}
</script>
Archivo subido
<%=FileNameTotal%> archivo ya está en el servidor.<br>
<input type="button" onClick="cierra_ventana()" value="Cerrar" >


</BODY>
</HTML>

Yá me contarás
  #51 (permalink)  
Antiguo 07/05/2004, 15:30
 
Fecha de Ingreso: mayo-2004
Ubicación: Managua, Nicaragua
Mensajes: 281
Antigüedad: 20 años, 10 meses
Puntos: 0
Ah, solo peluchadas es esta virla!!! probablemente es porque estas dentro del Script, intentá mandarlo desde código html a través de una función por valor, talvez!!!
__________________
Julio Hernández
  #52 (permalink)  
Antiguo 07/05/2004, 17:02
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 22 años, 8 meses
Puntos: 1
tunait, lo probe pero no funciona, ademas el tema es que hay tres textbox y tres botones uno para cada textbox, esto es porque sube diferentes imagenes, se entiende?
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #53 (permalink)  
Antiguo 08/05/2004, 04:57
Avatar de tunait
Moderadora
 
Fecha de Ingreso: agosto-2001
Ubicación: Terok Nor
Mensajes: 16.805
Antigüedad: 23 años, 6 meses
Puntos: 381
Ahí te respondo, no te vayas....
__________________
Javascript Códigos - Bambú difunde
  #54 (permalink)  
Antiguo 08/05/2004, 05:12
Avatar de tunait
Moderadora
 
Fecha de Ingreso: agosto-2001
Ubicación: Terok Nor
Mensajes: 16.805
Antigüedad: 23 años, 6 meses
Puntos: 381
A ver si te entendí ahora


prueba.asp

**********************
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Documento sin t&iacute;tulo</title>
<script language="javascript" type="text/javascript">
function subFoto(donde) {
open("upload.asp?item=" + donde,"","width=500,height=350,toolbar=no,director ies=no,menubar=no,status=no");
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<form name="armar" method="post" action="">
<input type="text" name="foto" class="frmText" size="25">
<input type="button" value=prueba name="btnFoto2" onClick="subFoto('foto')">
<br>
<input type="text" name="foto2" class="frmText" size="25">
<input type="button" value=prueba name="btnFoto3" onClick="subFoto('foto2')">
<br>
<input type="text" name="foto3" class="frmText" size="25">
<input type="button" value=prueba name="btnFoto" onClick="subFoto('foto3')">
</form>
</body>
</html>


*******************
upload.asp
*******************

<%@LANGUAGE="VBSCRIPT"%>
<%response.buffer=true%>

<%
Func = Request("Func")
if isempty(Func) Then
Func = 1
End if
Select Case Func
Case 1
%>

<table width="360" border="0" align="center">
<tr>
<td>
<div align="center">Selecciona una imagen para subir. </div>
</td>
</tr>
</table>
<form enctype="multipart/form-data" action="upload.asp?func=2&item=<%=request.querystr ing("item")%>" method=POST id=form1 name=form1>
<table align="center">
<tr>
<td>&nbsp;</td>
</tr>
<tr>
<td><font color="#330066" size="2">Pulsa en el botón examinar y elige el archivo
de tu ordenador.<br>
<br>
</font></td>
</tr>
<tr>
<td><font color="#330066" size="2">Luego pulsa el botón subir.<br>
<br>
</font></td>
</tr>
<tr>
<td><strong><font color="#330066" size="2">Nombre del archivo...</font></strong></td>
</tr>
<tr>
<td> <font size="2">
<input name=File1 size=30 type=file>
<br>
</font></td>
</tr>
<tr>
<td align=left>
<input type="submit" value="Subir">
<br>
<br>
</td>
</tr>
<tr>
<td><font color="#330066" size="2">NOTA: Espera, recibirás una notificación
cuando el archivo haya sido subido</font><font size="2">.<br>
<br>
</font></td>
</tr>
</table>
</form>
<%
Case 2
ForWriting = 2
adLongVarChar = 201
lngNumberUploaded = 0

'Get binary data from form
noBytes = Request.TotalBytes
binData = Request.BinaryRead (noBytes)
'convery the binary data to a string
Set RST = CreateObject("ADODB.Recordset")
LenBinary = LenB(binData)

if LenBinary > 0 Then
RST.Fields.Append "myBinary", adLongVarChar, LenBinary
RST.Open
RST.AddNew
RST("myBinary").AppendChunk BinData
RST.Update
strDataWhole = RST("myBinary")
End if

strBoundry = Request.ServerVariables ("HTTP_CONTENT_TYPE")
lngBoundryPos = instr(1,strBoundry,"boundary=") + 8
strBoundry = "--" & right(strBoundry,len(strBoundry)-lngBoundryPos)
'Get first file boundry positions.
lngCurrentBegin = instr(1,strDataWhole,strBoundry)
lngCurrentEnd = instr(lngCurrentBegin + 1,strDataWhole,strBoundry) - 1
Do While lngCurrentEnd > 0
'Get the data between current boundry and remove it from the whole.
strData = mid(strDataWhole,lngCurrentBegin, lngCurrentEnd - lngCurrentBegin)
strDataWhole = replace(strDataWhole,strData,"")

'Get the full path of the current file.
lngBeginFileName = instr(1,strdata,"filename=") + 10
lngEndFileName = instr(lngBeginFileName,strData,chr(34))
'Make sure they selected at least one file.
if lngBeginFileName = lngEndFileName and lngNumberUploaded = 0 Then

Response.Write "<H2> Ha ocurrido el siguiente error.</H2>"
Response.Write "Debes elegir un archivo para subir"
Response.Write "<BR><BR>Pulsa el botón volver, realiza la corrección."
Response.Write "<BR><BR><INPUT type='button' onclick='history.go(-1)' value='<< Volver' id='button'1 name='button'1>"
Response.End
End if
'There could be one or more empty file boxes.
if lngBeginFileName <> lngEndFileName Then
strFilename = mid(strData,lngBeginFileName,lngEndFileName - lngBeginFileName)

'Loose the path information and keep jus
' t the file name.
tmpLng = instr(1,strFilename,"\")
Do While tmpLng > 0
PrevPos = tmpLng
tmpLng = instr(PrevPos + 1,strFilename,"\")
Loop

FileName = right(strFilename,len(strFileName) - PrevPos)

'Get the begining position of the file data sent.
'if the file type is registered with the
' browser then there will be a Content-Type
lngCT = instr(1,strData,"Content-Type:")

if lngCT > 0 Then
lngBeginPos = instr(lngCT,strData,chr(13) & chr(10)) + 4
Else
lngBeginPos = lngEndFileName
End if
'Get the ending position of the file data sent.
lngEndPos = len(strData)

'Calculate the file size.
lngDataLenth = lngEndPos - lngBeginPos
'Get the file data
strFileData = mid(strData,lngBeginPos,lngDataLenth)
'Create the file.
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile (Server.MapPath ("\fotos") & "\" & FileName, ForWriting, True)
Dim FileName

f.Write strFileData
Set f = nothing
Set fso = nothing

lngNumberUploaded = lngNumberUploaded + 1

End if

'Get then next boundry postitions if any
' .
lngCurrentBegin = instr(1,strDataWhole,strBoundry)
lngCurrentEnd = instr(lngCurrentBegin + 1,strDataWhole,strBoundry) - 1
loop
End Select
%>

Archivo subido
<%=FileName%> archivo ya está en el servidor.<br>
<input type="button" onClick="cierra_ventana()" value="Cerrar" >
<script language="Javascript1.2">
function cierra_ventana() {
var NomArch
NomArch="<%=FileName%>"
opener.document.armar.<%=request.querystring("item ")%>.value = NomArch;
close();
}
</script>
</body>
</html>


  #55 (permalink)  
Antiguo 08/05/2004, 10:30
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 22 años, 8 meses
Puntos: 1
si el tema de prueba.asp esta perfecto pero no me habre el popup, que puede ser?
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #56 (permalink)  
Antiguo 08/05/2004, 10:33
Avatar de tunait
Moderadora
 
Fecha de Ingreso: agosto-2001
Ubicación: Terok Nor
Mensajes: 16.805
Antigüedad: 23 años, 6 meses
Puntos: 381
¿Has copiado y pegado tal cual? a mi me funciona perfecto el ejemplo que te dejé
  #57 (permalink)  
Antiguo 08/05/2004, 14:31
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 22 años, 8 meses
Puntos: 1
si lo copie completo, bueno lo que no puse fue esta lineas que creo que no importan
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
puede ser por eso?
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #58 (permalink)  
Antiguo 08/05/2004, 21:37
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 22 años, 8 meses
Puntos: 1
sori tunait revisando en el codigo vi que al copiar y pegar una parte del codigo me salia cortado
open("upload.asp?item=" + donde,""," width=500,height=350,toolbar=no,directories=no,men
ubar=no,status=no");
aparentemente deveria ser por eso.
Bueno te comento que funciona muy bien y ahora si termine con esto muchas gracias tunait y a caricatos por darme una gran mano
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
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 16:05.