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

Problema con aspupload

Estas en el tema de Problema con aspupload en el foro de ASP Clásico en Foros del Web. Buenas tardes, estoy haciendo una aplicacion con aspupload que es el componente que utiliza mi hosting, para el upload de archivos el problema esta en ...
  #1 (permalink)  
Antiguo 15/10/2008, 06:52
 
Fecha de Ingreso: octubre-2008
Mensajes: 1
Antigüedad: 15 años, 8 meses
Puntos: 0
Problema con aspupload

Buenas tardes, estoy haciendo una aplicacion con aspupload que es el componente que utiliza mi hosting, para el upload de archivos el problema esta en que la aplicacion funciona bien con archivos pequeños pero con archivos grandes me da el siguiente error:

Internet Explorer cannot display the webpage
Most likely causes:
You are not connected to the Internet.
The website is encountering problems.
There might be a typing error in the address

unicamente cuando quiero cargar archivos grandes

el codigo que estoy utilizando es esta si alguien me puede orientar se los agradeceria

Formulario:

<FORM name="UPLOAD" METHOD="POST" ENCTYPE="multipart/form-data"
ACTION="ado_upload.asp?<% = PID %>"
OnSubmit="return ShowProgress();">
.....
.....
....

Upload de archivos:

<%



Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.ProgressID = Request.QueryString("PID")
Upload.SetMaxSize 1000000000, True

Count = Upload.Save

Set File = Upload.Files("THEFILE")

If Not File Is Nothing Then

Connect = MM_users_STRING


Set rs = Server.CreateObject("adodb.recordset")




Hash = File.MD5Hash


rs.Open "SELECT * from TABLE_FILE WHERE Hash='" & Hash & "'", Connect, 2, 3
If Not rs.EOF Then
Response.Write "This file already exists in the database."
Response.End
End If
rs.Close


rs.Open "Table_FILE", Connect, 2, 3


rs.AddNew
rs("file_blob") = File.Binary
rs("filename") = File.FileName
rs("filesize") = File.Size
rs("hash") = Hash
rs("description") = Upload.Form("DESCR")
rs("fecha")= fechaa
rs("username") = Upload.Form("username")
rs("userlastname") = Upload.Form("userlastname")
rs.Update
response.redirect "filelist.asp"
Response.Write "File saved."
Else
Response.Write "File not selected."
End If
%>

Gracias
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 02:17.