Holas,he podido subir varias imagenes a la vez, ademas de solo aceptar solo imagenes y hasta un cierto tamaño y me funciona
, lo que quisiera hacer ahora esta en el siguiente link:
Subir imagen quiero grabar el nombre de la imagen ademas de los datos q llenen en las casillas del costado, claro q si sube imagen tienen q llenar obligatoriament los datos del costado y si no suben imagen q no se grabe los datos del costado de cada File.
Aca pongo el codigo q tengo de lo q me funciona:
<!--#include file="xelupload.asp"-->
<%
'Set up = new xelUpload
'up.Upload()
'For each fich in up.Ficheros.Items
'fich.Guardar Server.MapPath(".")
'Next
'set up = nothing
%>
<%
Dim up, fich, ExtPermitidas, NombreFichero, Extension, nombreimagen, Maxtam
set up = new xelUpload
up.Upload()
%>
<%
For each fich in up.Ficheros.Items
'Response.Write("<li>Tamaño: <b>" & fich.Tamano & "</b> bytes (" & FormatNumber(fich.Tamano / (1024)) & " Kb)</li>")
' no deja subir archivos ke pesen mas que maxtam
Maxtam = 150 ' en Kb
If fich.Tamano > (Maxtam*1024) then
response.write "No puede subir un que pese mas de "& Maxtam & "Kb."
else
'impedir subir archivos diferentes a imagenes
ExtPermitidas = "|gif|jpg|jpeg|"
NombreFichero = Split(fich.Nombre, ".")
Extension = NombreFichero(1)
If InStr(ExtPermitidas, "|" & Extension & "|") = 0 Then
Response.Write "No puede subir archivos con extensiones ." & Extension
Response.End
Else
'Para guardarlo con otro nombre:
Response.Write "Ha subido correctamente la imagen llamada "& fich.Nombre &"<br>"
nombreimagen = "juanc."& Extension
' carpeta donde se guardara el archivo
fich.GuardarComo fich.nombre, Server.MapPath(".")
'----------------------------------------------------------------
end if
end if
Next
'Limpiamos objeto
set up = nothing
%>