---
title: "Skriva ut bilder istället för länkar"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/167565-skriva-ut-bilder-istället-för-länkar"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Carro_"
published: "2007-12-25T11:39:58.000Z"
updated: "2007-12-28T22:22:06.000Z"
replies: 32
views: 1262
page: 1
pages: 2
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/167565-skriva-ut-bilder-istället-för-länkar"
---
# Skriva ut bilder istället för länkar
_Sida 1 av 2._
## #1 — Carro_, 2007-12-25T11:39Z
Har nu suttit och knåpat hela förmiddagen men jag får inte ihop det. :(
Vill lista bilderna med 6 på varje rad. EXEMPEL
l BILD01 l BILD02 l BILD03 l BILD04 l BILD05 l BILD06 l
l BILD07 l BILD08 l BILD09 l BILD10 l BILD11 l BILD12 l
l BILD13 l BILD14 l BILD15 l BILD16 l BILD17 l BILD18 l osv osv..
Så snälla hjälp mig med detta problem så skulle jag bli jätte glad.
Tack på förhand och GOD JUL ALLIHOPPA! :birp :D
```
<%
Response.Write ""
mapp = Request.querystring("mapp")
IF mapp <> "" then
Response.Write " " & mapp & "
"
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.Mappath(mapp))
set Files = Folder.Files
For each Item In Files
If isValidFile(Item.Name) Then
Response.Write " "
End if
Next
End If
Function isValidFile(filename)
fileExtension = lcase(right(filename,4))
select case fileExtension
case ".gif",".jpg",".png","jpeg"
isValidFile = TRUE
case else
isValidFile = FALSE
end select
End Function
%>
```
Permalänk: https://www.webforum.nu/p/167565
## #2 — Carro_, 2007-12-25T12:32Z
Har ändrat frågan ^^
Permalänk: https://www.webforum.nu/p/2062956
## #3 — Carro_, 2007-12-25T18:06Z
Ingen som har någon ide??
Permalänk: https://www.webforum.nu/p/2062999
## #4 — headbug, 2007-12-25T22:43Z
Vore det inte bra o berätta vad i allt som inte funkar?
Får du kompileringsfel, andra skumma fel, eller har du bara problem med att klura ut hur du ska koda för att det ska bli 6st på varje rad?
/HB
Permalänk: https://www.webforum.nu/p/2063039
## #5 — Carro_, 2007-12-25T22:50Z
> **headbug skrev:**
>
> problem med att klura ut hur du ska koda för att det ska bli 6st på varje rad
>
> /HB
^^ jepp. Har inte en susning faktisk, har gjort några tappra försök under dagen, men utan resultat.
Kan du hjälpa mig? :r
Permalänk: https://www.webforum.nu/p/2063042
## #6 — headbug, 2007-12-25T23:09Z
Okej, då skulle jag kanske använda mig av en tabell för det är enkelt och stabilt för att visa bilder såhär.
Du har ett kodstycke som ser ut såhär:
```
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.Mappath(mapp))
set Files = Folder.Files
For each Item In Files
If isValidFile(Item.Name) Then
Response.Write " "
End if
Next
End If
```
Det kan du ändra till
```
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.Mappath(mapp))
set Files = Folder.Files
Dim count
count = 1
Response.write "
"
For each Item In Files
If isValidFile(Item.Name) Then
if count MOD 6 = 0 Then
Response.write "
"
End if
Response.write "
"
Response.Write ""
Response.write "
"
If count MOD 6 = 0 Then
Response.write "
"
End if
End if
count = count + 1
Next
Response.write "
"
End If
```
Nu har jag inte testat, men jag tror det ska funka!
Permalänk: https://www.webforum.nu/p/2063043
## #7 — Carro_, 2007-12-25T23:19Z
> **headbug skrev:**
>
> Nu har jag inte testat, men jag tror det ska funka!
Jätte tack! :)
Dock visar den bilderna så här.. hmm?
l BILD01 l BILD02 l BILD03 l BILD04 l BILD05 l
l BILD06 l
l BILD07 l BILD08 l BILD09 l BILD10 l BILD11 l
l BILD12 l
l BILD13 l BILD14 l BILD15 l BILD16 l BILD17 l
l BILD18 l
Permalänk: https://www.webforum.nu/p/2063044
## #8 — voigtann1, 2007-12-26T10:39Z
Det är nog så att din upplösning på din webbläsare mot bildernas upplösning gör så att bild 06,12 och 18 bryts pga att bilderna är lite för stora?
Ge oss en länk så vi kan se koden som genereras ut eller infoga HTML koden som byggs av ASP koden för mer felsökning.
Permalänk: https://www.webforum.nu/p/2063097
## #9 — Carro_, 2007-12-26T10:59Z
> **voigtann1 skrev:**
>
> Det är nog så att din upplösning på din webbläsare mot bildernas upplösning gör så att bild 06,12 och 18 bryts pga att bilderna är lite för stora?
>
> Ge oss en länk så vi kan se koden som genereras ut eller infoga HTML koden som byggs av ASP koden för mer felsökning.
nix.. jag kör bilderna i 50x50, sidan ligger lokalt på min dator.
Problemet ligger i koden, jag kör ju bara den i en ren sida, så det inns ingen annan kod som kan strula till det.
Permalänk: https://www.webforum.nu/p/2063099
## #10 — headbug, 2007-12-26T13:52Z
Jag har nog tänkt lite galet med min MOD-lösning. Testa att sätta
```
Dim count
count = 0
```
istället för som det står ovan!
Permalänk: https://www.webforum.nu/p/2063139
## #11 — Carro_, 2007-12-26T18:35Z
> **headbug skrev:**
>
> Jag har nog tänkt lite galet med min MOD-lösning. Testa att sätta
>
>
>
> ```
> Dim count
> count = 0
> ```
>
>
>
> istället för som det står ovan!
Nu blir det så här :e hehe är jätte tacksam att du hjälper mig iaf =)
l BILD01 l
l BILD02 l BILD03 l BILD04 l BILD05 l BILD06 l
l BILD07 l
l BILD08 l BILD09 l BILD10 l BILD11 l BILD12 l
l BILD13 l
l BILD14 l BILD15 l BILD16 l BILD17 l BILD18 l
Permalänk: https://www.webforum.nu/p/2063197
## #12 — Carro_, 2007-12-26T22:23Z
Nu gjorde jag en nödlösning så länge.
```
<%
Response.Write ""
mapp = Request.querystring("mapp")
IF mapp <> "" then
Response.Write " " & mapp & "
"
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.Mappath(mapp))
set Files = Folder.Files
Dim count
count = 0
For each Item In Files
If isValidFile(Item.Name) Then
if count MOD 6 = 0 Then
End if
Response.Write " "
If count MOD 6 = 0 Then
End if
End if
count = count + 1
Next
End If
Function isValidFile(filename)
fileExtension = lcase(right(filename,4))
select case fileExtension
case ".gif",".jpg",".png","jpeg"
isValidFile = TRUE
case else
isValidFile = FALSE
end select
End Function
%>
```
Permalänk: https://www.webforum.nu/p/2063231
## #13 — voigtann1, 2007-12-27T09:31Z
```
<%
Response.Write "" & vbCrLf & vbCrLf
IF mapp <> "" then
Response.Write " " & mapp & "
"
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.Mappath(mapp))
set Files = Folder.Files
Dim count
count = 1
If Files.Count > 0 Then
Response.Write "
" & vbCrLf & "
" & vbCrLf
For each Item In Files
If isValidFile(Item.Name) Then
Response.Write "
" & vbcrlf
If count MOD 6 = 0 Then
Response.Write "
"&vbCrLf&"
" & vbCrLf
End if
End if
count = count + 1
Next
Response.Write "
"
End If
End If
Function isValidFile(filename)
select case lcase(right(filename,4))
case ".gif",".jpg",".png","jpeg"
isValidFile = TRUE
case else
isValidFile = FALSE
end select
End Function
%>
```
Permalänk: https://www.webforum.nu/p/2063270
## #14 — headbug, 2007-12-27T09:56Z
Precis, drömde till och med om det här i min feberyra, får skylla på det att jag inte tänker klart :)
Permalänk: https://www.webforum.nu/p/2063274
## #15 — voigtann1, 2007-12-27T09:58Z
> **headbug skrev:**
>
> Precis, drömde till och med om det här i min feberyra, får skylla på det att jag inte tänker klart :)
Att jag skulle posta det eller? :P
Kan ju nämna att jag inte ha "brytt" mig om att om du har filer i mappen och det är bara filer som inte är OK enligt isValidFile så kommer den skriva ut en table ändå med inga \...
Permalänk: https://www.webforum.nu/p/2063275
## #16 — voigtann1, 2007-12-27T10:11Z
Kollade koden igen... den är inte alls rätt.
Koden ovan kommer att kunna räkna fel när den ska bryta då den läser av alla filer i mappen. Så om vi har 12 bilder men endast 8 av dom så kommer den ändå bryta när fil nummer 6 har kontrollerats.
Jag gjorde en funktion av den istället och nu ska den inte rita ut en table om du inte har några bilder:
```
Function RenderImagesList(sFolder,lImagesPerRow)
Dim retrunString, FSO, Folder, Files, count
If sFolder <> "" Then
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.Mappath(sFolder))
set Files = Folder.Files
count = 1
If Files.Count > 0 Then
For each Item In Files
If isValidFile(Item.Name) Then
retrunString = retrunString & "
" & vbcrlf
If count MOD lImagesPerRow = 0 Then
retrunString = retrunString & ""&vbCrLf&"
" & vbCrLf
End if
count = count + 1
End if
Next
If Len(retrunString) > 0 Then retrunString = "
" & retrunString & "
"
End If
Set FSO = Nothing
Set Folder = Nothing
Set Files = Nothing
End If
RenderImagesList = " " & sFolder & "" & retrunString
End Function
```
```
Response.Write RenderImagesList(mapp, 6)
```
(6 är antal bilder per rad).
red. Hittade lite fel på koden.
Permalänk: https://www.webforum.nu/p/2063276
## #17 — Carro_, 2007-12-27T22:50Z
> **voigtann1 skrev:**
>
> Kollade koden igen... den är inte alls rätt.
Nu är jag inte alls med. Är jag på rätt väg? :OO
```
<%
Response.Write "" & vbCrLf & vbCrLf
IF mapp <> "" then
Response.Write " " & mapp & "
"
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.Mappath(mapp))
set Files = Folder.Files
Dim count
count = 1
If Files.Count > 0 Then
Response.Write "
" & vbCrLf & "
" & vbCrLf
For each Item In Files
If isValidFile(Item.Name) Then
Response.Write "
" & vbcrlf
If count MOD 6 = 0 Then
Response.Write "
"&vbCrLf&"
" & vbCrLf
End if
End if
count = count + 1
Next
Response.Write "
"
End If
End If
Function RenderImagesList(sFolder,lImagesPerRow)
Dim retrunString, FSO, Folder, Files, count
If sFolder <> "" Then
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.Mappath(sFolder))
set Files = Folder.Files
count = 1
If Files.Count > 0 Then
For each Item In Files
If isValidFile(Item.Name) Then
retrunString = retrunString & "
" & vbcrlf
If count MOD lImagesPerRow = 0 Then
retrunString = retrunString & "
"&vbCrLf&"
" & vbCrLf
End if
count = count + 1
End if
Next
If Len(retrunString) > 0 Then retrunString = "
" & retrunString & "
"
End If
Set FSO = Nothing
Set Folder = Nothing
Set Files = Nothing
End If
RenderImagesList = " " & sFolder & "" & retrunString
End Function
%>
```
Permalänk: https://www.webforum.nu/p/2063405
## #18 — voigtann1, 2007-12-28T07:01Z
```
<%
Dim filesys, demofolder, subfol, folcoll, folist, mapp, SCRIPT_NAME
SCRIPT_NAME = Request.ServerVariables("SCRIPT_NAME")
mapp = Request.querystring("mapp")
Response.Write "" & vbCrLf & vbCrLf
Set Folder = Nothing
Set demofolder = Nothing
Set folcoll = Nothing
Response.Write RenderImagesList(mapp, 6) ' ### Draw all the Images in a nice table list.
' Function that Renders out the Images in a specific folder.
' ## sFolder - String: Folder Name.
' ## lImagesPerRow - Long: How many Images per row should be rendered.
Function RenderImagesList(sFolder,lImagesPerRow)
Dim retrunString, FSO, Folder, Files, count
If sFolder <> "" Then
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.Mappath(sFolder))
set Files = Folder.Files
count = 1
If Files.Count > 0 Then
For each Item In Files
If isValidFile(Item.Name) Then
retrunString = retrunString & "
" & vbcrlf
If count MOD lImagesPerRow = 0 Then
retrunString = retrunString & "
"&vbCrLf&"
" & vbCrLf
End if
count = count + 1
End if
Next
' If No matches from isValidFile function we wont have any length on the string below. We wont render out the start code for a HTML table.
If Len(retrunString) > 0 Then retrunString = "
" & retrunString & "
"
End If
Set FSO = Nothing
Set Folder = Nothing
Set Files = Nothing
End If
RenderImagesList = " " & sFolder & "" & retrunString
End Function
' Function That checks if the file is a vaild file to render out.
Function isValidFile(filename)
Select Case lcase(right(filename,4))
Case ".gif",".jpg",".png","jpeg"
isValidFile = True
CaseElse
isValidFile = False
End Select
End Function
%>
```
Är om du ersätter allt som du har postat tidigare.
Du saknade:
```
Response.Write RenderImagesList(mapp, 6)
```
Och jag gjorde även lite ändringar i din kod att avsluta de objekt du har öppnat men inte avslutat.
```
Set Folder = Nothing
Set demofolder = Nothing
Set folcoll = Nothing
```
Permalänk: https://www.webforum.nu/p/2063444
## #19 — Carro_, 2007-12-28T16:38Z
Va\`?
Permalänk: https://www.webforum.nu/p/2063559
## #20 — voigtann1, 2007-12-28T19:03Z
> **Carro\_ skrev:**
>
> Va\`?
Ja
Vad menar du med va?... är inte direkt lätt att förklara för dig ;)
"min" kod med alla rader... ta den och erästt din kod så skall det fungera helt enkelt.
Permalänk: https://www.webforum.nu/p/2063600
---
Tråden på webben: https://www.webforum.nu/amne/asp/167565-skriva-ut-bilder-istället-för-länkar
Nästa sida: https://www.webforum.nu/amne/asp/167565-skriva-ut-bilder-istället-för-länkar/page2.md