error en el upload

igonfil · #1 (**permalink**) 01/11/2009, 13:11

Hola a tod@s tengo un problema al subir varios archivos a diferentes carpeta al servidor con el upload, tengo creado el código pero me da un error de que se requiere un objeto. Muchas gracias.

el código es el siguiente:

Código PHP:

  <%

Set Upload = Server.CreateObject("Persits.Upload")            

Upload.OverwriteFiles = False

Count=Upload.Save 

Set File1 = Upload.Files("FILE1")

Set File2 = Upload.Files("FILE2")

 
File1.SaveAs "d:\xvrt\papo.es\html\new\img" & Name & File1.Ext

File2.SaveAs "d:\xvrt\papo.es\html\new\pdf" & Name & File2.Ext

 
%>

Shiryu_Libra · #2 (**permalink**) 01/11/2009, 13:34

codigo tomado de la pagina de soporte de ASPUpload

Cita:

Pagina del FORM

Cita:

<HTML>
<BODY BGCOLOR="#FFFFFF">
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="UploadScript2.asp">
File 1:<INPUT TYPE=FILE NAME="FILE1">
Archivo 1:<INPUT TYPE=TEXT NAME="DESCR1"><BR>
File 2:<INPUT TYPE=FILE NAME="FILE2">
Archivo 2:<INPUT TYPE=TEXT NAME="DESCR2"><BR>
<INPUT TYPE=SUBMIT VALUE="Subir">
</FORM>
</BODY>
</HTML>

Codigo del Upload

Cita:

<HTML>
<BODY>

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
'///***************************************////
'/// CAMBIA ESTE VALOR POR LA CARPETA QUE USAS ///
'///***************************************////
Upload.Save "c:\upload"
%>

Files:<BR>
<%
For Each File in Upload.Files
Response.Write File.Name & "= " & File.Path & " (" & File.Size &" bytes)<BR>"
Next
%>

<P>

Otros objetos:<BR>
<%
For Each Item in Upload.Form
Response.Write Item.Name & "= " & Item.Value & "<BR>"
Next
%>
</BODY>
</HTML>

igonfil · #3 (**permalink**) 01/11/2009, 14:06

Pero lo que necesito es guardarlo en diferentes carpetas las FILE1 en la carpeta img, y los FILE2 en la capeta pdf. muchas gracias

Shiryu_Libra · #4 (**permalink**) 01/11/2009, 16:03

jugando con el codigo... intentaria algo asi

Código ASP:

Ver original<%
Set Upload = Server.CreateObject("Persits.Upload.1")
'///***************************************////
'/// CAMBIA ESTE VALOR POR LA CARPETA QUE USAS ///
'///***************************************////
carp1="c:\upload\ima"
carp2="c:\upload\pdf"
%>
 
Files:<BR>
<%
band=0
For Each File in Upload.Files
if band=0 then Upload.Save carp1 else Upload.Save carp2 end if
Response.Write File.Name & "= " & File.Path & " (" & File.Size &" bytes)<BR>"
band=1
Next
band=0
%>

soloseria una prueba....

12160rigo · #5 (**permalink**) 02/11/2009, 11:00

hola yo yengo un problema con el Set Upload = Server.CreateObject("Persits.Upload.")

mi pagina funcionaba excelente hasta hace unos dias que no permite hacer upload

el codigo es

<%

Dim Upload, mensaje, valor

Set Upload = Server.CreateObject("Persits.Upload")//Aqui es donde me marca el error pero en otro apartado de mi pagina si puedo si funciona no me marca error en Set Upload = Server.CreateObject("Persits.Upload")

' Enable UTF-8 translation
Upload.CodePage = 65001

' Limit file size to 5 x 1024 x 1024 = 5242880 bytes, throw an exception if file is larger
Upload.SetMaxSize 5242880, True 'Le he puesto maximo 5 megas

' Intercept all exceptions to display user-friendly error
On Error Resume Next

pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_I NFO")))-2
path = server.MapPath("add2.asp")
path1 = left(path,InStr(path,"\add2.asp"))
uploadsDirVar = path1 & "images\"

'Guardo el fichero en la ruta correspondiente
Upload.Save(uploadsDirVar)

' 8 is the number of "File too large" exception
mensaje=""
valor=0

If Err.Number = 8 Then
valor=1
Else
If Err <> 0 Then
mensaje=t_(129) & Err.Description
Else
'Recojo el nombre del fichero que se ha subido
Set File= Upload.Files("foto")

