폴더에 있는 모든 사진을 단일 페이지에 표시하도록 ASP용 코드 조각을 보냅니다. 이는 현재 폴더 아래의 사진을 읽고 제어하는 데 도움이 됩니다. 다음과 같이 코드 코드를 복사합니다.
<%
희미한 fso,objFolder,objFiles
희미한 파일 목록
fso=Server.CreateObject(scripting.FileSystemObject) 설정
objFolder=fso.GetFolder(server.MapPath(thumbs)) 설정
objFiles=objFolder.Files 설정
'폴더 경로 아래의 파일 이름을 출력하는 루프
objFiles의 각 objFile에 대해
getExt(objFile.name)=gif 또는 getExt(objFile.name)=jpg 또는 getExt(objFile.name)=jpeg인 경우 그러면
filelist = 파일 목록<img src=&objFile.name>
종료 조건
다음
'객체 해제
objFolder=nothing으로 설정
fso=아무것도 설정하지 않음
'파일 형식 가져오기
함수 getExt(str)
getExt = Lcase(오른쪽(str,Len(str)-InstrRev(str,.)))
기능 종료
%>
<%=파일 목록%>
위의 코드를 바탕으로 2차 개발을 하여 난리를 낼 수 있습니다.