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= 그렇다면 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)
희미한 stm
오류 발생 시 다음 재개
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
기능 종료