[ASP] 내 홈피에 사용했던 추억앨범

소스를 보면 일단 그림폴더에서 파일명을 읽은다음...
작은 그림은 output이라는 폴더에서 가져와 뿌려준다.
photoworks라는 프로그램을 사용해서 width=100 으로 썸네일화 시킨이미지가 output이라는 폴더에 담겨져있다.
file object를 사용하여
파일의 마지막수정일-생성일(DateLastModified)을 가지고 와 출력했다.

[CODE]<% SET fs = Server.CreateObject("scripting.FileSystemObject") folderpath=Server.MapPath(".") Set f = fs.GetFolder(folderpath) Set ff = f.Files %> <table width=700 bgcolor=F2F2F2> <tr bgcolor=F2F2F2 align=center height=10> <td width=20%></td> <td width=20%></td> <td width=20%></td> <td width=20%></td> <td width=20%></td> </tr> <tr bgcolor=FFFFFF align=center> <% For Each f1 in ff if lcase(right(f1.name,3))="jpg" or lcase(right(f1.name,3))="gif" then nI = nI + 1 ' Response.write f1.name &amp;"<br/>" %> <td><a href="<%= f1.name%>" target="_blank"><img src="output/<%= f1.name %>" width=100></a><br/><font size=2 face=돋움><%= left(f1.name,12) %><br/><%= f1.DateLastModified %></font></td> <% If (nI Mod 5) = 0 Then Response.Write "</tr><tr bgcolor=FFFFFF align=center>" end if Next %> </tr> <tr bgcolor=F2F2F2 align=center height=10> <td width=20%></td> <td width=20%></td> <td width=20%></td> <td width=20%></td> <td width=20%></td> </tr> </table> [/CODE]