Funções personalizadas comumente usadas no ASP para lidar com o upload e exclusão de arquivos
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Todas as funções VBs personalizadas
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
função deletefile (nome do arquivo) 'Excluir arquivo
Se o nome do arquivo <> então
Set fso = server.createObject (script.filesystemoBject)
Se fso.FileExists (nome do arquivo) então
FSO.DeleteFile FileName
final se
Definir FSO = nada
final se
Função final
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
function CreatedIr (ByVal LocalPath) 'O programa que cria um diretório. Se houver vários níveis de diretórios, cria um nível de cada vez
em erro de erro em seguida
LocalPath = Substitua (LocalPath,/,/)
set fileObject = server.createObject (script.filesystemoBject)
PATHARR = SPLIT (LocalPath,/)
path_level = ubund (patharr)
para i = 0 para path_level
Se i = 0 então pathtmp = patharr (0) e / else Pathtmp = pathtmp & patharr (i) & /
cpath = esquerda (pathtmp, len (pathtmp) -1)
se não for fileObject.olderexists (cpath), então fileObject.createfolder cpath
próximo
set fileObject = nada
se err.number <> 0 então
CreateDir = false
err.clear
outro
CreativeIr = true
final se
Função final
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
função saverandfilename (byval szfilename) 'gerar novo nome de arquivo aleatório com base no nome do arquivo original
randomizar
'rannum = int (90000*rnd) +10000
'Se mês (agora) <10 então c_month = 0 & mês (agora) else c_month = mês (agora)
'Se dia (agora) <10 então C_DAY = 0 & DIA (agora) else c_day = dia (agora)
'Se hora (agora) <10 então c_hour = 0 & hour (agora) else c_hour = hora (agora)
'Se minuto (agora) <10 então c_minute = 0 & minuto (agora) else c_minute = minuto (agora)
'Se o segundo (agora) <10 então C_SECOND = 0 & Second (agora) else C_SECOND = MINUST (agora)
FILEEXT_A = SPLIT (SZFILENAME ,.)
FILEEXT = LCASE (FILEEXT_A (UBUND (FILEEXT_A)))
Saverandfilename = Substitua (substitua (substitua (agora,:),-,),) e int (10*rnd) &. & FileExt
'Generaterandomfilename = ano (agora) & c_month & c_day & c_hour & c_minute & c_second & rannum &. & FileExt
Função final
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
função jaron_replacer (strContent, start_string, end_string, replipl_string)
'Função de substituição do CMS: string de origem, primeira parte, última parte, caracteres substituídos
'Retorne a corda substituída
jaron_replacer = substituir (strContent, médio (strContent, instrum (strContent, start_string), instrum (strContent, end_string)+len (end_string) -1), substituir_string)
Função final
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Função SubstituaPlus (strContent, start_string, end_string, substituir_string)