--- title: "Fotoalbum" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/66623-fotoalbum" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "emil" published: "2003-01-30T13:41:40.000Z" updated: "2003-01-30T17:54:30.000Z" replies: 18 views: 656 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/66623-fotoalbum" --- # Fotoalbum ## #1 — emil, 2003-01-30T13:41Z Jag har 200 bilder med tillhörande thumbnails. Sitter och klurar på hur man lättast gör ett script där man kan klicka nästa, tillbaka osv och bläddra mellan bilderna. Tänkte skriva in bildnamn osv i en accessdatabas till att börja med, eller vad har ni för förslag? Vill ha nåt i stil med denna sidan: Alltså så som det ser ut när man klickat på en bild och kan välja nästa osv. Vore mycket tacksam för hjälp! mvh emil Permalänk: https://www.webforum.nu/p/66623 ## #2 — crisse6, 2003-01-30T14:03Z Du kan ju borja med att gora en paging som listar allt, sen nar du klickar pa en bild sa kan du ju ha lank i querystring som hamtar nasta bild i db'n. Permalänk: https://www.webforum.nu/p/933852 ## #3 — Palle, 2003-01-30T14:15Z ..annars kan du lösa det med FSO. Gjorde en liknande funktion för nått år sedan. se här: Permalänk: https://www.webforum.nu/p/933859 ## #4 — emil, 2003-01-30T15:30Z Tittade på ditt palle och det verkar va precis ett sånt jag vill ha, dock får jag felmeddelande: Körningsfel i Microsoft VBScript fel '800a0035' Det går inte att hitta filen. /test/ffny/bilder/test.asp, line 20 Fast jag har 1.gif och 2.gif i /test/ffny/ och angett att det ska vara 2 bilder. Nåt förslag på vad jag kan ha missat? Permalänk: https://www.webforum.nu/p/933914 ## #5 — Palle, 2003-01-30T15:40Z Kolla så du anget rätt *strPhysicalPath* och *strThePath* Permalänk: https://www.webforum.nu/p/933924 ## #6 — emil, 2003-01-30T15:46Z Jag har sidan på : . Sedan har jag ``` strPhysicalPath = Server.MapPath("test\ffny\1.gif") strThePath = "test/ffny/bilder/" ``` Är inte det korrekt då? eller ska det va i form av c:\\xxx\\xxxx\\xx osv? Tack igen! =) Permalänk: https://www.webforum.nu/p/933932 ## #7 — emil, 2003-01-30T15:46Z rättelse: givetvis kör jag ``` strPhysicalPath = Server.MapPath("test\ffny\bilder\1.gif") trThePath = "test/ffny/bilder/" ``` Permalänk: https://www.webforum.nu/p/933933 ## #8 — Palle, 2003-01-30T15:51Z Ligger sidan med funktionen och bilderna i samma mapp räcker det med att ange bildens namn i *strPhysicalPath*. Permalänk: https://www.webforum.nu/p/933935 ## #9 — emil, 2003-01-30T15:54Z Får fortf samma fel, kör nu med: ``` strPhysicalPath = "1.gif" strThePath = "test/ffny/bilder/" ``` Är följande rad som är rad nr 20 som den klagar på : ``` Set objFile = objFSO.GetFile(strPhysicalPath) ``` Permalänk: https://www.webforum.nu/p/933938 ## #10 — Palle, 2003-01-30T15:56Z Har du en bild i mappen som heter 1.gif? Permalänk: https://www.webforum.nu/p/933940 ## #11 — emil, 2003-01-30T15:59Z Japp Permalänk: https://www.webforum.nu/p/933943 ## #12 — Palle, 2003-01-30T16:36Z \*phu\* :) Kolla om den här fungerar bättre: ``` [red]<% Dim strNext If Len(trim(Request.Querystring("next"))) > 0 Then strNext = trim(Request.Querystring("next")) Else strNext = 1 Dim strPhysicalPath, strThePath strPhysicalPath = Server.MapPath("1.gif") strThePath = "" Dim objFSO, objFile, objFileItem, objFolder, objFolderContents Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile(strPhysicalPath) Set objFolder = objFile.ParentFolder Set objFolderContents = objFolder.Files Dim intFiles intFiles = objFolder.Files.Count Dim i, arrFile(33) '--## Ange hur många bilder det finns i mappen For Each objFileItem in objFolderContents i = i +1 arrFile(i) = objFileItem.Name Next Response.Write "" Response.Write "

" Dim PrevPic, NextPic PrevPic = Cint(strNext)-1 NextPic = Cint(strNext)+1 If PrevPic > 0 Then Response.Write "« Före | " Else Response.Write "« Före | " End If If NextPic < Cint(intFiles + 1) Then Response.Write "Nästa »" Else Response.Write "Nästa »" End If %>[/red] ``` Permalänk: https://www.webforum.nu/p/933966 ## #13 — emil, 2003-01-30T17:36Z Tackar nu funkar det till 99% =) Får upp bilder och allt sånt, problemet är ju dock att jag inte kan ha aspfilen i samma dir som bilderna, för då försöker den ju visa dom också.... Säg att jag har default.asp i /bilder och sen bilderna i /bilder/bilderna/1.gif osv... . Hur ska jag ha ``` Dim strPhysicalPath, strThePath strPhysicalPath = Server.MapPath("DSCF0001.JPG") strThePath = "" ``` då? testat med strPhysicalPath = Server.MapPath("bilderna/DSCF0001.JPG") men inte fått det att funka... sista frågan var det =) Stort tack! Permalänk: https://www.webforum.nu/p/934024 ## #14 — solbulle, 2003-01-30T17:47Z Ligger inte antalet bilder i variabeln int Files? Så att man slipper skriva in antalet. ``` Dim intFiles intFiles = objFolder.Files.Count Dim i, arrFile(33) ReDim arrFile(intFiles) ``` Permalänk: https://www.webforum.nu/p/934030 ## #15 — emil, 2003-01-30T17:48Z Jo jag kollade fel, trodde den sorterade ut enbart jpg och gif men det gjorde den inte, redigerade föregående inlägg lite när jag kom på det, hoppas nån har en lösning, alla e vi nya ibland =) Permalänk: https://www.webforum.nu/p/934031 ## #16 — solbulle, 2003-01-30T17:50Z Det finns iofs mer utvecklade bildscript om du söker här på forumet, som tex sållar ut endast gif eller vad man nu vill. Återkommer on jag hittar länk. Permalänk: https://www.webforum.nu/p/934033 ## #17 — emil, 2003-01-30T17:51Z Nm killar löste det! SKITSTORT TACK =) nu ska man bara fixa designen också =) Permalänk: https://www.webforum.nu/p/934034 ## #18 — Palle, 2003-01-30T17:54Z > **solbulle skrev:** > > Det finns iofs mer utvecklade bildscript om du söker här på forumet, som tex sållar ut endast gif eller vad man nu vill. > Återkommer on jag hittar länk. Jag gjorde denna funktion för nått år sedan i testsyfte, att den sedan fungerade var bara kul.. ;) Permalänk: https://www.webforum.nu/p/934036 ## #19 — Palle, 2003-01-30T17:54Z > **emil skrev:** > > Nm killar löste det! > > SKITSTORT TACK =) > nu ska man bara fixa designen också =) Gutt mos! Lycka till! :e Permalänk: https://www.webforum.nu/p/934037 --- Tråden på webben: https://www.webforum.nu/amne/asp/66623-fotoalbum