Carissimi,
tramite questo script mi elenco tutte le immagini presenti in una cartella su server
potete aiutarmi ad implementare la possibilità di selezionarli tutti mediante checkbox(che ho già messo ma non saprei come impostarlo) per eliminare + file per volta?codice:<table border="1" width="553" id="table1" bordercolor="#FFFFFF" bordercolorlight="#C0C0C0"> </font>[/b] <tr> <td align="center" width="95"> <p align="center"> <font face="Tahoma" size="2">Foto</font></td> <td align="center" width="212"> <font face="Tahoma" size="2">Nome file</font></td> <td align="center" width="140"> <font face="Tahoma" size="2">Caricata il</font></td> <td align="center"> <p align="center"><font face="Tahoma" size="2"> Cancella file</font></td> </tr> <% Dim objFso, objFolder, objFiles Dim strFolder, strFile, strPath, strExt strPath = "fotogallery/" strExt = ".JPG" Set objFso = Server.createObject("Scripting.FileSystemObject") Set objFolder = objFso.GetFolder(Server.MapPath(strPath)) Set objFiles = objFolder.Files set custRs = Server.CreateObject("ADODB.Recordset") custRs.Fields.Append "nome", 200, 300 ' adVarChar custRs.Fields.Append "data", 7 ' Date custRs.Open For Each strFile in objFiles custRs.AddNew custRs("nome") = strFile.name custRs("data") = strFile.DateCreated next custRs.Sort = "data DESC" custRs.movefirst Do until custRs.eof if Right(lcase(custRs("nome")), Len(strExt)) = lcase(strExt) then %> <tr> <td bgcolor="#FFFFFF" align="center"> <p align="center"> " rel="lightbox">[img]../../../square.aspx?img=fotogallery/<%=custRs([/img]&opx=84" ></p></td> <td bgcolor="#FFFFFF"><font size="2" face="Verdana"><%=custRs("nome")%></font></td> <td bgcolor="#FFFFFF" width="140" align="center"><font size="1" face="Verdana"><%=custRs("data")%></font></td> <td bgcolor="#FFFFFF" width="77"><p align="center"><input type="checkbox" name="C1" value="ON"></td> <% end if custRs.movenext loop Set objFso = Nothing Set objFolder = Nothing Set objFiles = Nothing custRs.Close set custRs = Nothing %> </tr> </table>
Grazie
G.

Rispondi quotando