<%
Server.ScriptTimeOut=5000
Dim up, fich
set up = new xelUpload
up.Upload()
Response.Write("Uploaded files: " & up.Ficheros.Count & "
")
Response.Flush
For each fich in up.Ficheros.Items
Response.Write("")
Response.Write("- Name: " & fich.Nombre & "
")
Response.Write("- Size: " & fich.Tamano & " bytes (" & FormatNumber(fich.Tamano / (1024*1024)) & " Mb)
")
Response.Write("- MIME: " & fich.TipoContenido & "
")
Response.Write(" ")
'Para guardarlo
' Con el nombre de fichero original:
'fich.Guardar Server.MapPath("./temporales/")
' Con otro nombre:
fich.GuardarComo fich.Nombre, Server.MapPath("./images/uploaded/")
'----------------------------------------------------------------
Next
'Limpiamos objeto
set up = nothing
%>
|
