En asp, especialmente en sistemas cms que necesitan producir archivos estáticos, a menudo es necesario juzgar, crear y eliminar algunos archivos. Estos son algunos de ellos, que básicamente satisfacen las necesidades básicas. Copie el código de código de la siguiente manera:
'========================================
'Obtener el sufijo del archivo
'========================================
Función Get_Filetxt(ByVal t0)
tenue t1
IF Len(t0)<2 O Instr(t0,.)=0 Entonces Get_Filetxt=False:Salir de la función
t1=Dividir(t0,.)
Get_Filetxt=Lcase(t1(Ubound(t1)))
Función final
'========================================
'Código puro para leer cualquier archivo
'========================================
Función CargarArchivo(ByVal t0)
IF Len(t0)=0 Luego salga de la función
SI Sdcms_Cache Entonces
IF Check_Cache (LoadFile_&t0) Entonces
Create_Cache LoadFile_&t0,LoadFile_Cache(t0)
Fin SI
LoadFile=Load_Cache(LoadFile_&t0)
Demás
LoadFile=LoadFile_Cache(t0)
Fin SI
Función final
Función LoadFile_Cache(ByVal t0)
Tenue t1,stm
En caso de error Continuar siguiente
IF Len(t0)=0 Luego salga de la función
t1=Vacío
Establecer Stm=Server.CreateObject(Adodb.Stream)
con stm
.Type=2'Leer en este modo
.modo=3
.charset=Conjunto de caracteres
.Abierto
.loadfromfile Server.MapPath(t0)
t1=.leer texto
.Cerca
Terminar con
Establecer Stm=Nada
SI Errar Entonces
LoadFile_Cache=&t0&&Err.Descripción:Err.Borrar
Demás
LoadFile_Cache=t1
Fin SI
Función final
'========================================
'Comprueba si el archivo existe
'========================================
Función Check_File(ByVal t0)
tenue f
t0=Servidor.MapPath(t0)
Establecer Fso=CreateObject(Scripting.FileSystemObject)
Check_File=Fso.FileExists(t0)
Establecer Fso=Nada
Función final
'========================================
'Comprueba si la carpeta existe
'========================================
Función Check_Folder(ByVal t0)
tenue f
t0=Servidor.MapPath(t0)
Establecer Fso=CreateObject(Scripting.FileSystemObject)
Check_Folder=Fso.FolderExists(t0)
Establecer Fso=Nada
Función final
'========================================
'Crear carpeta (nivel ilimitado)
'========================================
Función Create_UpFile(ByVal t0)
Dim t1,t2,objFSO,i
En caso de error Continuar siguiente
t0=Servidor.MapPath(t0)
IF InStr(t0,/)<=0 O InStr(t0,:)<=0 Entonces:Create_upfile=False:Salir de la función
Establecer objFSO=CreateObject(Scripting.FileSystemObject)
IF objFSO.FolderExists(t0) Entonces:Create_upfile=True:Salir de la función
t1=Dividir(t0,/):t2=
Para i=0 a UBound(t1)
t2=t2&t1(i)&/
SI no es objFSO.FolderExists(t2) Entonces objFSO.CreateFolder(t2)
Próximo
Establecer objFSO=Nada
IF Err=0 Entonces Create_upfile=True:De lo contrario Create_upfile=False:Echo Create_upfile：&Err.Description&<br>:Err.Clear
Función final
SubGuardarArchivo(PorVal t0,PorVal t1,PorVal t2)
Objeto oscuroFSO,t3
Establecer objFSO=CreateObject(Scripting.FileSystemObject)
IF t0= ¡Entonces el directorio Echo no puede estar vacío! :Fallecido
t3=Servidor.MapPath(t0)
SI t2= O IsNull(t2) Entonces t2=
SI objFSO.FolderExists(t3)=False Entonces Create_upfile(t0)
BuildFile t3&/&Recortar(t1),t2
Establecer objFSO=Nada
Subtítulo final
Función BuildFile(ByVal t0,ByVal t1)
Luz tenue
En caso de error Continuar siguiente
Establecer Stm=Server.CreateObject(Adodb.Stream)
con stm
.Type=2 'Leer en este modo
.Modo=3
.Charset=Conjunto de caracteres
.Abierto
.WriteText t1
.Guardar en archivo t0,2
.Cerca
Terminar con
Establecer Stm=Nada
IF Err Entonces Echo BuildFile：&Err.Description&<br>:Err.Clear
Función final
'========================================
'Cambiar el nombre de la carpeta
'========================================
Subcambiar nombre de archivo (PorVal t0,PorVal t1)
tenue f
En caso de error Continuar siguiente
Establecer Fso=Server.CreateObject(Scripting.FileSystemObject)
SI Fso.FolderExists (Server.MapPath (t0)) Entonces
Fso.MoveFolder Servidor.MapPath(t0),Servidor.MapPath(t1)
Fin SI
Establecer Fso=Nada
IF Err Then Echo Renamefile：&Err.Description&<br>:Err.Clear
Subtítulo final
'========================================
'Cambiar el nombre del archivo
'========================================
SubRenombrarHtml(PorVal t0,PorVal t1)
tenue f
En caso de error Continuar siguiente
Establecer Fso=Server.CreateObject(Scripting.FileSystemObject)
SI Fso.FileExists (Server.MapPath (t0)) Entonces
Fso.MoveFile Servidor.MapPath(t0),Servidor.MapPath(t1)
Fin SI
Establecer Fso=Nada
IF Err Entonces Echo Renamehtml：&Err.Description&<br>:Err.Clear
Subtítulo final
'========================================
'Eliminar carpeta
'========================================
Sub DelFile(PorVal t0)
Tenue Fso,F
En caso de error Continuar siguiente
Establecer Fso=Server.CreateObject(Scripting.FileSystemObject)
Establecer F=fso.GetFolder(Server.MapPath(t0))
SI no es nulo (t0), entonces F.Delete True
IF Err Entonces Echo Delfile：&Err.Description&<br>:Err.Clear
Subtítulo final
'========================================
'Eliminar archivos
'========================================
Sub DelHtml(PorVal t0)
tenue f
En caso de error Continuar siguiente
Establecer Fso=Server.CreateObject(Scripting.FileSystemObject)
SI Fso.FileExists(Server.MapPath(t0)) Luego Fso.DeleteFile Server.MapPath(t0)
IF Err Entonces Echo DelHtml：&Err.Description&<br>:Err.Clear
Subtítulo final
Función Re_FileName(ByVal t0)
tenue t1
t0=Lcaso(t0)
IF Len(t0)=0 Entonces Re_FileName={id}:Salir de la función
t1=Ahora()
'Procesar nombres de archivos personalizados
'SI Instr(t0,{)>0 e Instr(t0,})>0 entonces
'SI Instr(t0,{id})=0 Entonces
't0=t0&{id}' intenta evitar la duplicación
'Fin SI
'Fin SI
t0=Reemplazar(t0,{y},Año(t1))
t0=Reemplazar(t0,{m},Derecha(0&Mes(t1),2))
t0=Reemplazar(t0,{d},Derecha(0&Día(t1),2))
t0=Reemplazar(t0,{h},Derecha(0&Hora(t1),2))
t0=Reemplazar(t0,{mm},Derecha(0&Minuto(t1),2))
t0=Reemplazar(t0,{s},Derecha(0&Segundo(t1),2))
Re_FileName=t0
Función final