複製代碼代碼如下：
<％
'確保您有6個dir _*。 gif文件！
“是的，如果您也想要，您可以復制我們的.. :)
'http://line9.com/img/dir_dir.gif ..等
功能ShowImageFortype（strname）
strtemp = strname
如果strtemp <>“ dir”，則
strtemp = lcase（右（strtemp，len（strtemp） - instreve（strtemp，''。“。”，-1，1）））））））
如果結束
選擇案例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”，“文本”，“ dat”，“ bat”，“ sys”
strtemp =“ txt”
其他情況
strtemp =“ MISC”
結束選擇
strtemp =“ <img src =”“ img/dir _”＆strtemp＆'。 gif“”寬度= 16高= 16 border = 0>“”
ShowImageFortype = strtemp
結束功能
tek9 = request.querystring（“ tek9”）
如果tek9 =“”，則strpath =” myDirectory/“ else strpath = tek9
設置objfso = server.createobject（“ scripting.filesystemobject”）
設置objfolder = objfso.getFolder（server.mappath（strpath））
wrest.write“ <b>在此處查看我們的文件和文件夾：</b> <br>”＆_
“ <table border = 0> <tr> <td colspan = 2>”＆_
“ <img src =”“ img/dir_dir_open.gif”“寬度= 16高= 13 border = 0> <font face = arial = arial
大小= 2> <b>“＆strpath＆” </b> </font> </td> </tr>
對於objfolder中的每個objitem。
如果儀器（1，objitem，“ _vti”，1）= 0
wrespons.write“ <tr> <td> <font face = arial size = 2>”＆showimagefortype（“ dir”）＆“”＆_
“ <a href =”“ myfile.asp？tek9 =”＆strpath＆objitem.name＆“/“”>“”＆_
“”＆objitem.name＆“ </a> </font> </td> <td> </td> </td> </tr>”
如果結束
下一個
對於objfolder.files中的每個objitem
響應。 write“ <tr> <td> <font face = arial size = 2>”＆_
“”＆ShowImageFortype（objitem.name）＆“”＆_
“ <a href =”“”＆strpath＆objitem.name＆“”“>”＆objitem.name＆“ </a> </font> </font> </td>”＆_
“ <td align = right> <font face = arial size = 2>”＆objitem.size＆“ </font> </td> </td> </tr>”
下一個
設置objitem =沒有
設置objfolder =沒有
設置objfso =沒有
響應。寫入“ </table>”
％>