Pop-up vindue - størrelse
Hej eksperterJeg har fundet et - synes jeg selv - rimelig køligt asp script på nettet, som automatisk genererer et menutræ og viser nogle billeder baseret på indholdet i filstrukturen.
Jeg vil gerne anvende scriptet, men har et enkelt problem, som jeg ikke umiddelbart kan løse.
Problemet er, at billederne vises i et pop-up vindue, som tilpasses billedets størrelse. Det virker umiddelbart fint. Men hvis man først klikker på et lille billede og derefter (uden at lukke pop-up vinduet) klikker på et større billede, så vises det store billede i pop-up vinduet baseret på størrelsen beregnet efter det lille billede (første billede i vinduet).
Har rodet lidt med forskellige løsninger, man kan ikke få skidtet til at virke ... gode forslag fra eksperterne?
SCRIPTET:
---------------------------------------
<%
'Folders-to-Gallery Script is provided as is, no warranties are implied and the working functionality of this script is
'not garanteed. Credit for this script would be appreciated, but its not required. I am sure you will change it to fit
'your needs. I would like to thank everyone on the web with providing examples of code and helping others out when they
'have questions! With that, i will say that i had no external help with this except for the examples of code i found.
'Feel Free to modify this script ANY WAY YOU WANT. If you make any feature enhancements, feel free to email me the script
'so i can evaluate them and possibly incorporate them into my own website and the lastest release. My website is: www.scsorlando.com and my email is
'bkennedy@scsorlando.com.
'GT would like to thank www.scsorlando.com for the script core; GT contributed to minor asp changes as well as adding visual style.
'1. added a popup window for large image view.
'2. added easy switch of colors for css/styles.
'3. added thumbnail information and enhanced display.
'4. added icons.
'Reach GT on the web at www.graphitetheory.com
'GT's Email is graphitetheory@graphitetheory.com
'SCSOrlando thanks GT for their ability to add style to a style deficient script! :)
Dim strTitle
Dim strIgnoreFolder
Dim strRemoveHF
Dim strSetTitle
Dim strPicTitle
Dim strColumns
Dim strCopyright
Dim strCopyrightphoto
Dim strUseThumbs
Dim strshowstats
Dim strborders
Dim strfullfilename
Dim straftergallery
Dim strbeforegallery
Dim strdefaultgallery
Dim strGallerypage
Dim strMainImage
Dim strMain2Image
Dim strSubImage
Dim pgcnt
Dim bkP
'************** REQUIRED SETTINGS **************
'Make sure to set these items before making the script live!
strTitle = "FMK imagegallery" 'Page title and Gallery Title
strIgnoreFolder = "folders-to-galleri" 'Name of the top folder in the gallery ( Make sure it matches the name of the top folder EXACTLY, this settings is case sensitive )
'************** OPTIONAL SETTINGS **************
'These are extra settings to allow you to change the look of the pictures
'Comments about items are BELOW the item.
strRemoveHF = "0" '1 = yes 0 = no
'Set this to 1 to remove the header and footer boxes
strSetTitle = "1" '1 = yes 0 = no
'Set the popup page title with the website name on the next line?
strPicTitle = "www.a-begynder.dk"
'Set the title of the popup image window. This is only valid if strSetTitle = 1.
strColumns = "3"
'This allows you to set how many columns of pictures the script will generate.
strCopyright = "1" '1 = yes 0 = no
'This allows you to set up some basic copyright protection on the images. It sets the null image(copyrighted.gif) as an overlay and the actual image as a background, when you right click, you can only save the null image.
strCopyrightphoto = "copyrighted.gif" 'example: somethingelse.jpg
'This sets the photo used for the copyright overlay.
strUseThumbs = "0" '1 = yes 0 = no
'This enables thumbs to be selected instead of full size images and prevents resizing of displayed thumb images.
strshowstats = "0" '1 = yes 0 = no
'This controls wether or not you have file name, size, date created data at the bottom of the images.
strborders = "1" '1 = yes 0 = no
'This controls wether or not you have the borders around the images. Only available if show stats is set to no.
strfullfilename = "0" '1 = yes 0 = no
'This shows the name of the file with the extension. Only available if stats is set to 1.
straftergallery = "" 'example /gal
'This puts the words Gallery after the image folder name, delete everything between the quotes to only show the folder name.
strbeforegallery = "" 'example gal/
'This puts words before the foldername of the gallery. Delete everything between the quotes to disable it.
strdefaultgallery = "AA_billeder/_fmk" 'example: "AA_Some Folder/My Gallery"
'This sets a default picture gallery, set this and the script will pull up a gallery on load.
strGallerypage = "default.asp"
'this sets the page links will go to, change this to the template page you have the default.asp page included in if you use includes.
strMainImage = "dir.gif"
'Sets the image used as the category image. Blank it out to set no picture.
strMain2Image = "dir.gif"
'Sets the image used as the gallery title image. Blank it out to set no picture.
strSubImage = "marker.gif"
'Sets the image used for the gallery title on the left. Blank it out to set no picture.
pgcnt = "1" '1 = yes 0 = no
'Turn page counter on and off
bkP = 12 'DO NOT USE QUOTES!!!
'This sets the amount of pictures shown at one time.
' ********* edit styles below *********
strULLeftMargin = "10" 'Set the margin to the left of the gallery folder names(on the left) Allows for a more compressed look.
strULRightMargin = "1" 'Set the margin to the right of the gallery folder names(on the left) Allows for a more compressed look.
pbgcolor = "#000000" 'Background color of the popup window
strfont ="Verdana, Tahoma, Geneva, Arial, Helvetica, sans-serif" ' default font
strtopcolor = "#9BCDFF" ' top/bottom bar background color
strbarheight = "60" ' top bar height
strsidecolor = "#deeefd" ' side bar background color
strdarkfont = "#333333" ' dark font color
strlightfont = "#ffffff" ' light font color
strdes = "#666666" ' thumbnail font color
strlink = "#ff3300" 'Link color
strlinkhover = "#666666" 'on hover Link color
strwinh = "500" 'window height
strwinw = "500" 'window width
' ********* Dont edit below unless you have html/asp knowledge *********
%>
<html>
<title><%=strTitle%></title>
<head>
<style type="text/css">
<!--
ul {
margin-left:<%=strULLeftMargin%>px;
margin-right:<%=strULRightMargin%>px;
}
.folder {
background-color:#deeefd;
border: 1px solid #999999;
width: 100px;
cursor:hand;
margin-bottom: 6px;
}
.img {
border-bottom: 1px solid #cccccc;
border-top: 1px solid #111111;
border-right: 1px solid #999999;
border-left: 1px solid #999999;}
.sidebar{
background-color:<%=strsidecolor%>;
border-right: 1px solid #999999;}
.border {
background-color:<%=strtopcolor%>;
border-bottom: 1px solid #111111;
border-top: 1px solid #cccccc;
border-right: 1px solid #999999;
border-left: 1px solid #999999;}
.border1 {
background-color:#ffffff;
border-bottom: 1px solid #111111;
border-top: 1px solid #cccccc;
border-right: 1px solid #999999;
border-left: 1px solid #999999;}
.border2 { background-color:#deeefd;
border-bottom: 1px solid #111111;
border-top: 1px solid #cccccc;
border-right: 1px solid #999999;
border-left: 1px solid #999999;}
.fontwhite {
color: #FFFFFF;
font-weight: Bold;
font-size: 12px;
font-family: <%=strfont%>;
}
.fontblack {
font-weight: bold;
font-family: <%=strfont%>;
color: <%=strdarkfont%>;
}
body, td, th {
font-family: <%=strfont%>;
font-size: 11px;
color: <%=strdarkfont%>;
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
.small {
font-family: <%=strfont%>;
font-size: 9px;
color: <%=strdes%>;
}
a:link {
color: <%=strlink%>;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: <%=strlink%>;
}
a:hover {
text-decoration: none;
color: <%=strlinkhover%>;
}
a:active {
text-decoration: none;
color: <%=strlink%>;
}
img{border:0px}
-->
</style>
<script language="JavaScript" type="text/javascript">
//Get picture source location and picture name
function viewPic(img, bktl)
{
//Use picture name to set as page title
this.title = bktl
picfile = new Image();
//get image source
picfile.src =(img);
//check image source
fileCheck(img);
}
function fileCheck(img)
//Make sure file exists
{
if( (picfile.width!=0) && (picfile.height!=0) )
{
makeWindow(img);
}
else
{
funzione="fileCheck('"+img+"')";
intervallo=setTimeout(funzione,8);
}
}
function makeWindow(img)
//Generate window based on size of picture and settings.
{
wd = picfile.width;
ht = picfile.height;
var args= "height=" + ht;
args += ",width=" + wd;
if (window.screen)
{
var avht = screen.availHeight - 30;
var avwd = screen.availWidth - 10;
var xcen = (avwd - wd) / 2;
var ycen = (avht - ht) / 2;
args += ",left=" + xcen + ",screenX=" + xcen;
args += ",top=" + ycen + ",screenY=" + ycen + ",resizable=no";
}
newwindow=window.open(img, 'x', args);
newwindow.document.clear();
newwindow.focus();
//Generate code in pop up window.
newwindow.document.writeln('<html><head><title>' + this.title + '<\/title><\/head><body bgcolor="<%=pbgcolor%>" leftmargin="0" rightmargin="0" topmargin="0" bottommargin="0"><center>');
//Drop in copyrighted overlay and make the image selected the background, if copyright protection is turned on.
newwindow.document.writeln('<%if strCopyright = 1 then%><span style="background: url(' + img + '); background-repeat:no-repeat;"><img GALLERYIMG="no" src="<%=strCopyrightphoto%>" width=' + wd + ' height=' + ht + '></span><%else%><img src=' + img + '><%end if%>');
newwindow.document.writeln('<\/center><\/body><\/html>');
newwindow.document.close();
newwindow.focus();
}
//Close any open windows when the users leaves the gallery.
function tidy() {
if (newwindow && !newwindow.closed) { newwindow.close(); }
}
</script>
</head>
<body>
<table width="100%" height="100%" border="0" align="left" cellpadding="0" cellspacing="0"><%if strRemoveHF = "1" then ' show the top box?%><%else%>
<tr>
<td height="<%=strbarheight%>" colspan="2" nowrap class="border"> <span class="fontwhite"><%=strTitle%></span></td>
</tr><%end if%>
<tr>
<td width="15%" align="left" valign="top" class="sidebar">
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td nowrap valign="top"><br>
<span class="fontblack">Content</span>
</td>
</tr><%if strRemoveHF = "1" then 'Show the bottom box?%><%else%>
<tr>
<td height="15" colspan="2" nowrap class="border" align="center">©Folders-to-Gallery Script provided by <a href="http://www.scsorlando.com" target="_blank">Secure Computing Solutions</a>.<p> </p>
<p> </p>
<%
'Set the folder to current directory
IFolders(Server.MapPath("./"))
%>
<%
' Generates the folder listing to the left as an unordered list
function IFolders(path)
Dim bkFSO, bkFolders, bkSub, item, url
bkcount = 0
Set bkFSO = Server.CreateObject("Scripting.FileSystemObject")
Set bkFolders = bkFSO.GetFolder(path)
'Ingores current folders contents other than folders.
If bkFolders.name = strIgnoreFolder then
Else
' Sets gallery category names
If (Left(bkFolders.name,3)) = "AA_" then
Response.write("<ul>")
'Determines to show or not show image next to category name
If strMainImage = "" then
Response.Write("<table border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td nowrap></td><td nowrap><span class=""fontblack"">" & (Right(bkFolders.Name,(Len(bkFolders.name)-3))) & " </span></tr></td></table>")
Else
Response.Write("<table border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td nowrap><img src=""" & strMainImage &"""> </td><td nowrap><span class=""fontblack"">" & (Right(bkFolders.Name,(Len(bkFolders.name)-3))) & " </span></tr></td></table>")
End if
'Grab subfolders and generate gallery links
Else
' Exclude frontpage folders if found
If (Left(bkFolders.name,1)) = "_" then
Response.write("<ul>")
Else
'Determines to show or not show image next to gallery name
If strSubImage = "" then
Response.Write(" " & strbeforegallery & bkFolders.Name & " " & straftergallery & "</a></span> ")
Else
Response.Write(" <img src=""" & strSubImage &"""> " & strbeforegallery & bkFolders.Name & " " & straftergallery & "</a></span> ")
End if
Response.write("<ul>")
End If
End If
End If
'Find images and set path
For each item in bkFolders.SubFolders
url = MapURL(item.path)
'Skip main folder or frontpage folders
If bkFolders.name = strIgnoreFolder or (Left(bkFolders.name,3)) = "_" then
Else
Response.Write("<a href=""" & strGallerypage &"?gallery=" & Server.URLPathEncode(url) & """></span>")
End If
IFolders(item.path)
Next
Response.Write("</ul>" & vbCrLf)
Set bkFSO = Nothing
end function
%></td>
</tr>
<tr>
<%
'Get images
function GetThumbs(imagefolder, startimage)
Dim bkFSO, bkFolders, bkFile, bkPath, bkI, bkJ, bkFileCount
bkPath = imagefolder
Set bkFSO = Server.CreateObject("Scripting.FileSystemObject")
Set bkFolders = bkFSO.GetFolder(Server.MapPath(bkPath))
bkI = 0
bkJ = 1
bkFileCount = bkFolders.Files.Count
'Determine wether or not to use thumbnail images.
If strusethumbs = "1" then
'Alter image count if thumbnails used.
bkfcount = bkFolders.Files.Count / 2
Else
bkfcount = bkFolders.Files.Count
End if
Response.Write("<table border=""0"" cellspacing=""10"" cellpadding=""2"">")
'Determine wether or not to use the image to the right of the Gallery Title on the gallery page.
If strMain2Image = "" then
Response.Write("<tr><td nowrap colspan=""4""><table border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td nowrap></td><td nowrap><span class=""fontblack"">" & bkFolders.name & " (" & bkfcount & " photos)</span></td></tr></table></td></tr>" )
Else
Response.Write("<tr><td nowrap colspan=""4""><table border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td nowrap><img src=""" & strMain2Image &"""></td><td nowrap><span class=""fontblack""> " & bkFolders.name & " (" & bkfcount & " photos)</span></td></tr></table></td></tr>" )
End if
Response.Write("<tr>")
For Each bkFile in bkFolders.Files
'Skip frontpage folders and top folder, then ignore thumbnail files.
If bkFolders.name = strIgnoreFolder or (Left(bkFolders.name,1)) = "_" or (left(bkFile.name,3)) = "TN_" then
'Adjust file count if thumbnails are present.
If (left(bkFile.name,3)) = "TN_" then
bkFileCount = bkFileCount - 1
'If thumbnails are present, turn on thumbnail option, this will help the absent minded.
strusethumbs = "1"
Else
End If
Else
'Determine image gallery look and display images in a table based on that look.
If cInt(bkJ) >= cInt(startimage) then
bkP2 = bkP + 1
If bkI < bkP then
'Close row, write new one.
If bkI Mod strColumns = 0 then
Response.Write("</tr><tr>")
End If
'Set the popup window page title
If strSetTitle = 1 then
strPopTitle = strPicTitle
else
strPopTitle = (left(bkFile.Name,(Len(bkFile.name)-4)))
end if
'Use Thumbs?
If strUseThumbs = "1" then
'Show image stats?
If strshowstats = "1" then
Response.Write("<td nowrap class=""border2"" width=""140"" height=""200"" align=""center"" valign=""top"" onMouseOver=""this.className='border1'"" onMouseOut=""this.className='border2'""><br><a href=" & Server.URLPathEncode(Request("gallery")) & "/" &_
Server.URLPathEncode(bkFile.Name) & " target=""fullimage"" onclick=""viewPic(this.href,'" & strPopTitle &"'); scrollbars='yes';return false""><img src=" & Server.URLPathEncode(Request("gallery")) & "/TN_" & Server.URLPathEncode(bkFile.Name) & " width=""120"" class=""img""></a><br><br><b>")
'Show full name of file?
If strfullfilename = "1" then
Response.Write(bkFile.name)
Else
Response.Write((left(bkFile.Name,(Len(bkFile.name)-4))))
End If
response.write("</b><span class=""small""><br>File Size:" & bkFile.size & "<br>File Created:<br>" & bkFile.Datecreated & "</td>")
bkI = bkI + 1
Else
'Show box around image?
If strborders = "1" then
Response.Write("<td nowrap class=""border2"" width=""140"" height=""160"" align=""center"" valign=""top"" onMouseOver=""this.className='border1'"" onMouseOut=""this.className='border2'""><br><a href=" & Server.URLPathEncode(Request("gallery")) & "/" &_
Server.URLPathEncode(bkFile.Name) & " target=""fullimage"" onclick=""viewPic(this.href,'" & strPopTitle &"'); scrollbars='yes';return false""><img src=" & Server.URLPathEncode(Request("gallery")) & "/TN_" & Server.URLPathEncode(bkFile.Name) & " width=""120"" class=""img""></a></td>")
bkI = bkI + 1
Else
Response.Write("<td nowrap align=""center""><a href=" & Server.URLPathEncode(Request("gallery")) & "/" &_
Server.URLPathEncode(bkFile.Name) & " target=""fullimage"" onclick=""viewPic(this.href,'" & strPopTitle &"'); scrollbars='yes';return false""><img src=" & Server.URLPathEncode(Request("gallery")) & "/TN_" & Server.URLPathEncode(bkFile.Name) & "></a></td>")
bkI = bkI + 1
End if
End if
Else
'Show image stats?
If strshowstats = "1" then
Response.Write("<td nowrap class=""border2"" width=""140"" height=""200"" align=""center"" valign=""top"" onMouseOver=""this.className='border1'"" onMouseOut=""this.className='border2'""><br><a href=" & Server.URLPathEncode(Request("gallery")) & "/" &_
Server.URLPathEncode(bkFile.Name) & " target=""fullimage"" onclick=""viewPic(this.href,'" & strPopTitle &"'); scrollbars='yes';return false""><img src=" & Server.URLPathEncode(Request("gallery")) & "/" & Server.URLPathEncode(bkFile.Name) & " width=""120"" class=""img""></a><br><br><b>")
'Show full name of file?
If strfullfilename = "1" then
Response.Write(bkFile.name)
Else
Response.Write((left(bkFile.Name,(Len(bkFile.name)-4))))
End If
response.write("</b><span class=""small""><br>File Size:" & bkFile.size & "<br>File Created:<br>" & bkFile.Datecreated & "</td>")
bkI = bkI + 1
Else
'Show box around image?
If strborders = "1" then
Response.Write("<td nowrap class=""border2"" width=""140"" height=""160"" align=""center"" valign=""top"" onMouseOver=""this.className='border1'"" onMouseOut=""this.className='border2'""><br><a href=" & Server.URLPathEncode(Request("gallery")) & "/" &_
Server.URLPathEncode(bkFile.Name) & " target=""fullimage"" onclick=""viewPic(this.href,'" & strPopTitle &"'); scrollbars='yes';return false""><img src=" & Server.URLPathEncode(Request("gallery")) & "/" & Server.URLPathEncode(bkFile.Name) & " width=""120"" class=""img""></a></td>")
bkI = bkI + 1
Else
Response.Write("<td nowrap align=""center""><a href=" & Server.URLPathEncode(Request("gallery")) & "/" &_
Server.URLPathEncode(bkFile.Name) & " target=""fullimage"" onclick=""viewPic(this.href,'" & strPopTitle &"'); scrollbars='yes';return false""><img src=" & Server.URLPathEncode(Request("gallery")) & "/" & Server.URLPathEncode(bkFile.Name) & " width=""120"" ></a></td>")
bkI = bkI + 1
End If
End If
End If
End If
Else
End If
bkJ = bkJ + 1
End if
next
'If the gallery is empty tell the users its empty
If bkJ = "1" then
Response.write("<td nowrap><br><br> There are no pictures in this gallery.</td>")
End If
Response.Write("</tr><tr><td nowrap align=""left"" colspan=""2"">")
'Set the start image
If startimage = "" then
startimage = 1
else
startimage = request("startimage")
end if
'If there is no page number set, then set it to 1, otherwise get the page number
If Request("cp") = "" then
cp = "1"
else
cp = Request("cp")
end if
'Figure out wether or no to put in a PREVIOUS link or not
If startimage >= bkP AND startimage > 1 then
Response.Write("<a href=""" & strGallerypage &"?gallery=" & imagefolder & "&startimage=" & startimage - bkP & "&cp=" & cp - 1 & """>Previous</a></td><td></td>")
Else
End If
Response.Write("<td nowrap align=""right"" colspan=""2"">")
'Figure out wether or no to put in a NEXT link or not
If startimage + bkP =< bkFileCount then
Response.Write("<a href=""" & strGallerypage &"?gallery=" & imagefolder & "&startimage=" & startimage + bkP & "&cp=" & cp + 1 & """>Next</a>")
Else
Response.write(" ")
End If
'If you have more than the set number of images to display, create page links at the bottom.
If bkFileCount > bkP then
bkpagecount = bkFileCount / bkP
Response.write("</tr><tr><td nowrap align=""center"" colspan=""4"">Page (")
bkpagecount2 = 0
startimage = 0
'Loop thru the image count and generate a link to the start image on the next page.
while bkpagecount2 < bkpagecount
response.write(" <a href=""" & strGallerypage &"?gallery=" & imagefolder & "&startimage=" & CInt(startimage) + bkP * bkpagecount2 + 1 & "&cp=" & bkpagecount2 + 1 &""">" & bkpagecount2 + 1 & "</a> ")
bkpagecount2 = bkpagecount2 + 1
wend
Response.write(")")
Response.write("<br><br>")
'Show page count at the bottom?
If pgcnt = "1" then
Response.write(cp & " of " & bkpagecount2)
Response.write("<br><br>")
end if
else
end if
Response.Write("</table>")
'Clean up
Set bkFSO = Nothing
End function
%>
</tr>
</table></td>
<td align="left" valign="top" bgcolor="#FFFFFF"><%
Dim bkGetThumb
'If someone selected a gallery, GET IT! :)
If Request("gallery") > "" then
bkGetThumb = GetThumbs(Request("gallery"), Request("startimage"))
Else
'If the gallery host set a default gallery then display it, otherwise tell them to pick something.
If strdefaultgallery > "" then
test1 = Server.URLPathEncode(MapURL(Server.MapPath("./")))
Response.Redirect("" & strGallerypage &"?gallery=" & test1 & "/" & Server.URLPathEncode(strdefaultgallery) & "")
else
Response.write("<br> Click on a gallery to view pictures.")
end if
End If
'Convert the file path to a web friendly path
function MapURL(path)
dim rootPath, url
rootPath = Server.MapPath("/")
url = Right(path, Len(path) - Len(rootPath))
MapURL = Replace(url, "\", "/")
End function
%>
</td>
</tr><%end if%>
</table>
</body>
</html>
