webForumDet fria alternativet

array + bilder

5 svar · 446 visningar · startad av crazyl

crazylMedlem sedan jan. 200232 inlägg
#1

Hej!
Jag har sparat sökvägar till bilder i en array. Jag undrar hur jag ska göra för att sedan visa dessa bilder på så vis att en bild visas i taget och när man klickar på en framåt-knapp ska nästa bild visas?

Har denna kod:

If Request.Form("visabild")= "visa" then
set objFSO1 = Server.CreateObject("Scripting.FileSystemObject")
set filer = objFSO1.GetFolder("c:\jobb")

intFiles = filer.Files.Count 
Response.Write intFiles      
If intFiles \>= 1 then        
   ReDim Arr(intFiles)
   
  for each objFile in filer.Files 
    Arr(i)= objFile.Path		   	
    Response.Write Arr(i)
    i = i + 1					   
  Next
          
  For i = 0 TO UBound(Arr) 
str1= Arr(i)
i = i + 1
    Response.Write str1
  Next 
End If

End If

Problemet är hur jag nu ska få bilderna att laddas en i taget i imagetaggen(genom att klicka på framåtknappen):
<img name="image1" width="140" height="100" bgcolor="#003070" src="<%=str1%>" >

Har ytterligare ett problem med koden. När jag skriver ut antal filer här är de 24(vilket är det rätta antalet)

  for each objFile in filer.Files 
    Arr(i)= objFile.Path		   	
    Response.Write Arr(i)
    i = i + 1					   
  Next

...men när jag skriver ut dem här visas bara tolv av dem?
For i = 0 TO UBound(Arr)
str1= Arr(i)
i = i + 1
Response.Write str1
Next

Snällt om någon ville hjälpa mig!
MVH

LarsGMedlem sedan dec. 200012 464 inlägg
#2
For i = 0 TO UBound(Arr) 
str1= Arr(i) 

Response.Write str1 
Next

I räknades upp två gånger, därför skrev du bara ut varannat filnamn.

För att hantera bläddringen får du lägga ut en länk där du skickar med en querystring där du lägger ut bildnummer. Lite schematiskt

<%
if request.querystring("bildNummer") <> "" then
   bildNummer = cint(request.querystring("bildnummer"))
else
  bildNummer = 0
end if
'hämta bild

if bildNummer < filer.count then %>
<a href='visabild.asp?bildnummer=<%=bildNummer + 1%>'> Nästa bild </a>
<%end if%>
solbulleMedlem sedan mars 20015 287 inlägg
#3

Ta bort i = i + 1

Red. Aldrig kan man hinna först... ;)

crazylMedlem sedan jan. 200232 inlägg
#4

Tack så mycket för hjälpen...men skulle du vilja tala om vad du menar med bildnummer?(håller på att lära mig asp)
MVH

LarsGMedlem sedan dec. 200012 464 inlägg
#5

Bildnummer är bara en siffra för att hålla reda på vilken bild du ska visa.

PatrikBMedlem sedan mars 20002 836 inlägg
#6

Med:

Arr(i)= objFile.Path

så sparar du hela den fysiska sökvägen till filen, dvs typ: D:\folder\imgfolder\img.gif

Använd objFile.Name så får du bara filens namn och sedan när du visar så bygger du sökvägen i img-taggen.

<% ="<IMG src=""/images/" & Arr(i) & """>

cya,
PatrikB

129 ms totalt · 3 externa anrop · v20260731065814-full.30151723
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
126 ms — hämta tråd, inlägg och bilagor (db)