<%

    Set fs = Server.CreateObject("Scripting.FileSystemObject")

    Set folderObj = fs.GetFolder(Server.MapPath("."))

    Set files = folderObj.Files 

%>

<html>

 <head>

  <title> 파일 리스트  </title>

 </head>


 <body>

    <h2><%'=Server.MapPath(".")%>디렉토리 목록</h2>

    <table border="1" width="900" style="font-size:9pt;" cellpadding="2">

        <tr>

            <th>이름</th>

            <th>크기</th>

            <th>형식</th>

            <th>생성 시각</th>

            <th>마지막 엑세스 시간</th>

            <th>마지막 수정 시간</th>

        </tr>

  <%

    For Each file in files

  %>

      <tr>

            <td><a href="<%=file.name%>"><%=file.name%></a></td>

            <td><%=file.size%> byte</td>

            <td><%=file.type%></td>

            <td><%=file.DateCreated%></td>

            <td><%=file.DateLastAccessed%></td>

            <td><%=file.DateLastModified%></td>

      </tr>

  <%

   Next

  %>

  </table>

 </body>

</html>

'asp' 카테고리의 다른 글

ASP SQL Injection 방어 함수  (0) 2021.05.16
캐릭터셋이 달라 한글 깨질대 multipart/form-data  (0) 2015.03.05
VB EncodeDecode  (0) 2014.07.25
접속자 UA 값 처리  (0) 2014.01.23
64비트 윈도우서버 DLL 컴포넌트 오류  (0) 2013.11.07

+ Recent posts