vis billeder i mappe...

Du kan bruge FileSystemObject til at lave en liste over dine filer:


  Dim fso, f, f1, fc, s
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFolder("c:\billeder\")
  Set fc = f.Files
  For Each f1 in fc
      s = s & f1.name
      s = s & "<BR>"
  Next
  Response.write(s)

Det andet er lidt mere svært. Jeg har fundet noget gammelt kode, hvor jeg faktisk gør det samme. Her gør jeg det ved at hente filnavnet ud fra en database, men hvis du bare kobler det sammen med FileSystemObject (ovenfor), så burde det være nemt nok. Her er koden:

IF len(request.querystring("category")) > 0 THEN
    sSQL = "SELECT * FROM pictures WHERE INSTR(categoryIDs,'," & request.querystring("category") & ";') AND deleted LIKE 'n'"
    set rs = myConn.Execute(sSQL)
    IF rs.BOF OR rs.EOF THEN
    ELSE
        sContent = sContent & "<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=435><TR><TD COLSPAN=3><IMG SRC=img/tom.gif BORDER=0 WIDTH=1 HEIGHT=20 ALT=''></TD></TR>"
        DO WHILE NOT rs.EOF
            count = count + 1
            IF CInt(( 3*( (count/3)-int((count/3)) ) )) = CInt(1) THEN
                sContent = sContent & "<TR><TD WIDTH=145 ALIGN=left VALIGN=top><IMG SRC=" & rs("filename") & "></TD>"
            END IF
            IF CInt(( 3*( (count/3)-int((count/3)) ) )) = CInt(2) THEN
                sContent = sContent & "<TD WIDTH=145 ALIGN=center VALIGN=top><IMG SRC=" & rs("filename") & "></TD>"
            END IF
            IF CInt(( 3*( (count/3)-int((count/3)) ) )) = CInt(0) THEN
                sContent = sContent & "<TD WIDTH=145 ALIGN=right VALIGN=top><IMG SRC=" & rs("filename") & "></TD></TR><TR><TD COLSPAN=3><IMG SRC=img/tom.gif BORDER=0 WIDTH=1 HEIGHT=20 ALT=''></TD></TR>"
            END IF
            rs.MoveNext
        LOOP
        IF CInt(( 3*( (count/3)-int((count/3)) ) )) = CInt(1) THEN
            sContent = sContent & "<TD WIDTH=145 ALIGN=center><IMG SRC=img/tom.gif BORDER=0 WIDTH=145 HEIGHT=1 ALT=''></TD><TD WIDTH=145 ALIGN=right><IMG SRC=img/tom.gif BORDER=0 WIDTH=145 HEIGHT=1 ALT=''></TD></TR><TR><TD COLSPAN=3><IMG SRC=img/tom.gif BORDER=0 WIDTH=1 HEIGHT=20 ALT=''></TD></TR>"
        END IF
        IF CInt(( 3*( (count/3)-int((count/3)) ) )) = CInt(2) THEN
            sContent = sContent & "<TD WIDTH=145 ALIGN=right><IMG SRC=img/tom.gif BORDER=0 WIDTH=145 HEIGHT=1 ALT=''></TD></TR><TR><TD COLSPAN=3><IMG SRC=img/tom.gif BORDER=0 WIDTH=1 HEIGHT=20 ALT=''></TD></TR>"
        END IF
        sContent = sContent & "</TABLE>"
    END IF
END IF

OK - så gør jeg det for dig :-) Jeg keder mig alligevel:

<%

  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFolder("c:\Inetpub\newwwwrote\pictest\")
  Set fc = f.Files
        sContent = sContent & "<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=435><TR><TD COLSPAN=3><IMG SRC=img/tom.gif BORDER=0 WIDTH=1 HEIGHT=20 ALT=''></TD></TR>"
  For Each f1 in fc
            count = count + 1
            IF CInt(( 3*( (count/3)-int((count/3)) ) )) = CInt(1) THEN
                sContent = sContent & "<TR><TD WIDTH=145 ALIGN=left VALIGN=top><IMG SRC=""/pictest/" & f1.name & """></TD>"
            END IF
            IF CInt(( 3*( (count/3)-int((count/3)) ) )) = CInt(2) THEN
                sContent = sContent & "<TD WIDTH=145 ALIGN=center VALIGN=top><IMG SRC=""/pictest/" & f1.name & """></TD>"
            END IF
            IF CInt(( 3*( (count/3)-int((count/3)) ) )) = CInt(0) THEN
                sContent = sContent & "<TD WIDTH=145 ALIGN=right VALIGN=top><IMG SRC=""/pictest/" & f1.name  & """></TD></TR><TR><TD COLSPAN=3><IMG SRC=img/tom.gif BORDER=0 WIDTH=1 HEIGHT=20 ALT=''></TD></TR>"
            END IF
  Next
        IF CInt(( 3*( (count/3)-int((count/3)) ) )) = CInt(1) THEN
            sContent = sContent & "<TD WIDTH=145 ALIGN=center><IMG SRC=img/tom.gif BORDER=0 WIDTH=145 HEIGHT=1 ALT=''></TD><TD WIDTH=145 ALIGN=right><IMG SRC=img/tom.gif BORDER=0 WIDTH=145 HEIGHT=1 ALT=''></TD></TR><TR><TD COLSPAN=3><IMG SRC=img/tom.gif BORDER=0 WIDTH=1 HEIGHT=20 ALT=''></TD></TR>"
        END IF
        IF CInt(( 3*( (count/3)-int((count/3)) ) )) = CInt(2) THEN
            sContent = sContent & "<TD WIDTH=145 ALIGN=right><IMG SRC=img/tom.gif BORDER=0 WIDTH=145 HEIGHT=1 ALT=''></TD></TR><TR><TD COLSPAN=3><IMG SRC=img/tom.gif BORDER=0 WIDTH=1 HEIGHT=20 ALT=''></TD></TR>"
        END IF
        sContent = sContent & "</TABLE>"

response.write(sContent)
%>

Du skal selvfølgelig huske at ændre stien.