Ho modificato il codice per visualizzare le immagiuni per data ma.....non trova i file...come se la cartella fosse vuota....dove sbaglio?
codice:<% set custRs = Server.CreateObject("ADODB.Recordset") custRs.Fields.Append "nome", 200, 300 ' adVarChar custRs.Fields.Append "dimensione", 2, 4 ' smallint custRs.Fields.Append "data", 7 ' Date custRs.Open ' popolamento Set FileObject = Server.CreateObject("Scripting.FileSystemObject") StrPath = Server.MapPath("/sicilia/agrigento/sciacca/citta") Set f = FileObject.GetFolder(strPath) For Each f1 in f.Files custRs.AddNew custRs("nome") = f1.name custRs("data") = f1.DateCreated Next Set f = Nothing Set FileObject = Nothing custRs.Sort = "data DESC" %> <head> <link rel="stylesheet" type="text/css" href="upload.css"> </head> <table border="0" width="550" cellspacing="0" cellpadding="0" bgcolor="#6699CC"> <tr> <td width="510" align="center"><font size="1" face="Verdana" color="#F7F7F7">Wapp.it - Foto (<%=intTotalFiles%>) <div>Sciacca</div></font> </td> </tr> </table> <table border="0" width="550" cellspacing="0" cellpadding="0" bgcolor="#f7f7f7" style="border: 1 solid #6699CC"><font color="#000080" face="Verdana" size="1"> <tr> <td> <table width="540" cellspacing="0" cellpadding="0"> <% If intTotalFiles > 0 Then col = 0 imagecounter = 1 If Request.QueryString("page").Count > 0 Then intPageNum = CInt(Request.QueryString("page")) Else intPageNum = 1 End If For Each objFile in objFolder.Files 'Response.Write imagecounter & "-" & (intPageNum*4)-3 & "-" & (intPageNum*4) &" " If (imagecounter >= (intPageNum*fileMAX)-(fileMAX-1)) And (imagecounter <= (intPageNum*fileMAX)) Then col = col + 1 If col = 1 Then Response.Write "<tr>" & vbcrlf he = ImageHeight(StrPathShort & objfile.name) wi = ImageWidth(StrPathShort & objfile.name) resized = ImageResize(StrPathShort & objfile.name, 200, 200, "center") Response.Write "<td align=""center"" width=""135"">" & vbcrlf & "<table width=""100%""><tr><td align=""center"" height=""110""><table cellspacing=""0"" cellpadding=""0"" style=""border: 1 solid #6699CC""><tr><td>" & resized & "</td></tr></table></td></tr><tr><td align=""center"">" & objfile.name & " " & wi & "x" & he & " " & objfile.size & "byte " & objFile.DateCreated & "</td></tr></table> " & vbcrlf & "</td>" & vbcrlf If col = 4 Then Response.Write "</tr>" & vbcrlf col = 0 End If 'If col > 4 Then col = 1 End If imagecounter = imagecounter + 1 'If imagecounter > fileMAX Then Exit For Next If col > 0 AND col < 4 Then For colonne = col+1 To 4 Response.Write "<td width=""135""></td>" & vbcrlf Next Response.Write "</tr>" & vbcrlf End If Else %> <tr><td align="center"></td></tr> <tr><td align="center">Non ci sono immagini</td></tr> <tr><td align="center"></td></tr> <% End If %>
Rispondi quotando
