Subir archivo y renombra con nombre aleatorio

[elias77]

Hola como andan, he estado viendo mucho por internet, sobre como subir un archivo al servidor y poder renombrarlo con un nombre aleatorio, para que no se pise algun otro archivo que pueda tener el mismo nombre. Hay muchisimo en internet sobre como subir archivos con asp pero no logro encontrar la forma de que al subir un archivo le cambie el nombre aleatoriamente. Bueno espero que me puedan ayudar. Gracias.

[Adler]

Hola

Yo solo he usado freeaspupload. Si te lo descargas, después podré darte indicaciones

Suerte

[Myakire]

Otra es que tu generes el nombre del archivo de forma aleatoria, puedes obtener generar un código con SQL -select top 1 ID() from ...- , o haciendo un Int((90-65+1)*Rnd+65 a un vector de letras mayúsculas tantas veces como sean necesarias hasta no encontrar ese nombre de archivo en el directorio.

[orharo2003]

Lo que yo hago hago es renombrar el archivo usando un identificador global NEWID() desde el SQL server.

[elias77]

Hola, gracias a todos por contestar. Emm... a ver, voy a seguir con las indicaciones de Adler, si, a freeaspupload lo tengo, estube haciendo pruebas justamente con ese ejemplo pero no logre lo que queria, asi que bueno....estaria agradecido que me puedas indicar como proseguir.

[sjam7]

Bueno este codigo es usando el XELUPLOAD.asp

El archivo ZIP lo puedes descargar AQUI

Código ASP:

Server.ScriptTimeout = 1440
 
Function GenerarPassword(largo)
    Dim Resultado, Caracter, Password
 
    caracter = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z")
   
    Randomize()
    Do While Len(Resultado) < largo
        Resultado = Resultado & Caracter(Int(36 * Rnd()))
    Loop
    GenerarPassword = Resultado
End Function
 
Dim objUpload, objFich, strNombre
Dim maxtam, strNombreFichero
 
maxtam = 10300000
 
set objUpload = new xelUpload
objUpload.Upload()
 
    usuario = objUpload.Form("usuario")
 
if objUpload.Ficheros.Count <> 0 then
 
    set objFich = objUpload.Ficheros("Archivo")
    tamano=objFich.Tamano
 
    if objFich.Tamano <= maxtam then
    
    folder = "/archivos/"
    ext=split(objFich.Nombre,".")
    extension=ext(1)
 
    Password = GenerarPassword(18) ' ESTO GENERA UNA CADENA DE 18 CARACTERES ALEATORIOS, CAMBIANDO EL NUMERO SE CAMBIA LA LONGITUD DE LA CADENA
 
    objFich.GuardarComo session("user") & "-" & Password & "." & extension, Server.MapPath("/") & folder
        'GUARDO EL ARCHIVO CON UN NOMBRE TIPO user-cadenade18caracteres.ext
            
    if not fs.FolderExists(carpeta) then
        fs.CreateFolder carpeta
    End if
    
    set oFich = nothing
    set objUpload = nothing
 

[Adler]

Hola

En el archivo freeaspupload.asp, en la parte inferior encontraras Public Property Get FileName(), aquí es donde podemos renombrar el archivo e incluso su extensión

Código asp:

Public Property Get FileName() 
        'FileName = nameOfFile
' Cambia el nombre de la imagen por el nombre del usuario, mantiene la extensión original
        'FileName = escape(session("nombre_usuario")) & lcase(Right(nameOfFile, 4))
' Cambia el nombre de la imagen por el nombre del usuario y puede que la extensión original
         FileName = escape(session("nombre_usuario")) & ".gif"
    End Property
 

Suerte

[JuanRAPerez]

ummm

y si al subir el nombre del archivo le pones la fecha de el upload?

suerte

saludos a todos

[elias77]

Hola juanRAPerez, poner la fecha no me serviria ya que se da la situacion de subir dos archivos con el mismo nombre el mismo dia.... Gracias de todas formas.

Gracias Adler y sjam7 Todavía no probé sus sugerencias ya que no he tenido tiempo. Hoy lo pruebo y les comento. Saludos