|
\\ <%=Testo_Path_Pannello%> : <%=Testo_Sezione_FileElenco%>
<%=Testo_Introduzione_ElencoFile%>
<%
Dim FSO, Cartella, ElencoFile, Documento, I, QSFiltro
QSFiltro = Request.QueryString("filtro")
If QSFiltro = "" Then
QSFiltro = "tutti"
End If
%>
| <%=Testo_FiltroFile_ColonnaNome%> |
<%=Testo_FiltroFile_ColonnaKb%> |
|
<%
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Cartella = FSO.GetFolder(Server.MapPath(Path_DirPublic))
Set ElencoFile = Cartella.Files
Function ControlloEstensione(NomeDelFile, TipoDiFiltro)
Dim EstensioneDelFile
EstensioneDelFile = LCase(Mid(NomeDelFile, Len(NomeDelFile) - 3, 4))
If EstensioneDelFile = ".txt" AND Len(NomeDelFile) = 10 AND IsNumeric(Mid(NomeDelFile, 1, 7)) Then
ControlloEstensione = False
Else
Select Case QSFiltro
Case "tutti"
ControlloEstensione = True
Case "immagini"
If EstensioneDelFile = ".jpg" OR EstensioneDelFile = ".gif" OR EstensioneDelFile = ".png" Then
ControlloEstensione = True
Else
ControlloEstensione = False
End If
Case "documenti"
If EstensioneDelFile <> ".jpg" AND EstensioneDelFile <> ".gif" AND EstensioneDelFile <> ".png" AND EstensioneDelFile <> ".mp3" Then
ControlloEstensione = True
Else
ControlloEstensione = False
End If
Case "podcast"
If EstensioneDelFile = ".mp3" Then
ControlloEstensione = True
Else
ControlloEstensione = False
End If
End Select
End If
End Function
I = 0
For Each Documento in ElencoFile
If ControlloEstensione(Documento.Name, QSFiltro)Then
I = I + 1
%>
|
<%
If Request.QueryString("m") <> "visualizzazione" Then
%>
');"><%If Len(Documento.Name) > 25 Then Response.Write Mid(Documento.Name, 1, 25) & "..." Else Response.Write Documento.Name End If%>
<%
Else
If InStr(Documento.Name, ".") > 0 Then
If InStr(Testo_Upload_EstensioniNonAbilitate, Mid(Documento.Name, InStrRev(Documento.Name, "."), Len(Documento.Name) - InStrRev(Documento.Name, ".") + 1)) <= 0 Then
%>
<%=Documento.Name%>
<%
Else
%>
<%=Documento.Name%>
<%
End If
Else
%>
<%=Documento.Name%>
<%
End If
End If
%>
|
<%=Documento.Size \ 1024%> |
<%=Testo_LinkCancella%> |
<%
End If
Next
%>
<%=I%> <%=Testo_FiltroFile_TotaleFile%>
|
<%=Testo_LinkChiudi%>
|