--- title: "Får inte till att bläddra mellan bilder!" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/135147-får-inte-till-att-bläddra-mellan-bilder" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "invalido" published: "2005-10-02T21:26:55.000Z" updated: "2005-10-17T06:03:58.000Z" replies: 28 views: 1259 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/135147-får-inte-till-att-bläddra-mellan-bilder" --- # Får inte till att bläddra mellan bilder! _Sida 1 av 2._ ## #1 — invalido, 2005-10-02T21:26Z Jag skulle vilja ha hjälp med ett skript så att jag kan bläddra mellan bilder. Jag har ett .ASP skript som består av en fil som heter photoalbum.asp som visar thumbnails av bilderna och en annan som heter showpic.asp som fungerar som popup fil. Bilderna laddas upp automatiskt genom att man laddar upp hela mappen till den underkategorin som de båda .asp filerna ligger. Hur ska ajg göra? Så här ser koden ut på pop-up filen: var isNav4, isIE4; if (parseInt(navigator.appVersion.charAt(0)) \>= 4) { isNav4 = (navigator.appName == "Netscape") ? 1 : 0; isIE4 = (navigator.appName.indexOf("Microsoft") != -1) ? 1 : 0; } function fitWindowSize() { if (isNav4) { window.innerWidth = document.layers\[0\].document.images\[0\].width; window.innerHeight = document.layers\[0\].document.images\[0\].height; } if (isIE4) { window.resizeTo(400, 300); width = (400 - (document.body.clientWidth - document.images\[0\].width)) + 25; height = (300 - (document.body.clientHeight - document.images\[0\].height)) + 55; window.resizeTo(width, height); } } // End --\> \ \ \ \ \<% ShowPic = request("ShowPic") ShowPic = Replace(ShowPic, " ", "%20") Response.Write "\

\" response.write "\\\Close Window\\\" %\> \ \ \ Permalänk: https://www.webforum.nu/p/135147 ## #2 — emission, 2005-10-03T06:57Z Vad är problemet? Permalänk: https://www.webforum.nu/p/1680795 ## #3 — invalido, 2005-10-03T11:50Z jag vill kunna lägga till en meny "föregående/nästa" som automatiskt hoppar till samma bild. Utan att behöva namnge bilderna! Permalänk: https://www.webforum.nu/p/1680891 ## #4 — invalido, 2005-10-03T18:01Z mena nästa bild.. inte samma Permalänk: https://www.webforum.nu/p/1681041 ## #5 — emission, 2005-10-03T19:45Z Hur ser koden ut som listar filerna? Permalänk: https://www.webforum.nu/p/1681089 ## #6 — invalido, 2005-10-03T20:27Z men det finns en fil som e själva fotoalbumet men som bara visar thumbnails av bilderna. sen finns det en som fungerar som pop-up och det e den jag vill lägga in "nästa och föregående" på. vilken kod vill du ha? För själva uppladdningen av bilderna sker automatiskt! Permalänk: https://www.webforum.nu/p/1681102 ## #7 — emission, 2005-10-03T22:07Z Jag vill se den som visar thumbnails :) Permalänk: https://www.webforum.nu/p/1681130 ## #8 — invalido, 2005-10-04T05:08Z \<% ' PhotoAlbum Dim CurFile, PopFileShowSub, ShowPic, PictureNo Dim strPathInfo, strPhysicalPath Dim intTotPics, intPicsPerRow, intPicsPerPage, intTotPages, intPage, strPicArray() intPicsPerRow = 3 intPicsPerPage = 12 intPage = CInt(Request.QueryString("Page")) If intPage = 0 Then intPage = 1 End If CurFile = "PhotoAlbum.asp" PopFile = "ShowPicture.asp" %\> \ \

<% If ShowPic > " " then ShowPic = Replace(ShowPic, " ", "%5") Response.Write "

