hola yo modifique un poco el codigo con la ayuda tambien de algunos post de foros del web y unas ideas mias tambien con esto puedes subir el tipo de archivos que quieras y tambien especificar el peso de los archivos a subir...
espero te sirva de algo y puedas adaptarlo a tus necesidades.
Código:
<%
correcto = false
For each fich in up.Ficheros.Items
' no deja subir archivos ke pesen mas que maxtam
Maxtam = 100 ' en Kb
If fich.Tamano > (Maxtam*1024) then
escribir "No puede subir un archivo que pese más de "& Maxtam & "Kb."
else
'impedir subir archivos diferentes a imagenes
ExtPermitidas = "|gif|jpg|jpeg|" ' aqui especifica las extenciones
NombreFichero = Split(fich.Nombre, ".")
Extension = NombreFichero(1)
If InStr(ExtPermitidas, "|" & Extension & "|") = 0 Then
response.write "No puede subir archivos con extensiones ." & Extension
Else
'puede subir imagen
'Para guardarlo con otro nombre:
nombreimagen = id &"."& Extension
' carpeta donde se guardara el archivo
fich.GuardarComo nombreimagen, Server.MapPath("fotos/")
correcto = true
'----------------------------------------------------------------
end if
end if
Next
'Limpiamos objetos
set up = nothing
set rs = nothing
if correcto = true then
' aqui puedes redireccionar a una pagina
' de aviso correcto o mostrar un mensaje
else
' muestra mensaje de error.
end if
%>