复制代码代码如下：
<％
'确保您有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>”
％>