Baloğlu Baklava & Pastaneleri Fotoğraf Galerisi

<%@LANGUAGE="VBSCRIPT"%><% PageTitle = "Fotoğraf Galerisi" BackgroundColor = "#0f0f0f" HyperlinkColor = "#ffffff" FontFace = "Verdana" FontColor = "#c0c0c0" TextAlign = "Justified" HeaderAlign = "Center" FolderPath = "/PhotoGallery/" 'Path must be mapped from root PageWidth = "800" BorderWidth = "1" BorderColor = "#ffffff" BorderMargin = "10" PageHeader = "Fotoğraf Galerisi" ImageHorizontalSpace = "10" ImageVerticalSpace = "10" ImageThumbnailWidth = "100" ImageBorderSize = "1" ImagesPerRow = "3" UseFilenameALT = "YES" ShowCopyright = "YES" DebugPath = "NO" TurnOnPaging = "YES" ImagesPerPage = "6" 'Only relevant if paging is turned on DisplayImageCountFooter = "YES" TurnOnSlideshow = "YES" SlideShowTimer = "5" 'Number of Seconds to pause between transitions in slideshow mode. SlideShowImageWidth = "500" GalleryAutoPreview = "YES" GalleryPreviewZoomImageWidth = "300" TurnOnThumbnailSupport = "NO" 'This does not create thumbnails. See documenation for full explination. ThumbnailIdentifier = "_thumbnail" '(Example: "Image1_thumbnail.jpg" would be the thumbnail image file for "Image1.jpg") UseGreyscaleMouseover = "YES" 'Note: Only works for Internet Explorer users PersonalCopyrightTagline = "Tüm Hakları Saklıdır © 2009 KAPUSUZ WEB " UseNoRightClick = "YES" 'Note: Only works for Internet Explorer users ViewImageWidth = "600" UseViewImageDownload = "YES" UseViewSendToFriend = "YES" VeiwSendToFriendMessage = "Fotoğraf Galerisi:" UseFilenameDescriptions = "NO" 'DO NOT EDIT BELOW THIS LINE =============================================================================================================================== varMode = request.querystring("mode") Whichfolder=server.mappath("" & FolderPath & "") if lcase(TurnOnPaging) = "yes" then Dim fs, f, f1, fc Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(Whichfolder) Set fc = f.files For Each f1 in fc if lcase(UseFilenameALT) = "yes" then ImageAlt = f1.name ImageAltLen = Len(ImageAlt) ImageAltCrop = (int(ImageAltLen) - 4) ImageAlt = Left(ImageAlt, ImageAltCrop) end if ImageFileFound = "No" if right(f1.name, 4) = ".jpg" then ImageFileFound = "Yes" if right(f1.name, 4) = ".gif" then ImageFileFound = "Yes" if right(f1.name, 4) = ".png" then ImageFileFound = "Yes" if right(f1.name, 4) = ".bmp" then ImageFileFound = "Yes" TN_IsThumbnailFlag = "" if lcase(TurnOnThumbnailSupport) = "yes" then TN_OriginalFilename = Len(f1.name) TN_FilenameLenWithoutExt = int(TN_OriginalFilename) - 4 TN_IdentifierLen = Len(ThumbnailIdentifier) TN_Filename = Left(f1.name, TN_FilenameLenWithoutExt) TN_ThumbnailCheck = Right(TN_Filename, TN_IdentifierLen) if TN_ThumbnailCheck = ThumbnailIdentifier then TN_IsThumbnailFlag = "True" end if if TN_IsThumbnailFlag = "" and ImageFileFound = "Yes" then intImageCount = intImageCount + 1 end if Next end if Whichfolder=server.mappath("" & FolderPath & "") if lcase(TurnOnPaging) <> "yes" then Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(Whichfolder) Set fc = f.files For Each f1 in fc ImageFileFound = "No" if right(f1.name, 4) = ".jpg" then ImageFileFound = "Yes" if right(f1.name, 4) = ".gif" then ImageFileFound = "Yes" if right(f1.name, 4) = ".png" then ImageFileFound = "Yes" if right(f1.name, 5) = ".bmp" then ImageFileFound = "Yes" if f1.name <> "index.asp" and ImageFileFound = "Yes" then intImageCount = intImageCount + 1 end if Next end if intTotalNumberOfImages = intImageCount if varMode = "" then intNumberOfPages = (intImageCount/ImagesPerPage) if intNumberOfPages > int(intNumberOfPages) then intNumberOfPages = int(intNumberOfPages) + 1%> Baloğlu Baklava & Pastaneleri Fotoğraf Galerisi <% if lcase(UseGreyscaleMouseover) = "yes" then %> <% end if %> <% if lcase(UseNoRightClick) = "yes" then %> <% end if %>

