---
title: "Bildvisningsscript"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/91061-bildvisningsscript"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "M.Cheraghi"
published: "2003-11-23T16:30:29.000Z"
updated: "2003-11-23T18:00:46.000Z"
replies: 4
views: 311
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/91061-bildvisningsscript"
---

# Bildvisningsscript

## #1 — M.Cheraghi, 2003-11-23T16:30Z

Hellojsan!

Jag hade tänkt o skriva ett ett bildvisnings script, men jag vet inte riktigt hur strukturen för detta script skall se ut!

jag har en mapp som heter **Galleri** i denna mapp finns det andra mappar, säg t.ex **Bilmässan 2003** och kanske **Båt mässan 2003** i varje undermapp finns det bilder, samt **1** bild som heter **index.jpg** samt **index.txt** och alla övriga bilder från det evenemanget!

Men jag vill lixom i ASP dokumentet **kategorier.asp** ha **index.jpg** samt **index.txt** från varje subdirectory i mappen **Galleri**.

detta skall altså vara rörligt, dvs jag kommer att skapa mappar o ladda upp bilder genom upload script och vill inte behöva ändra i filen Kategorier.asp.. om ni förstår hur jag menar.

Sen i filen **Visa_bild.asp** så tar jag emot en querystring o loopar ut alla bilder i mappen

MVH

Permalänk: https://www.webforum.nu/p/91061

## #2 — Cannabis_Tomten, 2003-11-23T16:53Z

hallojsan.. har börjat lite smått... har kommit så långt att den hämtar ut index.jpg från alla undemappar =) wooohooo... koden hittills ser ut som sådan, kan medela att jag har tagit lite kod snuttar från gruvsjö =) så ingen behöver hoppa på mej =)

Men hmmm, hur skall jag jag öppna textfilen och skriva ut texten som finns i filen? meningen med textfilen är att den skall fungera som en beskrivning till vad som finns i den valda kategorin!

```
<%
Antal = 6

MappNamn = "Galleri"

height = "70"

Set Mappkoll = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp = Mappkoll.GetFolder(Server.MapPath(MappNamn))

Set MyDrive = Mapp.subFolders

For Each Folder in MyDrive%>

<a href="#"><IMG height="<%=height%>" SRC="<%=MappNamn%>/<%=Folder.Name%>/index.jpg"></a>&nbsp;
<%Next%>
```

Permalänk: https://www.webforum.nu/p/1212511

## #3 — Cannabis_Tomten, 2003-11-23T17:31Z

Okej nu börjar det närma sig :P hehe.. men nu har jag stött på ett problem jag INTE vet hurm an löser... den hämtar ut index.txt från varje mapp.. MEN, när jag skriver i textfilen och trycker enter 2 ggr för att hoppa ner rader.. och loopar ut innehållet å loopar den ut index bilden för varje radbrytning jag har =/

```
<%
Antal = 6

MappNamn = "Galleri"

height = "70"

Set Mappkoll = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp = Mappkoll.GetFolder(Server.MapPath(MappNamn))

Set MyDrive = Mapp.subFolders

For Each Folder in MyDrive

Set objFso = Server.CreateObject("Scripting.FileSystemObject")
strFilePath = Server.Mappath(MappNamn) & "\" & folder.Name & "\index.txt"
set objFile = objFso.OpenTextFile( strFilePath, 1 )
arrFsoLines = Split( objFile.ReadAll, vbcrlf )
for i = 0 to ubound( arrFsoLines )
%>

<a href="#"><IMG height="<%=height%>" SRC="<%=MappNamn%>/<%=Folder.Name%>/index.jpg"></a><BR>
<% Response.Write arrFsoLines( i ) & vbcrlf %><BR>

<%Next
Next
objFile.Close
Set objFile = Nothing
Set objFso = Nothing
%>
```

Permalänk: https://www.webforum.nu/p/1212549

## #4 — OveRRidE, 2003-11-23T17:57Z

Det är klart. Indexbilden ligger ju i din loop. Flytta den utanför istället.

Permalänk: https://www.webforum.nu/p/1212570

## #5 — Cannabis_Tomten, 2003-11-23T18:00Z

> **OveRRidE skrev:**
>
> Det är klart. Indexbilden ligger ju i din loop. Flytta den utanför istället.

Ahhh.. d var så enkelt :P haha =) jaja ibland e man trött tack så mkt!

Permalänk: https://www.webforum.nu/p/1212574

---

Tråden på webben: https://www.webforum.nu/amne/asp/91061-bildvisningsscript