Subir archivo y renombra con nombre aleatorio

[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