<html>
<head>
<meta http-equiv="content-type" content="text/html">
<meta http-equiv="charset" content="UTF-8">
<link rel="stylesheet" type="text/css" href="./Style.css">
<title>elenco.htm</title>
</head>
<body class="elenco">
<table class="ElencoDoc" border="0" bordercolor="#000000">
<%
dim folder = Request.QueryString("f")
dim folderWeb
if folder <> "" then
folderWeb = "/" + folder
end if
Dim objFSO, objFile, objDir, objFolder
objFSO = Server.CreateObject("Scripting.FileSystemObject")
objFolder = objFSO.GetFolder(Server.MapPath("../miofolder" + folderWeb))
if objFolder.SubFolders.Count > 0 then
For Each objDir in objFolder.SubFolders
dim folderLink
if folder <> "" then
folderLink = folder + "\"
end if
%>
<tr>
<td class="ImageDoc"><a target="_self" href="miofolderDir.asp?f=<%Response.Write(folderLi nk + objDir.Name)%>"><img border="0"
src="../../../images/folder.gif"></a></td>
<td class="LinkDoc"><a class="LinkDocBox" target="_self" href="miofolderDir.asp?f=<%Response.Write(folderLi nk + objDir.Name)%>"><%Response.Write
(objDir.Name)%></a></td>
</tr>
<%
Next
Else
For Each objFile in objFolder.Files
dim filepath = folder + "/" + objFile.Name
%>
<tr>
<td class="ImageDoc"><a target="_self" href="../miofolder/<%Response.Write(filepath)%>"><img border="0" src="../../../images/icon.gif"
height="32px" width="32px"></a></td>
<td class="LinkDoc"><a class="LinkDocBox" target="_self" href="../miofolder/<%Response.Write(filepath)%>"><%Response.Write(obj File.Name)%></a></td>
<td class="DataDoc">Ultima Modifica: <%response.write(objFile.DateLastModified)%></td>
</tr>
<%
Next
End if
objFolder = Nothing
objFSO = Nothing
%>
</table>
</body>
</html>
Rispondi quotando