Go Back" Else %> <% strPhysicalPath = Server.MapPath(".\" & ShowSub) If ShowSub > " " then ShowSub = Replace(ShowSub, " ", "%20") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strPhysicalPath) Set objFolderContents = objFolder.Files 'Get the number of pictures in the subdirectory intTotPics = 0 For Each objFileItem in objFolderContents If Ucase(Right(objFileItem.Name,4))=".GIF" OR Ucase(Right(objFileItem.Name,4))=".JPG" THEN intTotPics = intTotPics + 1 End if Next 'Get the total number of pages in the subdirectory If (intTotPics/intPicsPerPage) = (int(intTotPics/intPicsPerPage)) Then intTotPages = int(intTotPics/intPicsPerPage) Else intTotPages = int(intTotPics/intPicsPerPage)+1 End If Redim strPicArray(2,intTotPics) 'Store picture file names in an array x = 0 For Each objFileItem in objFolderContents If Ucase(Right(objFileItem.Name,4))=".GIF" OR Ucase(Right(objFileItem.Name,4))=".JPG" THEN strPicArray(0,x) = objFileItem.Name strPicArray(1,x) = Cstr(int(x/intPicsPerPage)+1) x = x + 1 End if Next 'Determine if there are multiple pages and if so, display page numbers. If intTotPages > 1 Then Response.Write "" Response.Write "" End If For x = 0 to UBound(strPicArray,2)-1 If CInt(strPicArray(1,x)) = intPage Then ShowPic = Replace(strPicArray(0,x), " ", "%20") Response.write "" & vbcrlf PictureNo = PictureNo + 1 If PictureNo=intPicsPerRow Then Response.write "" PictureNo = 0 End if End If Next Set objFSO = Nothing End if %>

Page: " For x = 1 to intTotPages If x = intPage Then Response.Write "" & x & " " Else Response.Write "" & x & " " End If Next Response.Write "

" Response.Write("

") Response.write "

<% End if %> ``` ``` var isNav4, isIE4; if (parseInt(navigator.appVersion.charAt(0)) >= 4) { isNav4 = (navigator.appName == "Netscape") ? 1 : 0; isIE4 = (navigator.appName.indexOf("Microsoft") != -1) ? 1 : 0; } function fitWindowSize() { if (isNav4) { window.innerWidth = document.layers[0].document.images[0].width; window.innerHeight = document.layers[0].document.images[0].height; } if (isIE4) { window.resizeTo(400, 300); width = (400 - (document.body.clientWidth - document.images[0].width)) + 25; height = (300 - (document.body.clientHeight - document.images[0].height)) + 55; window.resizeTo(width, height); } } // End --> <% ShowSub = request("ShowSub") strPhysicalPath = Server.MapPath(".\" & ShowSub) px=cInt(request.querystring("px")) Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strPhysicalPath) Set objFolderContents = objFolder.Files strFileName="" x = 0 For Each objFileItem in objFolderContents If Ucase(Right(objFileItem.Name,4))=".GIF" OR Ucase(Right(objFileItem.Name,4))=".JPG" THEN if x=px then strFileName=objFileItem.Name x = x + 1 End if Next if px>0 then Response.Write " Previous" end if if px<(x-1) then Response.Write " Next" end if ShowPic=strFileName if ShowSub<>"" then ShowPic=Server.URLEncode(ShowSub) & "/" & ShowPic Response.Write "

" response.write "Close Window" %> ``` Permalänk: https://www.webforum.nu/p/1681477 ## #12 — invalido, 2005-10-05T05:19Z fungerar säker det där med nästa och föregående.. men nu får jag inte upp pop-upen när ajg klickar på en bild! :S Permalänk: https://www.webforum.nu/p/1681501 ## #13 — invalido, 2005-10-07T22:51Z kan du hitta nått fel med filen? Permalänk: https://www.webforum.nu/p/1682539 ## #14 — invalido, 2005-10-07T22:51Z eller skriptet menar ajg! Permalänk: https://www.webforum.nu/p/1682540 ## #15 — emission, 2005-10-08T00:02Z Provkörde nu och det fungerar toppen, men tänk på att ingen av kodexemplen var kompletta HTML-dokument. Det saknas en del i toppen. Permalänk: https://www.webforum.nu/p/1682553 ## #16 — invalido, 2005-10-08T09:27Z jo men jag ersatte bara den del som du hade modifierat. Får itne upp pop-up filen. När ajg bara ersatte den filen utan photoalbums filen så funkade pop-upen men visade ingen bild! Permalänk: https://www.webforum.nu/p/1682578 ## #17 — emission, 2005-10-08T10:36Z Felmeddelande? Permalänk: https://www.webforum.nu/p/1682591 ## #18 — invalido, 2005-10-08T12:40Z blir abra ett litet kryss Permalänk: https://www.webforum.nu/p/1682625 ## #19 — emission, 2005-10-08T14:02Z Hur blir själva img-href:en? Gjorde en liten ändring (SCRIPT_NAME) i det undre skriptet. Permalänk: https://www.webforum.nu/p/1682650 ## #20 — invalido, 2005-10-09T14:55Z vad menar du? är inte alltför insatt :S men bilderna ligger i samma mapp som själva skripten i olika mappar! Permalänk: https://www.webforum.nu/p/1685823 --- Tråden på webben: https://www.webforum.nu/amne/asp/135147-får-inte-till-att-bläddra-mellan-bilder Nästa sida: https://www.webforum.nu/amne/asp/135147-får-inte-till-att-bläddra-mellan-bilder/page2.md