File manager in asp. PROBLEMI

mistralwind

Nuovo Utente
18 Ott 2009
1
0
0
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.



Codice:
<%@LANGUAGE = VBScript%>
<%
    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 src="cartella.gif"></td>
<td width="18">
<a href="nome_file.asp?cartella=<%=cartella%>&sotto=<%Call genera()%>"><%=File.Name%></a>
</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 src="<%=fso.GetExtensionName(File.Name)%>.gif"></td>
<td>
<a href="<%=percorso &  File.Name%>"target="_blank"><%=File.Name%></a>
' con questa modifica apro solo i files contenuti nella sub ma non quelli della cartella madre
' <a href="<%=percorso & "\"  & File.Name%>"target="_blank"><%=File.Name%></a>
<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.
grazie in anticipo