Buon giorno a tutti.
Chiedo aiuto a qualche persona che ne capisce più di me.
Ho trovato in giro per la rete un interessante script che funge da file manager che io uso in un contesto intranet.
il problema è il seguente:
quando punto con il browser al file asp in questione, questo mi visualizza correttamente la path che ho specificato nella variabile "percorso".
se in quella cartella creo fisicamente una subdirectory, questa mi viene visualizzata e posso vedere anche i files contenuti.
il problema è che non riesco ad aprirli.
per intenderci apro quelli della cartella madre ma non i file della sub che contiene.
<%
Dim cartella, sotto
cartella = Request.QueryString("cartella")
sotto = Request.QueryString("sotto")
Dim fso, percorso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
'path fisica documenti
percorso = "\\server\path" & cartella & "\" & sotto
%>
<html>
<head>
<title>File Manager</title>
<link rel="stylesheet" type="text/css" href="../style.css">
<style type="text/css">
<!--
.Stile1 {
color: #FFFFFF;
font-weight: bold;
}
a:link {
color: #000000;
}
a:visited {
color: #000000;
}
a:hover {
color: #FF0000;
}
a:active {
color: #000000;
}
body {
background-color: #FFFFFF;
}
body,td,th {
color: #000000;
font-family: Geneva, Arial, Helvetica, sans-serif;
font-size: 12px;
}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<body>
<table cellpadding="1" cellspacing="0">
<tr bgcolor="#EEEEEE">
<td colspan="2" bgcolor="#0099FF"><span class="Stile1">Elemento</span></td>
<td colspan="2" bgcolor="#0099FF"><span class="Stile1">Tipo</span></td>
<td colspan="2" bgcolor="#0099FF"><span class="Stile1">Dimensione</span></td>
<td colspan="2" bgcolor="#0099FF"><span class="Stile1">Data creazione</span></td>
</tr>
<%
Function genera()
If sotto = "" Then
Response.Write File.Name
Else
Response.Write sotto & "\" & File.Name
End If
End Function
For Each File in fso.GetFolder(percorso).SubFolders
%>
<tr>
<td width="36">[img]cartella.gif[/img]</td>
<td width="18">
<%=File.Name%>
</td>
<td width="3">|</td>
<td width="19"><%=File.Type%></td>
<td width="12">|</td>
<td width="66"><%=FormatNumber(File.Size, 0)%></td>
<td width="10">|</td>
<td width="91"><%=File.DateCreated%></td>
</tr>
<%
Next
For Each File in fso.GetFolder(percorso).Files
%>
<tr>
<tr>
<td>[img]<%=fso.GetExtensionName(File.Name)%>.gif[/img]</td>
<td>
<%=File.Name%>
' con questa modifica apro solo i files contenuti nella sub ma non quelli della cartella madre
' "target="_blank"><%=File.Name%>
<td>|</td>
<td><%=File.Type%></td>
<td>|</td>
<td><%=FormatNumber(File.Size, 0)%></td>
<td>|</td>
<td><%=File.DateCreated%></td>
</tr>
</tr>
<%
Next
%>
</table>
</body>
</html>
<%
Set fso = Nothing
%>
spero ci sia qualcuno che possa aiutarmi.
Rispondi quotando
