複製代碼代碼如下:
<%
'確保您有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>”
%>