<% if lcase(DebugPath) = "yes" then %>

<% end if %>

<% if lcase(HeaderAlign) = "center" then %><% end if %><%=PageHeader%><% if PageHeader <> "" then %>

<% end if %><% if lcase(HeaderAlign) = "center" then %><% end if %>

<% if lcase(TextAlign) = "center" then %><% end if %><%=PageMessage%><% if PageMessage <> "" then %>

<% end if %><% if lcase(TextAlign) = "center" then %><% end if %>

<% if TurnOnPaging = "YES" then intCurrentPage = request.querystring("Page") if intCurrentPage = "" then intCurrentPage = "1" FirstImageAllowedOnPage = ((int(intCurrentPage) * int(ImagesPerPage)) - int(ImagesPerPage)) + 1 FinalImageAllowedOnPage = (int(intCurrentPage) * int(ImagesPerPage)) %>

<%=intNumberOfPages%>
<< <% if int(intCurrentPage) > 1 then %><% end if %>Geri | <% if int(intCurrentPage) < (intNumberOfPages) then %><% end if %>İleri >>
<% if lcase(TurnOnSlideshow) = "yes" then %> <% end if %>

<% end if %> <% if lcase(TurnOnSlideshow) = "yes" and lcase(TurnOnPaging) = "no" then %>

