复制代码代码如下:
<٪
تأكد من أن لديك 6 dir _*. ملفات GIF!
"نعم ، يمكنك نسخنا إذا كنت تريد أيضًا .. :)
'http://line9.com/img/dir_dir.gif .. إلخ.
وظيفة showimagefortype (strname)
strtemp = strname
إذا strtemp <> "dir" ثم
strtemp = lace (يمين (strtemp ، len (strtemp) - instrev (strtemp ، "." ، -1 ، 1))))
إنهاء إذا
حدد Case Strtemp
حالة "دير"
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>"
ShowImageFortype = strtemp
وظيفة نهاية
TEK9 = request.querystring ("TEK9")
إذا tek9 = "" ثم strprath = "myDirectory/" else strprath = tek9
SET OBJFSO = server.createObject ("scripting.filesystemObject")
تعيين Objfolder = objfso.getfolder (server.mappath (strprath))
Response.write "<b> عرض ملفاتنا ومجلداتنا هنا: </b> <br>" & _
"<table border = 0> <tr> <td colspan = 2>" & _
"<img src =" "img/dir_dir_open.gif" "width = 16 height = 13 border = 0> <font face = arial
size = 2> <b> "& strprath &" </b> </font> </td> </tr> "
لكل objitem في objfolder.subfolders
إذا instr (1 ، objitem ، "_vti" ، 1) = 0 ثم
استجابة. write "<tr> <td> <font face = arial size = 2>" & showimagefortype ("dir") & "" & _
"<a href =" "myfile.asp؟ tek9 =" & strprath & objitem.name & "/"> "& _
"" & objitem.name & "</a> </font> </td> <td> </td> </tr>"
إنهاء إذا
التالي
لكل objitem في objfolder.files
استجابة. write "<tr> <td> <font face = arial size = 2>" & _
"" & showimagefortype (objitem.name) و "" & _
"<a href =" "" & strprath & objitem.name & "" ">" & objitem.name & "</a> </font> </td>" & _ _
"<td align = right> <font face = arial size = 2>" & objitem.size & "</font> </td> </tr>"
التالي
تعيين objitem = لا شيء
تعيين objfolder = لا شيء
تعيين OBJFSO = لا شيء
استجابة. الكتابة "</table>"
٪>