---
title: "Uppdelning av listade bilder"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/47773-uppdelning-av-listade-bilder"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "KylFläns"
published: "2002-07-12T16:36:23.000Z"
updated: "2002-07-14T01:16:05.000Z"
replies: 15
views: 355
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/47773-uppdelning-av-listade-bilder"
---

# Uppdelning av listade bilder

## #1 — KylFläns, 2002-07-12T16:36Z

**Hej** 

Jo, de e så att jag jobbar med en sida där det finns ett bildarkiv. Bilderna listas automatiskt hem hjälp av ett script!

List scriptet:

```
<% 
	Set MyDirectory=Server.CreateObject("Scripting.FileSystemObject") 
	Set MyFiles=MyDirectory.GetFolder(Server.MapPath("grafik/bildarkivet/" & mapp & "")) 
	For Each filefound In MyFiles.files 
	Response.Write "<img src=grafik/bildarkivet/" & mapp & "/" & filefound.Name & " border=1><br><img src=grafik/blank10x10.gif><br>"
	Next 
%>
```

 

Jag har öven gjort så att den listar en post ur databasen!

I ett paging script RÄKNAR den ju poster och gör sidor efter de! Men hör använder jag ju inte databasen! Jag hoppas ni förstår vad jag menar! Vet inte riktigt hur jag ska beskriva!

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

## #2 — PatrikB, 2002-07-12T17:29Z

kanske kan vara ngt:

<http://www.webforum.nu/showthread.php?s=&threadid=38820&highlight=bilder>

cya,
PatrikB

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

## #3 — Asa, 2002-07-13T13:27Z

Här är ett paging med bilder. Döp den till lista.asp och kolla hur den fungerar:

```
<%Mappen	= Server.MapPath("pics")   'MAPPENS NAMN

Set MappKoll	= Server.CreateObject("Scripting.FileSystemObject")
Set Mapp	= MappKoll.getFolder(Mappen)

PS = 5
       
   If Mapp.Files.Count Mod PS Then 
      Sidor = Mapp.Files.Count \ PS + 1 
   Else 
      Sidor = Mapp.Files.Count \ PS 
   End If
   Sida = Request.QueryString("sida")
   If Sida = "" Then 
       Sida = 1 
   End If  
    
   Start = (Sida - 1) * PS
   Slut = Start + PS

  If Mapp.Files.Count = 0 Then%>
       <tr> 
           <td>Inga bilder!</td> 
       </tr> 
   <%Else

   For Each File In Mapp.Files 

       bild = InStrRev(LCase(File.Name), "." ) 
       If bild < 1 Then bild = "" Else bild = Mid(LCase(File.Name),bild+1)

       If X < Start Then 
       ElseIf X < Slut Then%>
           <tr> 
              <td><a href="<%=Mappen%>/<%=File.Name%>" target="_blank"><%=File.Name%></b> - <%=Round(File.Size/1000, 1)%> kb</td>
           </tr> 
       <%Else 
          Exit For 
       End If 
       X = X + 1 
   Next
   End If
If Sidor > 1 Then%>

<tr>
  <td><hr></td>
</tr>
<tr>
  <td>
<%For i = 1 To Sidor
    If  i = CInt(Sida) Then
        Response.Write "<b>" & i & "</b>"
    Else
        Response.Write " <a href=lista.asp?sida=" & i & ">" & i & "</a> "
    End If
Next%>
</td>
</tr>
    <tr>
      <td><hr></td>
    </tr>
<%End If%>
```

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

## #4 — KylFläns, 2002-07-13T15:43Z

Okej, jag fick de inte att funka!

Skickar med den korta koden här :)

Mina bilder som ska listas ligger i grafik/bildarkivet/mappen..

Jag hoppas du förstår ÅSA! O du, de e jag som e Jenza på din ICQ! Kan ju ta de där om du e uppkopplad senare!

\<html\>

\<head\>

