Dirlist.asp - Softwareontwikkeling

woensdag 2 november 2005 11:08

Acties:

Topicstarter

Ik heb een webhosting provider die geen directory listing ondersteunt.
Wel kreeg ik de tip om het asp-script dirlist te gebruiken.

Het is de bedoeling dat ik de resterende webspace gebruik om bestanden te plaatsen waar ik via internet bij kan. Dit kunnen ook foto's zijn die ik wil delen.

Ik wil als voorbeeld www.mijndomein.nl/bestanden delen.

Het script zoals ik het heb gekregen van mijn hosting provider:

<%@ LANGUAGE="VBScript" %>
<% Response.Buffer="true" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<%
' ASP Directory Listing
' 20051024.1051 - Jan Reilink <info@vevida.com>
'
' Dit script geeft een directorylisting weer. Het script is voorzien van HTML
' waarmee rekening gehouden dient te worden met eventuele stylesheets.
'
%>

<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>ASP Directory Listing</title>
<meta http-equiv="Content-Type" content="text/html;charset=utf-8" />

<link rel="stylesheet" type="text/css" href="style/style.css" />
</head>

<body>
<div>
<h3>Directory index</h3>
</div>

<%
' Hier kunnen de folders opgegeven worden die weergegeven moeten worden.
' Alle subfolders worden ook weergegeven, indien de rechten toereikend zijn.
' Plaats voor iedere folder een regel:
' ListFolderContents(Server.MapPath("/foldernaam"))
'
' Standaard wordt de rootfolder weergegeven.
%>
<ul>
<%
ListFolderContents(Server.MapPath("/dirlist"))
%>
</ul>
</body>
</html>

<%
sub ListFolderContents(path)
dim fs, folder, file, item, url

set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(path)

' Geef de folder en informatie weer.
Response.Write("<li>[img]'images/folder.gif'[/img] " & folder.Name & " - " & folder.Files.Count & " files, ")

if folder.SubFolders.Count > 0 then
Response.Write(folder.SubFolders.Count & " directories, ")
end if

Response.Write(Round(folder.Size / 1024) & " KB total." & vbCrLf)
Response.Write("<ul>" & vbCrLf)

' Geef eventuele subfolders weer
for each item in folder.SubFolders
ListFolderContents(item.Path)
next

' Geef bestanden weer. Eventueel kunt u per "img src" regel een width en height per
' image opnemen, bijvoorbeeld:
' width='16' height='16'
'
' De lijst met weer te geven icoontjes per extensie is uit te breiden met elseif regels
for each item in folder.Files
url = MapURL(item.path)
if StrComp(Right(item.Name, 3), "mdb", 1) = 0 then
Response.Write("<li>[img]'images/msaccess.gif'[/img] <a href=""" & url & """> " & item.Name & "</a> - " _
& item.Size & " bytes, " _
& "last modified on " & item.DateLastModified & "." _
& "</li>" & vbCrLf)
elseif StrComp(Right(item.Name, 3), "doc", 1) = 0 then
Response.Write("<li>[img]'images/word.gif'[/img] <a href=""" & url & """>" & item.Name & "</a> - " _
& item.Size & " bytes, " _
& "last modified on " & item.DateLastModified & "." _
& "</li>" & vbCrLf)
elseif StrComp(Right(item.Name, 3), "pdf", 1) = 0 then
Response.Write("<li>[img]'images/pdf2.gif'[/img] <a href=""" & url & """>" & item.Name & "</a> - " _
& item.Size & " bytes, " _
& "last modified on " & item.DateLastModified & "." _
& "</li>" & vbCrLf)
elseif StrComp(Right(item.Name, 3), "jpg", 1) = 0 then
Response.Write("<li>[img]'images/jpg.gif'[/img] <a href=""" & url & """>" & item.Name & "</a> - " _
& item.Size & " bytes, " _
& "last modified on " & item.DateLastModified & "." _
& "</li>" & vbCrLf)
elseif StrComp(Right(item.Name, 3), "bmp", 1) = 0 then
Response.Write("<li>[img]'images/bmp.gif'[/img] <a href=""" & url & """>" & item.Name & "</a> - " _
& item.Size & " bytes, " _
& "last modified on " & item.DateLastModified & "." _
& "</li>" & vbCrLf)
elseif StrComp(Right(item.Name, 3), "gif", 1) = 0 then
Response.Write("<li>[img]'images/gif.gif'[/img] <a href=""" & url & """>" & item.Name & "</a> - " _
& item.Size & " bytes, " _
& "last modified on " & item.DateLastModified & "." _
& "</li>" & vbCrLf)
elseif StrComp(Right(item.Name, 1), "c", 1) = 0 then
Response.Write("<li>[img]'images/c.gif'[/img] <a href=""" & url & """>" & item.Name & "</a> - " _
& item.Size & " bytes, " _
& "last modified on " & item.DateLastModified & "." _
& "</li>" & vbCrLf)
elseif StrComp(Right(item.Name, 3), "txt", 1) = 0 then
Response.Write("<li>[img]'images/text.gif'[/img] <a href=""" & url & """>" & item.Name & "</a> - " _
& item.Size & " bytes, " _
& "last modified on " & item.DateLastModified & "." _
& "</li>" & vbCrLf)
elseif StrComp(Right(item.Name, 3), "php", 1) = 0 then
Response.Write("<li>[img]'images/php.gif'[/img] <a href=""" & url & """>" & item.Name & "</a> - " _
& item.Size & " bytes, " _
& "last modified on " & item.DateLastModified & "." _
& "</li>" & vbCrLf)
elseif StrComp(Right(item.Name, 3), "zip", 1) = 0 then
Response.Write("<li>[img]'images/zip.gif'[/img] <a href=""" & url & """>" & item.Name & "</a> - " _
& item.Size & " bytes, " _
& "last modified on " & item.DateLastModified & "." _
& "</li>" & vbCrLf)
else
Response.Write("<li>[img]'images/unknown.gif'[/img] <a href=""" & url & """>" & item.Name & "</a> - " _
& item.Size & " bytes, " _
& "last modified on " & item.DateLastModified & "." _
& "</li>" & vbCrLf)
end if
next

Response.Write("</ul>" & vbCrLf)
Response.Write("</li>" & vbCrLf)
end sub

function MapURL(path)
dim rootPath, url

' Converteer een fysiek bestandslokatie naar een URL voor
' hyperlinks.
rootPath = Server.MapPath("/")
url = Right(path, Len(path) - Len(rootPath))
MapURL = Replace(url, "\", "/")
end function
%>

Kan iemand mij vertellen wat ik moet wijzigen?

[ Voor 27% gewijzigd door josoetgebrook op 02-11-2005 11:09 ]

woensdag 2 november 2005 11:10

Acties:

Snake

Los Angeles, CA, USA

plaats dat teneerste eens tussen code tags! dat vergroot de leesbaarheid!

Going for adventure, lots of sun and a convertible! | GMT-8

woensdag 2 november 2005 11:13

Acties:

André

Analytics dude

Mjah, dit is gewoon een scriptrequest, en je geeft totaal niet aan wat je zelf al geprobeerd hebt. Wij zijn niet je persoonlijke helpdesk.

Verder hoort deze in Programming & Webscripting

Maar zoek eerst eens uit wat er fout gaat en als je daar niet uit komt kun je een nieuw topic openen in bovengenoemd forum met alleen relevante code.