No ASP, especialmente nos sistemas CMS que precisam gerar estados estáticos, alguns arquivos geralmente precisam ser julgados, criados e excluídos. Hoje, o editor do Erro New Technology Channel o resolveu aqui, o que basicamente atende às necessidades básicas.
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 ("scripting.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 ("scripting.filesystemoBject")
PATHARR = SPLIT (LOCALPATH, "/")
path_level = ubund (patharr)
para i = 0 para path_level
Se i = 0 então pathtmp = patharr (0) & "/" else Pathtmp = pathtmp & patrAr (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 = hour (agora)
'Se minuto (agora) <10 então c_minute = "0" & minute (agora) else c_minute = minuto (agora)
'Se o segundo (agora) <10 então C_SECOND = "0" & Second (agora) else c_second = minuto (agora)
FILEEXT_A = SPLIT (SZFILENAME, ".")
FILEEXT = LCASE (FILEEXT_A (UBUND (FILEEXT_A)))
Saverandfilename = Substitua (substitua (substitua (agora, ":", ""), "-", ""), "" "" ") & 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)
'No documento, exclua todos os personagens entre o início e o fim
em erro de erro em seguida
MarkCounts = Ubund (Split (strContent, start_string))
Prestring = strContent
para i = 0 para marcas
Startmark = Instr (1, Prestring, start_string, 1)
Se startmark = 0, então saia para
Compmark = Instr (1, Prestring, end_string, 1) + len (end_string)
Verstring = MID (Prestring, Startmark, Compmark - Startmark)
Prestring = Substitua (Prestring, Verstring, Substituir_string)
próximo
substituaplus = prestring
se err.number <> 0, então err.clear
Função final
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
O artigo acima é sobre as funções de processamento de arquivos comumente usadas no ASP. Eu acredito que todo mundo conhece a maioria deles. O novo canal de tecnologia novo continuará a coletar mais conhecimento útil para você. Espero que você possa entender as boas intenções do editor. Se você gosta deste artigo, continue a nos seguir!