% response.buffer=true %>
<%
' Dim s
' s = ""
' s = ScriptEngine & " Version "
' s = s & ScriptEngineMajorVersion & "."
' s = s & ScriptEngineMinorVersion & "."
' s = s & ScriptEngineBuildVersion
' response.write s
' RESPONSE.END
%>
Curriculumns - Soft RC
<%
'************************************* Funcion para cambiar el nombre al archivo **************
Function cambiar_nombre(archivo_original,este_folder_variable,letras)
directorio_final = server.MapPath(".") & este_folder_variable ' esto es grabar el archivo subido abajo del directorio actual en este_folder_variable
x = revisar(directorio_final)
If x = "1" then
Response.write "Se creó un directorio especialmente para ti....."
Else
Response.write " "
End if
Randomize
anio = year(date())
mes = month(date())
dia = day(date())
if len(mes) = 1 then
mes = "0" & mes
end if
if len(dia) = 1 then
dia = "0" & dia
end if
cadena_variable = year(date()) & mes & dia & " " & time() & " " & Nom
'response.write cadena_variable
'response.end
cadena_variable=replace(cadena_variable,"/" ,"_")
cadena_variable=replace(cadena_variable,":" ," ")
temp = directorio_final & archivo_original
temp2 = temp
caracteres_a_agregar = letras
' caracteres_a_agregar es la cantidad de caracteres que se agregaran al inicio del nombre del archivo original
For i = 1 to caracteres_a_agregar
cadena_variable = cadena_variable & chr(int(Rnd * 26) + 65) '65 es el ASCII para la "A"
Next
' temp = cadena_variable & "-" & temp 'asi queda el archivo modificado
temp = directorio_final & cadena_variable & "-" & archivo_original 'asi queda el archivo modificado
' ahora se verificara que el "nuevo archivo" exista o no, si existe se vuelve a ejecutar este fun
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(temp)) Then
cambiar_nombre(temp2) ' aqui se manda de vuelta a "randomizar" el nombre porque ya existe
Else
cambiar_nombre = temp ' aqui se regresa el nombre del archivo ya modificado y verificado que es unico
exit function
End If
End Function
'************************************* Fin de funcion para cambiar el nombre al archivo **************
%>
<%
'*************************************************** revisar que exista un directorio, si no, que lo haga
Function revisar(folder)
Dim fso, msg,f
Set fso = CreateObject("Scripting.FileSystemObject")
If not (fso.FolderExists(folder)) Then
Set f = fso.CreateFolder(folder)
revisar = "1"
Else
revisar = "0"
End If
End Function
%>
Envío del Currículum Vitae |
|
<%
'response.buffer=true
Func = Request("Func")
if isempty(Func) then
Func = 2
end if
limite_de_tamano = 300000 'cada uno de los archivos no puede medir mas de 300 kb
limite_de_tamano_texto = limite_de_tamano/1000
'response.write Request.querystring("Nombre")
Nom = Request.querystring("Nombre")
if isempty(Nom) then ' Si Nom esta vacio es porque entra por primera vez a la pagina
Func = 1
end if
Select case Func
case 1
%>
<%
case 2
'You do not need to use this form to send your files.
'However you should not give your submit button a NAME or ID.
'response.write request.form("nombre")
nombre = request.form("nombre")
'response.write nombre
%>
Hola <%response.write nombre%>, seleccione el documento que desea enviar. |
|