<% end if %> <% PassCount = 1 intImageCount = 0 Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(Whichfolder) Set fc = f.files For Each f1 in fc if lcase(UseFilenameALT) = "yes" then ImageAlt = f1.name ImageAltLen = Len(ImageAlt) ImageAltCrop = (int(ImageAltLen) - 4) ImageAlt = Left(ImageAlt, ImageAltCrop) end if ImageFileFound = "No" if right(f1.name, 4) = ".jpg" then ImageFileFound = "Yes" if right(f1.name, 4) = ".gif" then ImageFileFound = "Yes" if right(f1.name, 4) = ".png" then ImageFileFound = "Yes" if right(f1.name, 4) = ".bmp" then ImageFileFound = "Yes" if lcase(TurnOnThumbnailSupport) = "yes" then TN_OriginalFilename = Len(f1.name) TN_FilenameLenWithoutExt = int(TN_OriginalFilename) - 4 TN_IdentifierLen = Len(ThumbnailIdentifier) TN_Filename = Left(f1.name, TN_FilenameLenWithoutExt) TN_ThumbnailCheck = Right(TN_Filename, TN_IdentifierLen) end if if TN_ThumbnailCheck <> ThumbnailIdentifier and ImageFileFound = "Yes" then intImageCount = intImageCount + 1 PassCount = PassCount + 1 if lcase(TurnOnPaging) = "yes" and int(intImageCount) > int(FirstImageAllowedOnPage)-1 then if lcase(TurnOnPaging) = "yes" and int(intImageCount) < int(FinalImageAllowedOnPage)+1 then if PassCount > ImagesPerRow + 2 then PassCount = ImagesPerRow -1 if PassCount = ImagesPerRow + 2 then %>
<% PassCount = 2 %><% end if%><% if lcase(TurnOnPaging) = "yes" and varPosterDefault = "" then varPosterDefault = WichFolder & f1.name if lcase(TurnOnThumbnailSupport) = "yes" then TN_OriginalFilename = Len(f1.name) TN_FilenameLenWithoutExt = int(TN_OriginalFilename) - 4 TN_Filename = Left(f1.name, TN_FilenameLenWithoutExt) TN_FileExtension = Right(f1.name, 4) DisplayThumbnail = TN_Filename & ThumbnailIdentifier & TN_FileExtension end if if lcase(TurnOnThumbnailSupport) <> "yes" then varPosterTranslation = Replace(f1.name, " ", "%20") Response.write ("

Image #" & intImageCount & " of " & intTotalNumberOfImages &": " & ImageAlt & "

") end if if lcase(TurnOnThumbnailSupport) = "yes" then varPosterTranslation = Replace(f1.name, " ", "%20") Response.write ("

") end if end if end if if lcase(TurnOnPaging) <> "yes" then if PassCount > ImagesPerRow + 2 then PassCount = ImagesPerRow -1 if PassCount = ImagesPerRow + 2 then %>
<% PassCount = 2 %><% end if%><% if lcase(TurnOnPaging) <> "yes" and varPosterDefault = "" then varPosterDefault = WichFolder & f1.name if lcase(TurnOnThumbnailSupport) = "yes" then TN_OriginalFilename = Len(f1.name) TN_FilenameLenWithoutExt = int(TN_OriginalFilename) - 4 TN_Filename = Left(f1.name, TN_FilenameLenWithoutExt) TN_FileExtension = Right(f1.name, 4) DisplayThumbnail = TN_Filename & ThumbnailIdentifier & TN_FileExtension end if if lcase(TurnOnThumbnailSupport) <> "yes" then Response.write ("

") end if if lcase(TurnOnThumbnailSupport) = "yes" then Response.write ("

") end if end if end if Next %><% if int(intTotalNumberOfImages) < 1 then %>

Resim Bulunamadı

<% end if %><% if lcase(TurnOnPaging) = "yes" then %>
Sayfalar <% DO UNTIL varPageParsing = int(intNumberOfPages) varPageParsing = varPageParsing + 1 %><%=varPageParsing%> <% LOOP %>
<% end if %> <% if lcase(GalleryAutoPreview) = "yes" then %>

<% end if %> <% if lcase(DisplayImageCountFooter) = "yes" then %>
<%=PageTitle%> Fotoğraf Galerisi<% end if %>

<% if lcase(PersonalCopyrightTagline) <> "" then %>
<%=PersonalCopyrightTagline%><% end if%> <% if lcase(ShowCopyright) = "yes" then %>
<% end if%> <% end if %> <% if lcase(varMode) = "slideshow" then %> <%=PageTitle%> [Slideshow] <% CurrentPic = request.querystring("CurrentPic") if CurrentPic="" then CurrentPic = 1 CurrentPic = int(CurrentPic) if int(CurrentPic) < int(intTotalNumberOfImages) then %> <% end if %> <% if int(CurrentPic) = int(intTotalNumberOfImages) then %> <% end if %> <% if lcase(UseNoRightClick) = "yes" then %> <% end if %>

<% if lcase(HeaderAlign) = "center" then %><% end if %><%=PageHeader%><% if PageHeader <> "" then %>

<% end if %><% if lcase(HeaderAlign) = "center" then %><% end if %>

<% if lcase(TextAlign) = "center" then %><% end if %><%=PageMessage%><% if PageMessage <> "" then %>

<% end if %><% if lcase(TextAlign) = "center" then %><% end if%>

<% Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(Whichfolder) Set fc = f.files For Each f1 in fc ImageAlt = f1.name ImageAltLen = Len(ImageAlt) ImageAltCrop = (int(ImageAltLen) - 4) ImageAlt = Left(ImageAlt, ImageAltCrop) ImageFileFound = "No" if right(f1.name, 4) = ".jpg" then ImageFileFound = "Yes" if right(f1.name, 4) = ".gif" then ImageFileFound = "Yes" if right(f1.name, 4) = ".png" then ImageFileFound = "Yes" if right(f1.name, 4) = ".bmp" then ImageFileFound = "Yes" if lcase(TurnOnThumbnailSupport) = "yes" then TN_OriginalFilename = Len(f1.name) TN_FilenameLenWithoutExt = int(TN_OriginalFilename) - 4 TN_IdentifierLen = Len(ThumbnailIdentifier) TN_Filename = Left(f1.name, TN_FilenameLenWithoutExt) TN_ThumbnailCheck = Right(TN_Filename, TN_IdentifierLen) end if if TN_ThumbnailCheck <> ThumbnailIdentifier and ImageFileFound = "Yes" then PassCount = PassCount + 1 if int(PassCount) = int(CurrentPic) then Response.write ("

") %> <% if lcase(UseFilenameDescriptions) = "yes" then %>
"<%=ImageAlt%>"
<% end if %>
Fotoğraf Galerisi <%=CurrentPic%> / <%=intTotalNumberOfImages%>)
<% if CurrentPic > 1 then %> <% end if %> Geri | <% if CurrentPic < intTotalNumberOfImages then %> <% end if %> İleri

e <% end if end if Next %>

<% if lcase(PersonalCopyrightTagline) <> "" then %>
<%=PersonalCopyrightTagline%><% end if%> <% if lcase(ShowCopyright) = "yes" then %>
Baloğlu Baklava Pastaneleri
Copyright © 2009. Kapusuz<% end if%> <% end if %> <% if lcase(varMode) = "view" then %> <%=PageTitle%> [Büyük Resim] <% if lcase(UseNoRightClick) = "yes" then %> <% end if %>

<% if lcase(HeaderAlign) = "center" then %><% end if %><%=PageHeader%><% if PageHeader <> "" then %>

<% end if %><% if lcase(HeaderAlign) = "center" then %><% end if %>

<% if lcase(TextAlign) = "center" then %><% end if %><%=PageMessage%><% if PageMessage <> "" then %>

<% end if %><% if lcase(TextAlign) = "center" then %><% end if%>

<% CurrentPic = request.querystring("Image") ReturnPage = request.querystring("ReturnPage") if CurrentPic = "" then CurrentPic = "1" if ReturnPage = "" then ReturnPage = "1" Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(Whichfolder) Set fc = f.files For Each f1 in fc ImageAlt = f1.name ImageAltLen = Len(ImageAlt) ImageAltCrop = (int(ImageAltLen) - 4) ImageAlt = Left(ImageAlt, ImageAltCrop) ImageFileFound = "No" if right(f1.name, 4) = ".jpg" then ImageFileFound = "Yes" if right(f1.name, 4) = ".gif" then ImageFileFound = "Yes" if right(f1.name, 4) = ".png" then ImageFileFound = "Yes" if right(f1.name, 4) = ".bmp" then ImageFileFound = "Yes" if lcase(TurnOnThumbnailSupport) = "yes" then TN_OriginalFilename = Len(f1.name) TN_FilenameLenWithoutExt = int(TN_OriginalFilename) - 4 TN_IdentifierLen = Len(ThumbnailIdentifier) TN_Filename = Left(f1.name, TN_FilenameLenWithoutExt) TN_ThumbnailCheck = Right(TN_Filename, TN_IdentifierLen) end if if TN_ThumbnailCheck <> ThumbnailIdentifier and ImageFileFound = "Yes" then PassCount = PassCount + 1 if int(PassCount) = int(CurrentPic) then Response.write ("

") %> <% if lcase(UseFilenameDescriptions) = "yes" then %>
"<%=ImageAlt%>"
<% end if %>
(Fotoğraf Galerisi <%=CurrentPic%> / <%=intTotalNumberOfImages%>)
Galeriye Dön <% if lcase(UseViewImageDownload) = "yes" then %> <% if left((right(f1.name, 5)), 2) <> ".." then varPosterTranslation = Replace(f1.name, " ", "%20") Set fso = CreateObject("Scripting.FileSystemObject") Set a = fso.GetFile(Server.MapPath("/") & FolderPath & f1.name) ImageFileSize = a.Size ImageFileSize = int(int(ImageFileSize) * 0.0009765625) DisplayKB = " ( " & ImageFileSize & "KB )" end if %> | Resmi İndir e<%=DisplayKB%> <% end if %> <% if lcase(UseViewSendToFriend) = "yes" then %> <% SendURL = " http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("SCRIPT_NAME") & "?Mode=view%26Image=" & CurrentPic %> <% VeiwSendToFriendMessage = VeiwSendToFriendMessage & vbCrLf & vbCrLf %> | Arkadaşına Tavsiye Et <% end if %> <% end if end if Next %>

<% if lcase(PersonalCopyrightTagline) <> "" then %>
<%=PersonalCopyrightTagline%><% end if%> <% if lcase(ShowCopyright) = "yes" then %>
Baloğlu Baklava Pastaneleri

<% end if%><% end if %>