复制代码代码如下:
<%
'Pastikan Anda memiliki 6 dir _*. File gif!
'Ya, Anda bisa menyalin kami jika Anda mau juga .. :)
'http://line9.com/img/dir_dir.gif .. dll.
Fungsi showimageFortype (strname)
strtemp = strname
Jika strtemp <> "dir" lalu
strtemp = lcase (kanan (strtemp, len (strtemp) - instrrev (strtemp, ".", -1, 1))))
Akhiri jika
Pilih Case Strtemp
Kasus "dir"
strtemp = "dir"
Kasus "ASP"
strtemp = "asp"
Kasus "htm", "html"
strtemp = "htm"
Kasus "gif", "jpg", "jpeg", "png", "tif", "cpt", "bmp", "pcx", "tga", "psd", "eps"
strtemp = "img"
Kasus "txt", "teks", "dat", "bat", "sys"
strtemp = "txt"
Kasus lain
strtemp = "misc"
Akhiri Pilih
strtemp = "<img src =" "img/dir _" & strtemp & ". gif" "lebar = 16 tinggi = 16 batas = 0>"
ShowimageFortype = strtemp
Fungsi akhir
Tek9 = request.queryString ("Tek9")
Jika TEK9 = "" Lalu strpath = "mydirectory/" else strpath = tek9
Set ObjFSO = Server.CreateObject ("Scripting.FilesystemObject")
Setel objolder = objfso.getFolder (server.mappath (strpath))
Response.write "<b> Lihat file dan folder kami di sini: </b> <br>" & _
"<tabel border = 0> <tr> <td colspan = 2>" & _
"<img src =" "img/dir_dir_open.gif" "lebar = 16 tinggi = 13 border = 0> <font face = Arial
size = 2> <b> "& strpath &" </b> </font> </td> </tr> "
Untuk setiap objitem di objolder.subfolder
If instr (1, objitem, "_vti", 1) = 0 Lalu
Response.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> </tr>"
Akhiri jika
Berikutnya
Untuk setiap objitem di objolder.files
Response.write "<tr> <td> <font face = ukuran Arial = 2>" & _
"" & ShowimageFortype (objitem.name) & "" & _
"<a href =" "" & strpath & objitem.name & "" ">" & objitem.name & "</a> </font> </td>" & _
"<td align = right> <font face = ukuran arial = 2>" & objitem.size & "</font> </td> </tr>"
Berikutnya
Atur objitem = tidak ada
Atur objolder = tidak ada
Atur objfso = tidak ada
Response.write "</able>"
%>