Funciones personalizadas comúnmente utilizadas en ASP para manejar la carga y eliminación de archivos
<%
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
'Todas las funciones VBS personalizadas
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
Función DeleteFile (FileName) 'Eliminar archivo
Si el nombre de archivo <> entonces
Establecer fso = server.createObject (scripting.filesystemObject)
Si fso.fileExists (nombre de archivo) entonces entonces
FSO.DeleteFile Nombre de archivo
final si
Establecer FSO = nada
final si
función final
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
Función CreateIR (BYVAL LocalPath) 'El programa que crea un directorio. Si hay múltiples niveles de directorios, lo crea un nivel a la vez
En el currículum de error siguiente
Localpath = reemplazar (localpath,/,/)
Establecer fileObject = server.CreateObject (scripting.filesystemObject)
Patharr = Split (LocalPath,/)
Path_level = Ubund (Patharr)
para i = 0 a path_level
Si i = 0 entonces pathtmp = patharr (0) & / else pathtmp = pathtmp & patharr (i) & / /
cpath = izquierda (pathtmp, len (pathtmp) -1)
Si no es fileObject.FoldeExists (CPATH), entonces FileObject.CreateFolder CPATH
próximo
Establecer fileObject = nada
Si err.number <> 0 entonces
Creationir = falso
Err.Clear
demás
Creationir = true
final si
función final
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
function saverandFileName (Byval szfilename) 'Genere un nuevo nombre de archivo aleatorio basado en el nombre del archivo original
aleatorizar
'rannum = int (90000*rnd) +10000
'If mes (ahora) <10 entonces c_month = 0 & mes (ahora) else c_month = mes (ahora)
'If Day (ahora) <10 entonces c_day = 0 & Day (ahora) else C_day = Day (ahora)
'If Hour (ahora) <10 entonces C_Hour = 0 & Hour (ahora) else C_Hour = Hour (ahora)
'If mind (ahora) <10 entonces c_minute = 0 & minuto (ahora) else c_minute = minuto (ahora)
'If segundo (ahora) <10 entonces c_second = 0 & segundo (ahora) else c_second = minuto (ahora)
FileExt_a = Split (SzFileName ,.)
fileExt = lcase (fileext_a (ubund (fileext_a)))
SaverandFileName = reemplazar (reemplazar (reemplazar (ahora, :,),-),) e int (10*rnd) &. & FileExt
'GeneraterAndomFileName = Year (ahora) & C_Month & C_day & C_Hour & C_minute & C_SeCond & Rannum &. & FileExt.
función final
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
función jaron_replacer (strContent, start_string, end_string, reemplazar_string)
'Función de reemplazo de CMS: cadena de origen, primera parte, última parte, caracteres reemplazados
'Devuelve la cadena reemplazada
jaron_replacer = reemplazar (strContent, mid (strContent, instr (strContent, start_string), instr (strContent, end_string)+len (end_string) -1), reemplazar_string)
función final
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
function reemplazaPlus (strContent, start_string, end_string, reemplazar_string)