기록되지 않은 사진을 삭제하는 ASP에서는 폴더(사진이 저장된 폴더)의 각 사진을 데이터베이스의 모든 기록과 비교하는 이중 루프가 필요합니다. 사진을 나누어 이름의 첫 부분을 물어본 후, 나머지 데이터베이스에 있는 사진 경로 기록과 비교해 보세요.
vb의 InStr 함수가 존재하는 경우 반환값은 >0이므로 결론을 내릴 수 있습니다.
코드는 다음과 같습니다. deal.asp
다음과 같이 코드 코드를 복사합니다.
<%@ 언어=vbscript%>
<%응답.만료 = 0%>
<!--#포함 파일=conn.asp-->
<%
Dim objFSO,objFolder,objFile,FF '객체 인스턴스를 저장할 objFSO 변수를 선언합니다.
FF = 서버.맵패스(pro_s/)
objFSO = Server.CreateObject(Scripting.FileSystemObject) 설정
objFSO.FolderExists(ff)인 경우
Response.write &ff& 폴더의 모든 파일:<br>
objFolder 설정 = objFSO.GetFolder(ff)
objFolder.Files의 각 objFile에 대해
%>
<%
파일 이름=cstr(objFile.name)
내 이름=split(파일 이름,.)
ffname=내이름(0)
a=0
sclass=conn.execute 설정(wksc_pro에서 img 선택)
sclass.eof가 아닌 동안 수행
결과=Instr(sclass(img),ffname)
a=a+결과
만약(a>0) 그렇다면
나가다
종료하면
sclass.movenext
고리
if(a=0) 그렇다면
응답.쓰기 &obj파일&
응답.쓰기<br>
obj파일.삭제
종료하면
%>
<%
다음
또 다른
Response.Write 폴더 &ff&가 존재하지 않아 관련 정보를 읽을 수 없습니다!
종료 조건
objFolder = 없음 설정
Set objFSO = Nothing 'FileSystemObject 객체 인스턴스 메모리 공간 해제
%>