101 messaggi dal 03 gennaio 2002
www.f1grandprix.it
ciao a tutti,
ho questo script che seleziona UN file a caso tra quelli presenti in una cartella. Come faccio a selezionarne 5 e non uno solo?

ecco il codice:

<%
path = "/download/wallpaper/2003/germania/"
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.MapPath(path))
Set Files = Folder.Files
Dim fileList()
x = 0
For Each File In Files
ReDim Preserve fileList(x)
fileList(x) = File.Name
x = x + 1
Next
Set Files = Nothing
Set Folser = Nothing
Set FSO = Nothing

Max = UBound(fileList) - 1
Randomize()
temp = Int(Rnd() * Max)
%>
<A HREF="javascript:anteprima('<%=path&fileList(temp)%>')"><img src="<%=path&"mini/"&fileList(temp)%>" border="0" alt="Ferrari"></a>

ciao!

Maurizio Manna
http://www.f1grandprix.it
879 messaggi dal 09 luglio 2002
www.i-studio.it
Ripeti per 5 volte la parte di codice che estrae a caso il file... Hai gia' provato? Non funziona?

<% 
path = "/download/wallpaper/2003/germania/" 
Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
Set Folder = FSO.GetFolder(Server.MapPath(path)) 
Set Files = Folder.Files 
Dim fileList() 
x = 0 
For Each File In Files 
ReDim Preserve fileList(x) 
fileList(x) = File.Name 
x = x + 1 
Next 
Set Files = Nothing 
Set Folser = Nothing 
Set FSO = Nothing 

Max = UBound(fileList) - 1 
for t=1 to 5
Randomize() 
temp = Int(Rnd() * Max) 
%> 
<A HREF="javascript:anteprima('<%=path&fileList(temp)%>')"><img src="<%=path&"mini/"&fileList(temp)%>" border="0" alt="Ferrari"></a> 
<% next %>


Ciao
Alex

Internetworking Studio Srl
www.i-studio.it

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.