复制代码代码如下 :
<%
'6 Dir _*. GIF 파일이 있는지 확인하십시오!
'예, 나도 원한다면 우리를 복사 할 수 있습니다 .. :)
'http://line9.com/img/dir_dir.gif .. 등
함수 showimagefortype (strname)
strtemp = strname
strtemp <> "dir"라면
strtemp = lcase (오른쪽 (strtemp, len (strtemp) - instrev (strtemp, ".", -1, 1))))
끝 If
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", "text", "dat", "bat", "sys"
strtemp = "txt"
다른 경우
strtemp = "기타"
종료 선택
strtemp = "<img src =" "img/dir _"& strtemp & ". gif" "너비 = 16 높이 = 16 경계 = 0>"
showimagefortype = strtemp
엔드 기능
tek9 = request.querystring ( "tek9")
tek9 = ""인 경우 strath = "MyDirectory/"else strath = tek9
set objfso = server.createobject ( "scripting.filesystemobject")
set objfolder = objfso.getfolder (Server.mappath (strath))
response.write "<b> 파일과 폴더보기 : </b> <br>"& _
"<테이블 테두리 = 0> <tr> <td colspan = 2>"& _
"<img src =" "img/dir_dir_open.gif" "너비 = 16 높이 = 13 경계 = 0> <font face = arial
size = 2> <b> "& stratp &"</b> </font> </td> </tr> "
objfolder.subfolders의 각 objitem에 대해
악기 (1, objitem, "_vti", 1) = 0이면
응답. "<tr> <td> <font face = arial size = 2>"& showimagefortype ( "dir") & "& _
"<a href =" "myfile.asp? tek9 ="& strath & objitem.name & "/" ">"& _
""& objitem.name & "</a> </font> </td> <td> </td> </tr>"
끝 If
다음
objfolder.files의 각 objitem에 대해
응답. "<tr> <td> <font face = arial size = 2>"& _
""& showImagefortype (objitem.name) & ""& _
"<a href =" "& stratp & objitem.name &" "" ""> "& objitem.name &"</a> </a> </font> </td> "& _
"<td align = right> <font face = arial size = 2>"& objitem.size & "</font> </td> </tr>"
다음
objitem = 아무것도 설정하지 않습니다
OBJFolder = 아무것도 설정하지 않습니다
OBJFSO = 아무것도 설정하지 않습니다
response.write "</table>"
%>