Visualizzazione dei risultati da 1 a 8 su 8
  1. #1
    Utente di HTML.it
    Registrato dal
    Jul 2005
    Messaggi
    2,630

    Stampare a video immagine casuale

    Carissimi,
    come posso adattare questo script che mi stampi a video le immagini comprese in[*] in modo casuale?
    codice:
    	<%
    Dim objFso, objFolder, objFiles
    Dim strFolder, strFile, strPath, strExt
    
    strPath = "img/" 
    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 ASC"
    
    custRs.movefirst
     
    Do until custRs.eof
      
    	if Right(lcase(custRs("nome")), Len(strExt)) = lcase(strExt) then 
    	%>
        <span>[img]<%=strPath%><%=custRs([/img]" width="990" height="262" /></span>
    <%
    end if	
    custRs.movenext
    
    loop
    Set objFso = Nothing 
    Set objFolder = Nothing
    Set objFiles = Nothing 
    custRs.Close
    set custRs = Nothing
    %>
    Grazie
    G.

  2. #2
    Utente di HTML.it
    Registrato dal
    Jul 2005
    Messaggi
    2,630
    nessun aiuto?

  3. #3
    non ho capito la domanda

  4. #4
    Utente di HTML.it
    Registrato dal
    Jul 2005
    Messaggi
    2,630
    In pratica, così facendo mi stampa in ordine di data ASCENDENTE le immagini:
    codice:
     <span>[img]<%=strPath%><%=custRs([/img]" width="990" height="262" /></span>
    Invece vorrei che mi stampasse in random, ad ogni caricamento, le immagini.
    Grazie
    G.

  5. #5
    ma mica è quella riga che decide l'ordinamento! è l'ordinamento che hai impostato nella query sql...

  6. #6
    Utente di HTML.it
    Registrato dal
    Jul 2005
    Messaggi
    2,630
    appunto, non vorrei che sia ordinato per data (come è ora) ma random....

  7. #7
    Moderatore di Annunci siti web, Offro lavoro/collaborazione, Cerco lavoro L'avatar di cavicchiandrea
    Registrato dal
    Aug 2001
    Messaggi
    26,133
    Una ricerchina (tempo stimato 2min) qui sul forum http://forum.html.it/forum/showthrea...=record+random
    Cavicchi Andrea
    Problemi con javascript, jquery, ajax clicca qui

  8. #8
    Utente di HTML.it
    Registrato dal
    Jul 2005
    Messaggi
    2,630
    grazie ANDREA, credimi avevo girato ma non avevo trovato questo post.
    Grazie
    G.

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.