今日のプログラム

などと書いておいて、いつまで続くかは不明だが……
ストックを出し尽くしたら終わりということで先は見えている。

どうやら、サーバサイドのプログラムのがいいらしく、ServletでもJSPでもなく今日はASPでも。言語はもちろん、VBScriptです。.NETじゃないので。
やっぱり、実際に稼働しているものの方がいいと思い自宅サーバで実際に使用しているのを乗せてみる。
今回は、ディレクトリー内にあるすべてのファイルを一覧表示させてみようと思う。

<table border="1">
<tr><th>ファイル名</th><th>サイズ(B)</th><th>最終更新日</th><th>ファイルの種類</th></tr>
<%
      Set objFS = Server.CreateObject("Scripting.FileSystemObject")
      Set objFF = objFS.GetFolder(Server.MapPath("."))
      For Each objF in objFF.Files
           IF objF.Name <> "index.asp" then
           buf = "<tr><td><a href='" & objF.Name & "'>" & objF.Name & "</a>"
           buf = buf & " </td><td><FONT SIZE='2' COLOR='RED'>" & objF.Size & "</FONT></td><td>"
           buf = buf & " <FONT SIZE='2' COLOR='BLUE'>" & objF.DateLastModified & "</FONT></td><td>"
           buf = buf & " <FONT SIZE='2' COLOR='GREEN'>" & objF.Type & "</FONT></td></tr>"
           Response.Write buf & "" & vbNewLine
           end if
      Next
%>

</table>

こんな感じで。一部、テーブルの都合でHTMLも含んでいます。
なお、このaspのファイル名としてindex.aspで決めうちしていますが、これは適宜かえていけばいいでしょう。修正は一カ所なのでとくに定数として宣言してはいませんが、同じ記述が何カ所も出てくるような修正を加えるとするならばそこは変えていった方がいいでしょう。

また、色とかデザインに関するものも混入しています。これも好みで変えていくといいでしょう。