<% if Session("allievo")<>"OK" then Response.Redirect("autenticazione.asp") end if %> <% '*************************************************************************** '* ASP Directory Listing * '* * '* Do not remove this notice. * '* * '* Copyright 1999, 2000 by Mike Hall. * '* Please see http://www.brainjar.com for documentation and terms of use. * '*************************************************************************** %> Materiale scaricabile

ing. Salvatore Sorce, Ph.D.

Didattica


Torna a Didattica


Elaborazione di immagini e suoni. Riconoscimento e visioni artificiali

Modulo "Informatica di base" - 6 c.f.u.

Materiale didattico scaricabile

 

<% sub ListFolderContents(path) dim fs, folder, file, item, url set fs = CreateObject("Scripting.FileSystemObject") set folder = fs.GetFolder(path) 'Display the target folder and info. Response.Write("
  • " & 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 totali." & vbCrLf) Response.Write("" & vbCrLf) Response.Write("
  • " & vbCrLf) end sub function MapURL(path) dim rootPath, url 'Convert a physical file path to a URL for hypertext links. rootPath = Server.MapPath("/") url = Right(path, Len(path) - Len(rootPath)) MapURL = Replace(url, "\", "/") end function %>

    logout