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