Ver Mensaje Individual
  #1 (permalink)  
Antiguo 21/03/2006, 09:50
moncherote
Invitado
 
Mensajes: n/a
Puntos:
freeaspupload y upload.form

que follon tengo con el tema de enviar datos y archivos al mismo tiempo.
me daban mogollon de problemas el sustituir request por upload, no me funcionaba, por lo que decidi hacer lo siguiente:

tengo un form con campos text y file(para fotos). una vez pulsado el boton guardar me envia a una página donde inserto los datos en la BD como siempre, y un form donde introduzco los datos de los archivos con el enctype="multipart/form-data" de marras.
este form se envia automaticamente a la pagina que sube archivos, y que tiene este codigo (+ o -):

Código:
<% 
option explicit
Response.Expires = -1
Server.ScriptTimeout = 600

%>
<!-- #include file="freeaspupload.asp" -->
<%
' ****************************************************
' Cambiar el valor de la siguiente variable
' para indicar el directorio de destino.
' El directorio indicado debe tener permisos de escritura
' de caso contrario el script fallará mostrando un error.
  Dim uploadsDirVar
  uploadsDirVar = Server.MapPath("../imagenes/")
' ****************************************************

function SaveFiles
    Dim Upload, fileName, fileSize, ks, i, fileKey, resumen
    Set Upload = New FreeASPUpload
    Upload.Save(uploadsDirVar)
	' If something fails inside the script, but the exception is handled
	If Err.Number <> 0 then Exit function
    SaveFiles = ""
    ks = Upload.UploadedFiles.keys
    if (UBound(ks) <> -1) then
		resumen = "<B>Archivos subidos:</B> "
        for each fileKey in Upload.UploadedFiles.keys
			resumen = resumen & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & "B) "
        next
    else
		resumen = "El nombre del archivo especificado en el formulario no es válido en el sistema."
    end if
	'comentar la siguiente linea si no se desea mostrar el resumen
	SaveFiles = resumen
end function
%>

<%
'solo llamo al UPLOAD si hay envio de formulario
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
	'Hace el upload de los archivos enviados y muestra el resumen	
	response.write SaveFiles()
	
end if
%>
</p>
<input name="volver" type="button" id="volver" value="Volver" onClick="location.href=index.asp'">
y siempre me sale con el tema de que "El nombre del archivo especificado en el formulario no es válido en el sistema."

y es que no se como comprobar si llegan o no los datos, pues con upload.form("variable") me dice que ta definida la variable, y si la defino, no muestra nada, y el request.form tampoco, y mecaguenlalecheyaaaa!!!!


Alguna idea??