%
'###################################################################
'# Image Gallery v1.0
'#
'# This script will automatically create links for thumbs
'# and links to the full image. You just need to upload the
'# Full Image and the Thumbnail in the right directories.
'# All underscores ('_') in directories & FileNames will be
'# replaced by Spaces. The FileName will apear on top of the
'# page when you view the full Image.
'#
'# It will create a Previous & Next link to limit the amount
'# of thumbs showed on a page and also when you view a Full
'# Image. This way you don't need to return to the thumbs.
'#
'# Created by Sebastien Morel
'# Contact me on 'Dragonfly4@desertmail.com' for bugs or comments
'###################################################################
%>
<%Option Explicit%>
<%
On Error Resume Next
StartPosition = Request("imgCount")
Folder = Request("Folder")
ImageFilePath = myFolder + "/" + Request("Folder")
indPicturesFolderSpaces = Replace(Folder,"_"," ")
counter = 0
lImgCounter = 0
%>
Vista en Pequeño
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(ImageFilePath))
For Each objFile In objFolder.Files
strFileExtension = LCase(Mid(objFile.Name, InStrRev(objFile.Name, ".", -1, 1) + 1))
If strFileExtension = "gif" Or strFileExtension = "jpg" Then
If (CLng(counter) >= CLng(StartPosition)) and (Clng(counter) < (CLng(StartPosition) + Clng(ImageLimit))) then
lImgCounter = lImgCounter + 1
%>
vspace="5" hspace="5" border="0">
|
<%
If (lImgCounter Mod Imagerow) = 0 Then Response.Write " "
end if
counter = counter + 1
End If
Next
ThumbNextLink = CLng(StartPosition) + Clng(lImgCounter)
ThumbPreviousLink = CLng(StartPosition) - Clng(ImageLimit)
%>
<% If (CLng(StartPosition) >= CLng(ImageLimit)) Then %>
<% End If %>
<% If (CLng(StartPosition)) < (CLng(counter) - (CLng(ImageLimit))) Then %>
<% End If %>
|
<%
Set objFolder = Nothing
Set objFSO = Nothing
%>