复制代码代码如下：
<％
「6 dir _*。gifファイルがあることを確認してください！
「はい、あなたも望むなら私たちのものをコピーすることができます.. :)
'http://line9.com/img/dir_dir.gif .. etc.
関数showimagefultype（strname）
strtemp = strname
strtemp <> "dir" thenの場合
strtemp = lcase（右（strtemp、len（strtemp）-instrev（strtemp、 "。"、-1、1））））
ifを終了します
Case Strtempを選択します
ケース「dir」
strtemp = "dir"
ケース「ASP」
strtemp = "asp"
ケース「HTM」、「HTML」
strtemp = "htm"
ケース "gif"、 "jpg"、 "jpeg"、 "png"、 "tif"、 "cpt"、 "bmp"、 "pcx"、 "tga"、 "psd"、 "eps"
strtemp = "img"
ケース "txt"、 "text"、 "dat"、 "bat"、 "sys"
strtemp = "txt"
ケース他のケース
strtemp = "misc"
[選択]を終了します
strtemp = "<img src =" "img/dir _"＆strtemp＆ "。gif" "width = 16 height = 16 border = 0>"
showimagefultype = strtemp
エンド関数
tek9 = request.querystring（ "tek9"）
tek9 = ""の場合、strpath = "mydirectory/" else strpath = tek9
objfso = server.createObject（ "Scripting.filesystemObject"）を設定します
objfolder = objfso.getFolder（server.mappath（strpath））を設定します
Response.Write "<b>ファイルとフォルダーをこちらで表示：</b> <br>"＆_
"<テーブルボーダー= 0> <tr> <td colspan = 2>"＆_
"<img src =" "img/dir_dir_open.gif" "width = 16 height = 13 border = 0> <font face = arial
サイズ= 2> <b> "＆strpath＆" </b> </font> </td> </tr> "
objfolder.subfoldersの各objitemについて
If strust（1、objitem、 "_vti"、1）= 0
Response.Write "<tr> <td> <font face = arial size = 2>"＆showimagefultype（ "dir"）＆ "＆_
"<a href =" "myfile.asp？tek9 ="＆strpath＆objitem.name＆ "/" ">"＆_
"＆objitem.name＆" </a> </font> </td> </td> </tr> "
ifを終了します
次
objfolder.filesの各objitemについて
Response.Write "<tr> <td> <font face = arial size = 2>"＆_
""＆showimagefultype（objitem.name）＆ "＆_
"<a href =" ""＆strpath＆objitem.name＆ "" ">"＆objitem.name＆ "</a> </font> </td>"＆_
"<td align = right> <font face = arial size = 2>"＆objitem.size＆ "</font> </td> </tr>"
次
objitem = Nothingを設定します
objfolder = Nothingを設定します
objfso =何も設定しません
Response.Write "</table>"
％>