If Not File Is Nothing Then
foto = file.Filename

extension = split(foto,".")
if extension(1) <> "gif" then

'REDIMENSIONAMOS LA IMAGEN
Set jpeg = Server.CreateObject("Persits.Jpeg")
jpeg.Open( File.Path )

if jpeg.OriginalWidth>=jpeg.OriginalHeight then 'HORIZONTAL
if jpeg.OriginalWidth>70 then
jpeg.Width=70
jpeg.Height=jpeg.OriginalHeight * 70 / jpeg.OriginalWidth
end if
else 'VERTICAL
if jpeg.OriginalHeight>70 then
jpeg.Height=70
jpeg.Width=jpeg.OriginalWidth * 70 / jpeg.OriginalHeight
end if
end if

jpeg.Canvas.Brush.Color = &H626467

x=0
y=0
if jpeg.Width<70 then
x=(70-jpeg.Width)/2
end if
if jpeg.Height<70 then
y=(70-jpeg.Height)/2
end if
jpeg.Crop -1*x, -1*y, jpeg.Width + x, jpeg.Height + y

Jpeg.Save uploadsDirVar&foto
end if
end if

End If
End If

If (IsDate(Upload.Form("Date_Month") + "/" + Upload.Form("Date_Day") + "/" + Upload.Form("Date_Year")) and servidor=0) or (IsDate(Upload.Form("Date_Day") + "/" + Upload.Form("Date_Month") + "/" + Upload.Form("Date_Year")) and servidor=1) Then

Set RSEVENTS = Server.CreateObject("ADODB.Recordset")
RSEVENTS.Open "Events", Conn, 2, 2
RSEVENTS.addnew

RSEVENTS("Event_Name") = Upload.Form("Event_Name")
RSEVENTS("Description") = Upload.Form("txtContent")
RSEVENTS("Category") = Upload.Form("Category")
RSEVENTS("formato") = Upload.Form("formato")
RSEVENTS("id_idioma")=session("idioma_calendar" & prj)

if servidor=0 then
eventDate = Upload.Form("Date_Month") + "/" + Upload.Form("Date_Day") + "/" + Upload.Form("Date_Year") + " " + Upload.Form("Time_Hour") + ":" + Upload.Form("Time_Minute") + ":00 " + Upload.Form("Time_AMPM")
else
eventDate = Upload.Form("Date_Day") + "/" + Upload.Form("Date_Month") + "/" + Upload.Form("Date_Year") + " " + Upload.Form("Time_Hour") + ":" + Upload.Form("Time_Minute") + ":00 " + Upload.Form("Time_AMPM")
end if
RSEVENTS("Date") = eventDate

If (Upload.Form("Location") = "") Then
RSEVENTS("Location") = ""
Else
RSEVENTS("Location") = Upload.Form("Location")
End If

RSEVENTS("registration") = Upload.Form("registration")
if foto<>"" then
RSEVENTS("foto") = foto
end if

RSEVENTS.update

RSEVENTS.close
set RSEVENTS = nothing

End If
%>

que podria esta pasando porque si es que no estubiera regireada esa clase no podria subir ni editar en mi otra seccion

el error que me aparece es:

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/eventcalendar/admin/edit2.asp, line 17

800401f3

y la linea es Set Upload = Server.CreateObject("Persits.Upload"

gracias de antemano

Valery-Net · #6 (**permalink**) 03/11/2009, 05:15

El objeto "Persits.Upload" o no está instalado en el servidor o no tiene los permisos correctamente configurados.

12160rigo · #7 (**permalink**) 12/11/2009, 16:04

ya solucione eso ahora lo que estoy vatayando en extraer en nombre de el archivo a subir.
este es mi codigo

if img<>"" then
set img=Upload.Files("img").FileName
rsPublication("filepath")=img
rsPublication.Update
rsPublication.Close

el archivo si lo sube pero cuando intendo mandar a la base de datos el nombre el archivo con la extencion no me aparece en mi campo filepath de mi base de datos no me arroja nada

este es el formulario con el que cargo el archivo
<a class=text><b><%=t_(33)%></b></a><br><INPUT type="File" size="30" name="img">
<%if rsPublication("filepath")<>"" then%>
<br><a href="../media/publication/<%=server.HTMLEncode(replace(rsPublication("filepa th"),"''","'"))%>" class="topsublink" target="_blank"><%=server.HTMLEncode(replace(rsPub lication("filepath"),"''","'"))%></a>
<%end if%>

uso la clase freeASPUpload.asp