questo script mi visualizza OGGI i files inseriti OGGI in una cartella.codice:<head> </head> <body> <% Response.Buffer = True Response.Expires = 0 SetLocale(1040) root = "/cartella" if Request.Form("chiave")<>"" then Chiave = Request.Form("chiave") else Chiave = Request.querystring("chiave") end if Set FSO = Server.CreateObject("scripting.filesystemobject") Set Listato = Server.CreateObject("adodb.recordset") Listato.Fields.Append "id", 3 Listato.Fields.Append "nome", 129, 200 Listato.Fields.Append "dimensione", 3 Listato.Fields.Append "data", 7 Listato.Open Set Cartella = FSO.GetFolder(Server.MapPath(root)) For Each File In Cartella.Files If File.DateCreated < date then Ext = Right(File.Name,3) If Ext = "zip" OR Ext = "exe" OR Ext = "rar" OR Ext = "txt" Then If UCase(Left(File.Name, Len(Chiave))) = UCase(Chiave) Then I = I +1 Listato.AddNew Listato("Id") = I Listato("Nome") = File.Name Listato("Dimensione") = File.Size / 1024 Listato("Data") = FormatDateTime(File.DateCreated,2) End If End If End If Next Set Cartella = Nothing If Listato.EOF = False Then Listato.Sort = "nome" Listato.MoveFirst Function Spazio(stringa) Spazio = Replace(stringa, "_", " ") End Function %> <div align="center"> <center> <table cellpadding="3" cellspacing="1" bgcolor="#000000" width="600"> <tr> <th width="5%"> </th> <th width="55%"> <font face="Calligraphic" size="3" color="#FFFFFF"> Nome</font> </th> <th width="20%"> <font face="Calligraphic" size="3" color="#FFFFFF"> Dimensione</font> </th> <th width="20%"> <font face="Calligraphic" size="3" color="#FFFFFF"> Data</font> </th> </tr> <% For I = 1 To Listato.RecordCount %> <tr> <td> <%=I%> </td> <td style="text-align:left;"> &chiave=<%=Chiave%>"><font color="#000000"><%=Spazio(Listato("Nome"))%></font> </td> <td> <font face="Verdana" size="1"> <%=FormatNumber(Listato("Dimensione"),0)%> Kb</font> </td> <td> <font face="Verdana" size="1"> <%=Listato("Data")%> </font> </td> </tr> <% Listato.MoveNext Next %> </table> </center> </div> <p align="center"> <% End If Listato.Close Set Listato = Nothing Set FSO = Nothing %> <font color="#000000" size="3">Indietro</font> </body> </html>
dovrei modificarlo affinché i files inseriti OGGI si vedano DOMANI, di conseguenza OGGI si vedranno i files inseriti IERI.
chi mi modifica il codice???
grazie.
Rispondi quotando
