<% ' e.g. Faimily-s.jpg - would be the thumbnail ' Family.jpg - would be the large image thumbsPerPage = 24 ' Number of thumbnails to display on the page thumbsPerRow = 4 ' Number of thumbnails to display per row - surprised thumbIdentifier = "-s.jpg" ' The common string ending for all thumbnail images. ' You should not need to change any ASP code below here. Go to line and beyond to change HTML pgURL = Request.ServerVariables("SCRIPT_NAME") 'the name of this page eg. album.asp pgName = Right(pgURL, len(tt) - InStrRev(tt, "/")) ' The current page's name page = request.queryString("page") 'This is the page you are on, used for paging if page = "" then page = 1 'If no page # exists, set to 1 img = Request.querystring("img") 'Large image to display if they clicked a thumbnail if img = "" then 'If there is no image on URL, show the thumbnail page ' Determine which image to start / end at based upon paging and thumbsPerPage first = ((page-1) * thumbsPerPage) last = (page * thumbsPerPage)-1 'We do minus 1 here since we are using an array... array starts at 0 vs 1 ' get the current folder location strPathInfo = Request.ServerVariables("SCRIPT_NAME") strPhysicalPath = Server.MapPath(strPathInfo) set objFSO = CreateObject("Scripting.FileSystemObject") set objFile = objFSO.GetFile(strPhysicalPath) set objFolder = objFile.ParentFolder set objFolderContents = objFolder.Files ' Count total number of thumbnails totalImages = 0 For each objFileItem In objFolderContents if inStr(LCase(objFileItem.Name),thumbIdentifier) then totalImages = totalImages + 1 end if next 'Limit last to totalImages so array does not go out of range. if last > totalImages then last = totalImages 'Array starts at 0 vs. 1 so we need to offset this by 1 exception last image can't be > than total # of iamges lastDisplay = last + 1 if lastDisplay > totalImages then lastDisplay = totalImages ' Create an array to put all the images in so that we can do paging dim arrayOfThumbs() ReDim arrayOfThumbs(totalImages) i = 0 ' Populate the array with the images For each objFileItem In objFolderContents ' only display the thumbnails - the images that have the ending defined in the thumbIdentifier variable at top of page if inStr(LCase(objFileItem.Name),thumbIdentifier) then 'Isolate the image name so that we can create a link to the large version. This strips off the ending e.g. -01.jpg image = split(objFileItem.Name, thumbIdentifier) ' Populate array arrayOfThumbs(i)= "
" & vbCrLf i = i + 1 end if next ' Create page links if more than 1 page is needed dim paging if (thumbsPerPage < totalImages) then ' Assing all the page numbers to the paging string because we are going to use on top and bottom of page paging = "Page: " k = 1 Do paging = paging + "" & k & "" & vbCrLf k = k + 1 loop until (k * thumbsPerPage) >= totalImages paging = paging + "" & k & "" 'One more becase the logic cuts the last one off end if %>
 
 
   

ECO MARINE THEME PARK RESORT
THE WORLD HERITAGE CITY

Site Progress - Bold Lagoon Shoplot

 

<%=paging%>    (<%=first+1%> - <%=lastDisplay%> of <%=totalImages%>)

<% ' Loop through the array and display images for j = first to last response.write(arrayOfThumbs(j)) if (j+1) Mod thumbsPerRow = 0 then response.Write(vbCrLf & "" & vbCrLf) 'Create a new row based on thumbsPer row next %>

<%=paging%>    (<%=first+1%> - <%=lastDisplay%> of <%=totalImages%>)

<% 'Display the big image Page else %>

Site Progress - Bold Lagoon Shoplot



<% end if %>