Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Control error en AspSmartUpload
 Foro Bloqueado  Tema Bloqueado


Autor Temas
rafgd
Starting Member


6 Posts
Mensajes - 06 Jan 2007 :  12:48:31  Ver Perfil  Enviar Email
Hola, una pregunta para los que hayáis usado este componente de ASP.
Funciona perfectamente, pero quiero controlar que al subir diez fotos como máximo desde un formulario, estas diez fotos no sobrepasen los 2 Mb (que es el límite que me pone el servidor para cada envío desde un formulario). Quiero que si se llega a este tope me redireccione a una página de error llamada "error_fotos.asp"
El caso es que parece que antes de llegar al if, intenta subir la información y da error, se debe esto al mySmartUpload.Upload??? Si es así, me veo obligado a ponerlo porque si no, no puedo calcular cuanta memoria ocupan los ficheros que se hayan seleccionado en los input file del form!!!!

Este es la página que se llama desde el formulario (con submit) donde se seleccionan las diez fotos:
<%@LANGUAGE="VBSCRIPT"%>
<!-- #include file="adovbs.inc" -->
<html>
<head>
<title>Subir Fotos</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%

Server.ScriptTimeout=600
Dim mySmartUpload, vector_fotos(9), file, intCount,refer,conex_viv, reg_fotos, cont, tope,bytes_a_subir
refer=Session("nueva_ref")
Set mySmartUpload=Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.MaxFileSize = 2097152
mySmartUpload.TotalMaxFileSize=2097152
mySmartUpload.Upload
bytes_a_subir=mySmartUpload.Totalbytes

intCount=0

If bytes_a_subir <= 2097152 then
For each file In mySmartUpload.Files
If not file.Ismissing then
file.Saveas("/basedatos/fotos/"&refer&"@"&file.Filename)
vector_fotos(intCount)=refer&"@"&file.Filename
intCount=intCount+1
End if
Next
Set conex_viv=Server.CreateObject("Adodb.connection")
conex_viv.open "xxxxxxx" ' Se abre la DSN de viviendas
Set reg_fotos=Server.CreateObject("Adodb.Recordset")
With reg_fotos
.Source = "fotos"
.ActiveConnection = conex_viv
.CursorType = 2
.LockType = 3
.Open
End with
For cont=0 To intCount-1
With reg_fotos
.AddNew
.Fields("ref")=refer
.Fields("foto")=vector_fotos(cont)
.Update
End With
reg_fotos.Requery
Next
conex_viv.close
Set reg_fotos = Nothing
Set conex_viv = Nothing
Server.Transfer "fotos.asp"
else
Server.Transfer "error_fotos.asp"
end if
%>
</body>
</html>

El caso es que las fotos cuando no sobrepasan el límite las sube perfectamente pero si no es así parece que no llama a la página de error, como si no encontrara la página.
Cómo puedo solucionar el problema????


Gracias a todos y Feliz 2007.



   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar