Søg
Avatar billede ducks Nybegynder
02. maj 2002 - 15:38 Der er 5 kommentarer og
1 løsning

Liste over billeder på en hjemmeside

Nogen der vil lave noget kode hvor man på en hjemmeside kan se en liste over de billeder/filer der ligger i mappen? Noget lidt ligesom details i en windows mappe. Og meget gerne en forklaring på hvordan jeg sætter det op bagefter. Håber det er den rigtige kategori, ellers må (Co)Admin flytte mig :)
Avatar billede musti776 Nybegynder
02. maj 2002 - 15:44 #1
http://www.komputer.dk/Crosslink.jsp?d=156&a=541

jeg er ikke helt sikker på om du kan bruge denne program men,med denne kan du søge alle billeder, filer der er på en site....
Avatar billede ducks Nybegynder
02. maj 2002 - 15:46 #2
det jeg mente var at jeg selv havde en mappe på friserverplads.dk (ex. billeder) hvis man så går ind på www.friserverplads.dk/jem/billeder.*** kommer der en liste frem med alle billederne, ligesom på krak.dk
Avatar billede ducks Nybegynder
02. maj 2002 - 15:50 #3
en ven henviste mig hertil | http://activedeveloper.dk/iishelp/vbscript/htm/vsobjfilesystem.htm | men jeg kan ikke rigtig få det til at virke
Avatar billede tmceu Praktikant
02. maj 2002 - 18:19 #4
Denne kode lister alle .jpg og .gif filer i en folder og indsætter et link til filen.

Du kan teste det ved at ændre den fysiske sti samt sandsynligvis /images/ i den relative sti i linket.

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<STYLE TYPE="TEXT/CSS">
BODY    {font-family: verdana, arial; font-size: 10px;}
H3    {font-family: verdana, arial; font-size: 18px;}
TABLE    {border: 1px solid;}
TD        {border: 1px solid; font-size: 14px;}

.OddRows    {background-color: lightgrey;}
</STYLE>
</HEAD>
<BODY>

<%

strFolderName = "C:\Inetpub\wwwroot\images"

  Dim fso, f, f1, fc, s
  Set fso = CreateObject("Scripting.FileSystemObject")

  Set f = fso.GetFolder(strFolderName)
  Set fc = f.Files

  Response.Write "<TABLE CELLSPACING=""0"" CELLPADDING=""4"">" & vbCrLf

  For Each f1 in fc
        If InStr(1, f1.name, "jpg") > 0 Or InStr(1, f1.name, "gif") > 0 Then
           
            Response.Write "<TR>" & vbCrLf
       
            If i Mod 2 = 0 Then
                Response.write "<TD>" & f1.name & "</TD>" & vbCrLf
                Response.write "<TD><A HREF=""/images/" & f1.name & """>View</A></TD>" & vbCrLf           
            Else
                Response.write "<TD CLASS=""OddRows"">" & f1.name & "</TD>" & vbCrLf
                Response.write "<TD CLASS=""OddRows""><A HREF=""/images/" & f1.name & """>View</A></TD>" & vbCrLf
            End If
           
            Response.Write "</TR>" & vbCrLf

        End If
        i = i + 1
  Next

    Response.Write "</TABLE>" & vbCrLf

%>

</BODY>
</HTML>
Avatar billede ducks Nybegynder
02. maj 2002 - 18:35 #5
tmceu; jeg kan ikke få det til at virke kan du ikke beskrive hvordan jeg skal sætte det op, til at vise billeder fra www.friserverplads.dk/jem/eksperten
Avatar billede tmceu Praktikant
02. maj 2002 - 20:07 #6
Nu kender jeg ikke strukturen på friserverplads, men jeg kunne forestille mig at det er noget i stil med dette...

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<STYLE TYPE="TEXT/CSS">
BODY    {font-family: verdana, arial; font-size: 10px;}
H3    {font-family: verdana, arial; font-size: 18px;}
TABLE    {border: 1px solid;}
TD        {border: 1px solid; font-size: 14px;}

.OddRows    {background-color: lightgrey;}
</STYLE>
</HEAD>
<BODY>

<%

strFolderName = Server.MapPath("/eksperten")

  Dim fso, f, f1, fc, s
  Set fso = CreateObject("Scripting.FileSystemObject")

  Set f = fso.GetFolder(strFolderName)
  Set fc = f.Files

  Response.Write "<TABLE CELLSPACING=""0"" CELLPADDING=""4"">" & vbCrLf

  For Each f1 in fc
        If InStr(1, f1.name, "jpg") > 0 Or InStr(1, f1.name, "gif") > 0 Then
           
            Response.Write "<TR>" & vbCrLf
       
            If i Mod 2 = 0 Then
                Response.write "<TD>" & f1.name & "</TD>" & vbCrLf
                Response.write "<TD><A HREF=""/eksperten/" & f1.name & """>View</A></TD>" & vbCrLf           
            Else
                Response.write "<TD CLASS=""OddRows"">" & f1.name & "</TD>" & vbCrLf
                Response.write "<TD CLASS=""OddRows""><A HREF=""/eksperten/" & f1.name & """>View</A></TD>" & vbCrLf
            End If
           
            Response.Write "</TR>" & vbCrLf

        End If
        i = i + 1
  Next

    Response.Write "</TABLE>" & vbCrLf

%>

</BODY>
</HTML>
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
24/1020:40 Access udskrift mangler del af ramme om post. Af Uvanga i Access
24/1012:36 nulstille Samsung tablet T-580 Af fase i Tablet
23/1017:19 Kender I "Dropbox" ? Af Ikke-ekspert i Andet software
23/1016:28 Indsæt en kort video i Outlook 2024 Af ErikHg i E-mail programmer
22/1019:20 Hvor kan man finde en god bærbar computer? Af Strawberry i PC
White papers
Flere white papers »