ASP에서는 특히 정적 파일을 생성해야 하는 cms 시스템에서 일부 파일을 판단하고 생성하고 삭제해야 하는 경우가 많습니다. 기본적으로 기본 요구 사항을 충족하는 파일 중 일부는 다음과 같습니다.
다음과 같이 코드 코드를 복사합니다.
'=======================================
'파일 접미사 가져오기
'=======================================
함수 Get_Filetxt(ByVal t0)
희미한 t1
IF Len(t0)<2 Or Instr(t0,".")=0 Then Get_Filetxt=False:종료 함수
t1=분할(t0,".")
Get_Filetxt=Lcase(t1(Ubound(t1)))
기능 종료
'=======================================
'모든 파일을 읽는 순수 코드
'=======================================
함수 LoadFile(ByVal t0)
IF Len(t0)=0이면 함수 종료
IF Sdcms_Cache 그러면
IF Check_Cache("LoadFile_"&t0) 그러면
Create_Cache "LoadFile_"&t0,LoadFile_Cache(t0)
IF 종료
LoadFile=Load_Cache("LoadFile_"&t0)
또 다른
LoadFile=LoadFile_Cache(t0)
IF 종료
기능 종료
함수 LoadFile_Cache(ByVal t0)
희미한 t1,stm
오류 발생 시 다음 재개
IF Len(t0)=0이면 함수 종료
t1=비어 있음
Stm=Server.CreateObject("Adodb.Stream") 설정
Stm 포함
.Type=2'이 모드에서 읽기
.mode=3
.charset=CharSet
.열려 있는
.loadfromfile 서버.MapPath(t0)
t1=.readtext
.닫다
끝
Stm=아무것도 설정하지 않음
IF 오류가 발생하면
LoadFile_Cache="""&t0&"""&Err.Description:Err.Clear
또 다른
LoadFile_Cache=t1
IF 종료
기능 종료
'=======================================
'파일이 존재하는지 확인하세요.
'=======================================
함수 Check_File(ByVal t0)
희미한 F
t0=서버.맵 경로(t0)
Fso=CreateObject("Scripting.FileSystemObject")를 설정합니다.
Check_File=Fso.FileExists(t0)
Fso=아무것도 설정하지 않음
기능 종료
'=======================================
'폴더가 존재하는지 확인하세요.
'=======================================
기능 Check_Folder(ByVal t0)
희미한 F
t0=서버.맵 경로(t0)
Fso=CreateObject("Scripting.FileSystemObject")를 설정합니다.
Check_Folder=Fso.FolderExists(t0)
Fso=아무것도 설정하지 않음
기능 종료
'=======================================
'폴더 생성(무제한)
'=======================================
함수 Create_UpFile(ByVal t0)
희미한 t1,t2,objFSO,i
오류 발생 시 다음 재개
t0=서버.맵 경로(t0)
IF InStr(t0,"/")<=0 Or InStr(t0,":")<=0 Then:Create_upfile=False:함수 종료
설정 objFSO=CreateObject("Scripting.FileSystemObject")
IF objFSO.FolderExists(t0) Then:Create_upfile=True:종료 함수
t1=분할(t0,"/"):t2=""
i=0인 경우 Ubound(t1)로
t2=t2&t1(i)&"/"
IF가 objFSO.FolderExists(t2)가 아니면 objFSO.CreateFolder(t2)입니다.
다음
objFSO=아무것도 설정하지 않음
IF Err=0 Then Create_upfile=True:Else Create_upfile=False:Echo "Create_upfile："&Err.Description&"<br>":Err.Clear
기능 종료
하위 저장파일(ByVal t0,ByVal t1,ByVal t2)
희미한 objFSO,t3
설정 objFSO=CreateObject("Scripting.FileSystemObject")
IF t0="" Then Echo "디렉터리는 비워둘 수 없습니다!": 사망
t3=서버.맵 경로(t0)
IF t2="" 또는 IsNull(t2)이면 t2=""
IF objFSO.FolderExists(t3)=False 그러면 Create_upfile(t0)
BuildFile t3&"/"&Trim(t1),t2
objFSO=아무것도 설정하지 않음
서브 끝
함수 BuildFile(ByVal t0,ByVal t1)
DimStm
오류 발생 시 다음 재개
Stm=Server.CreateObject("Adodb.Stream") 설정
Stm 포함
.Type=2 '이 모드에서 읽기
.모드=3
.Charset=CharSet
.열려 있는
.WriteText t1
.SaveToFile t0,2
.닫다
끝
Stm=아무것도 설정하지 않음
IF Err Then Echo "BuildFile："&Err.Description&"<br>":Err.Clear
기능 종료
'=======================================
'폴더 이름 바꾸기
'=======================================
하위 이름 바꾸기파일(ByVal t0,ByVal t1)
희미한 F
오류 발생 시 다음 재개
Fso=Server.CreateObject("Scripting.FileSystemObject")를 설정합니다.
IF Fso.FolderExists(Server.MapPath(t0)) Then
Fso.MoveFolder 서버.MapPath(t0),Server.MapPath(t1)
IF 종료
Fso=아무것도 설정하지 않음
IF Err Then Echo "파일 이름 바꾸기："&Err.Description&"<br>":Err.Clear
서브 끝
'=======================================
'파일 이름 바꾸기
'=======================================
하위 이름 바꾸기Html(ByVal t0,ByVal t1)
희미한 F
오류 발생 시 다음 재개
Fso=Server.CreateObject("Scripting.FileSystemObject")를 설정합니다.
IF Fso.FileExists(Server.MapPath(t0)) 그러면
Fso.MoveFile 서버.MapPath(t0),Server.MapPath(t1)
IF 종료
Fso=아무것도 설정하지 않음
IF Err Then Echo "Renamehtml："&Err.Description&"<br>":Err.Clear
서브 끝
'=======================================
'폴더 삭제
'=======================================
하위 DelFile(ByVal t0)
희미한 Fso,F
오류 발생 시 다음 재개
Fso=Server.CreateObject("Scripting.FileSystemObject")를 설정합니다.
F=fso.GetFolder(Server.MapPath(t0)) 설정
IF Not IsNull(t0) Then F.Delete True
IF Err Then Echo "Delfile："&Err.Description&"<br>":Err.Clear
서브 끝
'=======================================
'파일 삭제
'=======================================
하위 DelHtml(ByVal t0)
희미한 F
오류 발생 시 다음 재개
Fso=Server.CreateObject("Scripting.FileSystemObject")를 설정합니다.
IF Fso.FileExists(Server.MapPath(t0)) Then Fso.DeleteFile Server.MapPath(t0)
IF Err Then Echo "DelHtml："&Err.Description&"<br>":Err.Clear
서브 끝
함수 Re_FileName(ByVal t0)
희미한 t1
t0=L케이스(t0)
IF Len(t0)=0 Then Re_FileName="{id}": 함수 종료
t1=지금()
'사용자 정의 파일 이름 처리
'IF Instr(t0,"{")>0 And Instr(t0,"}")>0 Then
'IF Instr(t0,"{id}")=0 그러면
't0=t0&"{id}"' 중복 방지 시도
'IF 종료
'IF 종료
t0=바꾸기(t0,"{y}",연도(t1))
t0=바꾸기(t0,"{m}",오른쪽("0"&월(t1),2))
t0=바꾸기(t0,"{d}",오른쪽("0"&일(t1),2))
t0=바꾸기(t0,"{h}",오른쪽("0"&시간(t1),2))
t0=바꾸기(t0,"{mm}",오른쪽("0"&분(t1),2))
t0=바꾸기(t0,"{s}",오른쪽("0"&초(t1),2))
Re_파일 이름=t0
기능 종료