\<style\>
	A:link			{ text-decoration: none ; color: #0000FF}
	A:active		{ text-decoration: none ; color: #0000FF}
	A:visited		{ text-decoration: none ; color: #0000FF}
	A:hover			{ color: #000000 }
	input        { font-family: Verdana; font-size: 8pt; border: 1px solid #C0C0C0; background-color: #FFFFFF }
\</style\>

\<script LANGUAGE="javascript"\>
	\<!--
	function bekrafta(URL,txt)
	{
	if (confirm(txt)){
	location = URL
	}
	}
	//--\>
\</script\>

\<script language="JavaScript"\>
\<!-- JavaScript
function PopUp(url, w, h)
{
window.open(url,"PopUp","width="+w+",height="+h+",resizable=yes,scrollbars=yes,menubar=no,toolbar=no,directories=no,location=no,status=no");
} 
// - JavaScript - --\>
\</script\>

\<link href="include/style.css" rel="stylesheet" type="text/css"\>

\<body topmargin="10" leftmargin="10"\>

\<%
	IF Request.QueryString("do") = "visa" THEN 
%\>
	
	\<div align=center\>

\<% 

	Session.lcid = 1053

	id = Request.QueryString("arkiv_id")
	mapp = Request.QueryString("dir")

	Set Connect = Server.CreateObject("ADODB.Connection") 
	Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("../../../odbc/bildarkiv.mdb")
	Set RecSet = Server.CreateObject("ADODB.Recordset")

	sqlVisa = "Select \* FROM bildarkiv WHERE arkiv_id="&id

	RecSet.Open sqlVisa, Connect, adOpenStatic, adLockOptimistic
	
%\>
	\<title\>Bildarkivet - \<%=RecSet("arkiv_namn")%\>\</title\>

\<table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" bgcolor="#FFFFBF" cellpadding="5"\>

	\<tr\>
	\<td\>
	
	\<font face=verdana\>
	
	\<font size=2\>
	\<b\>\<%=RecSet("arkiv_namn")%\>\</b\>
	\<br\>\<br\>
	\</font\>
	
	\<font size=1\>
	\<%=RecSet("text")%\>
	
	\<br\>\<br\>
	
	\<i\>Bilderna är copyright skyddade - all kopiering är förbjuden!\</i\>
	
	\<br\>\<br\>
	
\<%Mappen	= grafik/bildarkivet/Request.QueryString("dir")

Set MappKoll	= Server.CreateObject("Scripting.FileSystemObject")
Set Mapp	= MappKoll.getFolder(Mappen)

PS = 5
       
   If Mapp.Files.Count Mod PS Then 
      Sidor = Mapp.Files.Count \\ PS + 1 
   Else 
      Sidor = Mapp.Files.Count \\ PS 
   End If
   Sida = Request.QueryString("sida")
   If Sida = "" Then 
       Sida = 1 
   End If  
    
   Start = (Sida - 1) \* PS
   Slut = Start + PS

  If Mapp.Files.Count = 0 Then%\>
       \<tr\> 
           \<td\>Inga bilder!\</td\> 
       \</tr\> 
   \<%Else

   For Each File In Mapp.Files 

       bild = InStrRev(LCase(File.Name), "." ) 
       If bild \< 1 Then bild = "" Else bild = Mid(LCase(File.Name),bild+1)

       If X \< Start Then 
       ElseIf X \< Slut Then%\>
           \<tr\> 
              \<td\>\<a href="grafik/bildarkivet/\<%=Mappen%\>/\<%=File.Name%\>" target="\_blank"\>\<%=File.Name%\>\</b\> - \<%=Round(File.Size/1000, 1)%\> kb\</td\>
           \</tr\> 
       \<%Else 
          Exit For 
       End If 
       X = X + 1 
   Next
   End If
If Sidor \> 1 Then%\>

\<tr\>
  \<td\>\<hr\>\</td\>
\</tr\>
\<tr\>
  \<td\>
\<%For i = 1 To Sidor
    If  i = CInt(Sida) Then
        Response.Write "\<b\>" & i & "\</b\>"
    Else
        Response.Write " \<a href=lista.asp?sida=" & i & "\>" & i & "\</a\> "
    End If
Next%\>
\</td\>
\</tr\>
    \<tr\>
      \<td\>\<hr\>\</td\>
    \</tr\>
\<%End If%\>

	\</font\>
	\</font\>
	
	
	
	\</td\>
	\</tr\>
	
\</table\>

\</div\>

\<%
	Else
%\>

\<!--#Include file = "include/adovbs.inc"--\>

\<% 
	Session.lcid = 1053

	Set Connect = Server.CreateObject("ADODB.Connection") 
	Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("../../../odbc/bildarkiv.mdb")
	Set RecSet = Server.CreateObject("ADODB.Recordset")

	Visa = "SELECT \* FROM bildarkiv ORDER BY arkiv_namn"
%\>

\<body topmargin="10" leftmargin="10"\>

\<table border=1 width=100% cellpadding=6 cellspacing=0  style="border-collapse: collapse; border-left-style: solid; border-right-style: solid; border-top-style: solid; " bgcolor="#FFFFBF" bordercolor="#000000"\>
	\<tr\>
	\<td valign=top style="border-bottom:1px solid #C0C0C0; border-left-width: 1; border-right-width: 1; border-top-width: 1; "\>

	\<font face=verdana\>
	\<font size=2\>\<b\>Bildarkivet\</b\>\</font\>
	
	\<font size=1\>
\<% 
	If Session("login") \<\> "" Then 
%\>

	\<br\>
	\<a href="administrera/bildarkiv/laggtill.asp"\>Lägg till nytt bildarkiv\</a\>

\<% 
	End If 
%\>

	\<br\>\<br\>

\<%
	RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic
	DO UNTIL RecSet.EOF 
%\>

	\<b\>\<a href="javascript: PopUp('bildarkivet.asp?do=visa&dir=\<%=RecSet("arkiv_filnamn")%\>&arkiv_id=\<%=RecSet("arkiv_id")%\>',455,500)"\>\<%=RecSet("arkiv_namn")%\>\</a\>\</b\>

	\<br\>\<br\>

\<%
	If Not RecSet("text") = "" Then
		Text = Server.HTMLEncode(RecSet("text"))
		Text = Replace (Text,chr(13) & chr(10), "\<br\>")
			Response.Write Text
	End If
%\>
	
\<% 
	If Session("login") \<\> "" Then 
%\>

	\<br\>
	\<a href="javascript:bekrafta('administrera/bildarkiv/redigera.asp?arkivID=\<%=RecSet("arkiv_id")%\>','Är du säker att du vill redigera: \<%=RecSet("arkiv_namn")%\>  (Arkiv-ID: \<%=RecSet("arkiv_id")%\>)')"\>Redigera\</a\> \| 
	\<a href="javascript:bekrafta('administrera/bildarkiv/tabort.asp?arkivID=\<%=RecSet("arkiv_id")%\>','Är du säker att du vill tabort: \<%=RecSet("arkiv_namn")%\>  (Arkiv-ID: \<%=RecSet("arkiv_id")%\>)')"\>Ta bort\</a\>

\<% 
	End If 
%\>

	\<br\>\<br\>

\<%
	RecSet.MoveNext
	Loop
	RecSet.Close
%\>

	\</td\>
	\</tr\>

\</table\>

\<%
	End If
%\>

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

## #5 — KylFläns, 2002-07-13T15:44Z

Din kod är i början av koden (min sida heter bildarkivet.asp)

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

## #6 — solbulle, 2002-07-13T16:03Z

Det här ser väligt skumt ut:

```
Mappen = grafik/bildarkivet/Request.QueryString("dir")
```

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

## #7 — KylFläns, 2002-07-13T18:37Z

OKej, nu blev de något fel :/

    \* Feltyp:
      Körningsfel i Microsoft VBScript (0x800A0006)
      Spill
/magazinet/web/magazinet/bildarkivet.asp, line 83

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

## #8 — solbulle, 2002-07-13T20:03Z

Ska inte den där raden se ut något som liknande:

```
Mappen = "grafik/bildarkivet/" & Request.QueryString("dir")
```

Förutsatt att dessa mappar ligger under scriptfilen.

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

## #9 — KylFläns, 2002-07-13T22:42Z

Okej,. nu säger den att den inte hittar mappen!

Microsoft VBScript runtime  error '800a004c'

Path not found

/web/magazinet/bildarkivet.asp, line 87

Mappen = "grafik/bildarkivet/" &mapp

Set MappKoll	= Server.CreateObject("Scripting.FileSystemObject")
rad 87 --\> Set Mapp	= MappKoll.getFolder(Mappen)

PS = 5
       
   If Mapp.Files.Count Mod PS Then 
      Sidor = Mapp.Files.Count \\ PS + 1 
   Else 
      Sidor = Mapp.Files.Count \\ PS

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

## #10 — Asa, 2002-07-14T00:03Z

Kanske så här?

Mappen	= Server.MapPath("grafik/bildarkivet/" &Request.QueryString("dir"))

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

## #11 — KylFläns, 2002-07-14T00:20Z

OKej :/ Nu funkar de! MEn alltså när jag säger att den ska lista bilderna direkt så säger den att sökvägen till bilderna ligger på e:\\magazinet\\web\\magazinet\\grafik\\bildarkiv\\mappen\\filnamn.typ

Jag vill att sökvägen ska bli grafik/bildarkivet/mappen/filnamn.typ

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

## #12 — solbulle, 2002-07-14T00:30Z

Vad jag förstår måste man ange den "fysiska" sökvägen för FSO .
Om du vill använda dig av en annan adress för att visa dina bilder, så använd dig av två variabler typ:

```
bildMappen =  "grafik/bildarkivet/" &Request.QueryString("dir"))

Mappen = Server.MapPath(bildMappen)
```

Så använder du variabeln bildMappen när du ska länka till bilderna, typ:

```
<td><a href="<%=bildMappen%>/<%=File.Name%>" target="_blank"><%=File.Name%></b> - <%=Round(File.Size/1000, 1)%> kb</td>
```

För det är väl bara där det knasar med att ha den fysiska sökvägen?

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

## #13 — KylFläns, 2002-07-14T00:46Z

Alltså, jag vill inte lista filerna i mappen, jag vill att den hämtar bildern o vissar den i en \<img src=""\> Men nu när jag testade din variant på koden så blir de fortfarande sådär att den tar E:\\osv sökvägen! Kan man inte göra något enkelt paging-scrip till denhär koden istället?

\<% 
	Set MyDirectory=Server.CreateObject("Scripting.FileSystemObject") 
	Set MyFiles=MyDirectory.GetFolder(Server.MapPath("grafik/bildarkivet/" & mapp & "")) 
	For Each filefound In MyFiles.files 
	Response.Write "\<img src=grafik/bildarkivet/" & mapp & "/" & filefound.Name & " border=1\>\<br\>\<br\>"
	Next 
%\>

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

## #14 — solbulle, 2002-07-14T00:55Z

Jag ändrade lite på det jag skrivit, men blir det inte rätt om länken till bilderna är: 

grafik/bildarkivet/" &Request.QueryString("dir")

mao variabeln: bildMappen som jag kallade den? Där kan det väl inte bli en sökväg ända från E: ?

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

## #15 — KylFläns, 2002-07-14T01:06Z

OKej, jo om jag använder länkar så funkar de! Men jag vill att den ska visa bilderna direkt på sidan!

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

## #16 — solbulle, 2002-07-14T01:16Z

```
<td><a href="<%=bildMappen %>/<%=File.Name%>" target="_blank"><%=File.Name%></b> - <%=Round(File.Size/1000, 1)%> kb<img src="<%=bildMappen %>/<%=File.Name%>">

</td>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/47773-uppdelning-av-listade-bilder