Underlig finurlighed med billedgalleri.
HejsaJeg har lavet et billedgalleri ved hjælp af FSO.
Denne FSO-kode skal generere en tabel, hvor den skal smide miniature-billederne i cellerne.
Det jeg bare synes er mærkeligt er at nogle gange ser siden sådan her ud:
http://www.fdfvodskov.dk/eks/1.jpg
- andre gange ser den rigtig nok ud som her:
http://www.fdfvodskov.dk/eks/2.jpg
Kan nogen fortælle mig hvorfor det er forskelligt med hvordan side ser ud uden der er blevet lavet om på den?
- Og det er selvfølgelig som i:
http://www.fdfvodskov.dk/eks/2.jpg
jeg ønsker billedgalleriet skal se ud!
Her er min FSO-kode (og lidt til):
<%
lpics = Request.Cookies("lpics")
if lpics = "" then
lpics = 5
end if
apics = Request.Cookies("apics")
if apics = "" then
apics = "20"
end if
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("******.mdb")
dim image_directory, image_height, image_width, Images_pr_Page, Images_Horizontal
image_directory = "" & folder & ""
image_height = "65"
image_width = "85"
Images_pr_Page = "" & apics & ""
Images_Horizontal = "" & lpics & ""
dim count_image, image, Image_Array
Set directory=server.createobject("scripting.filesystemobject")
Set allfiles=directory.getfolder(server.mappath(image_directory))
For each image in allfiles.files
Image_Array = Image_Array + image.Name & ","
count_image = count_image +1
Next
dim Current_Page, Total_Pages, Total_Images, Page_Name
Page_Name = request.servervariables("script_name")
Total_Images = count_image
Current_Page = request.querystring("page")
If Current_Page = "" or Current_Page = "0" then
Current_Page = "1"
end if
Total_Pages = (Total_Images/Images_pr_Page)
if Total_Pages > int(Total_Pages) then
Total_Pages = int(Total_Pages) + 1
end if
Image_Array = split(Image_Array,",")
dim First_Image, Last_Image
First_Image = ((Current_Page-1)*(Images_pr_Page))+1
If First_Image = "0" then
First_Image = "1"
end if
Last_Image = (Total_Images-First_Image)
if cint(Last_Image) > cint(Images_pr_Page) then
Last_Image = round(First_Image-1) + round(Images_pr_Page)
else
Last_Image = (First_Image + Last_Image)
End if
%>
<table width="100%">
<%
dim Count_Image_Prints, td_width
Count_Image_Prints = 0
dim I
For I = (First_Image-1) to (Last_Image-1)
Count_Image_Prints = Count_Image_Prints + 1
If int(Count_Image_Prints) = int("1") then
response.write "<tr>"
end if
Pcount=Pcount+1
strSQL = "select * from PICcomments WHERE file='"& image_directory &"/BIG/"& Image_Array(I) &"'"
set rs = Conn.execute(strSQL)
if rs.EOF then
COMmes = "<br><br>"
else
COMmes = "<br><font face=""Arial"" size=""4"" color=""#ff0000"">*</font>"
end if
tdW = "" & formatnumber(100/lpics, 0, 0) & ""
if tdW*lpics > 100 then
tdW = tdW-1
end if
if NOT lpics*tdW = 100 then
Htd = "<td width=""" & 100-(lpics*tdW) & "%""></td>"
end if
%>
<td width="<%="" & tdW & ""%>%">
<p align="center">
<a href="../redirPIC.asp?title=<%="" & pictitle &""%>&dir=http://www.fdfvodskov.dk/FDF/pics/&file=<%=""& image_directory &"/BIG/"& Image_Array(I) &""%>&folder=<%="" & folder & ""%>&dato=<%="" & Request.Querystring("dato") & ""%>&download=<%="" & download & ""%>&screensaver=<%="" & Request.QueryString("screensaver") & ""%>&count=<%="" & Request.QueryString("count") & ""%>&pictitle=<%="" & pictitle & ""%>&page=<%="" & Request.QueryString("page") & ""%>" style="text-decoration: none" target="main" onMouseover="document.getElementById('PIC<%="" & Pcount & ""%>').style.border='1px solid #FF0000'; window.status='Åbn billedet som hedder "<%="" & Image_Array(I) & ""%>", fra <%="" & pictitle & ""%>...'; return true;" onMouseout="document.getElementById('PIC<%="" & Pcount & ""%>').style.border='1px solid #FFFFFF'; window.status=' ';">
<img id="PIC<%="" & Pcount & ""%>" src="<%=""& image_directory &"/"& Image_Array(I) &""%>" alt="Åbn billedet som hedder "<%="" & Image_Array(I) & ""%>", fra <%="" & pictitle & ""%>" border="0" style="margin-top: 0; margin-bottom: 0; border: 1px solid #FFFFFF;">
<%="" & COMmes & ""%>
</a>
</p>
</td>
<%
If int(Count_Image_Prints) = int(Images_Horizontal) then
%>
<%="" & Htd & ""%></tr>
<%
Count_Image_Prints = 0
end if
Next
%>
</tr><tr></table>
<%
if Total_Pages="1" then
%>
</td></tr></table>
<%else%>
<p align="center">
<%
For I = 1 to Total_Pages
If Cint(Current_Page) < Cint(I) then
%>
<a href="<%="" & Page_Name & ""%>?page=<%="" & I & ""%>&title=<%="" & title & ""%>&folder=<%="" & folder & ""%>&pictitle=<%="" & pictitle & ""%>&slide=<%="" & slide & ""%>&download=<%="" & download & ""%>&count=<%="" & Request.QueryString("count") & ""%>&dato=<%="" & Request.QueryString("dato") & ""%>&screensaver=<%="" & Request.QueryString("screensaver") & ""%>" style="text-decoration: none" title="Se side "<%="" & I & ""%>" i dette billedgalleri" onMouseover="document.getElementById('PAGE<%="" & I & ""%>').style.color='ff0000'; window.status='Se side "<%="" & I & ""%>" i dette billedgalleri...'; return true;" onMouseout="document.getElementById('PAGE<%="" & I & ""%>').style.color='000000'; window.status=' ';">
<font id="PAGE<%="" & I & ""%>" face="Arial" size="3" color="#000000">
<b>
>>
</b>
</font>
</a>
<% ElseIf Cint(Current_Page) > Cint(I) then%>
<a href="<%="" & Page_Name & ""%>?page=<%="" & I & ""%>&title=<%="" & title & ""%>&folder=<%="" & folder & ""%>&pictitle=<%="" & pictitle & ""%>&slide=<%="" & slide & ""%>&download=<%="" & download & ""%>&count=<%="" & Request.QueryString("count") & ""%>&dato=<%="" & Request.QueryString("dato") & ""%>&screensaver=<%="" & Request.QueryString("screensaver") & ""%>" style="text-decoration: none" title="Se side "<%="" & I & ""%>" i dette billedgalleri" onMouseover="document.getElementById('PAGE<%="" & I & ""%>').style.color='ff0000'; window.status='Se side "<%="" & I & ""%>" i dette billedgalleri...'; return true;" onMouseout="document.getElementById('PAGE<%="" & I & ""%>').style.color='000000'; window.status=' ';">
<font id="PAGE<%="" & I & ""%>" face="Arial" size="3" color="#000000">
<b>
<<
</b>
</font>
</a>
<% ElseIf Cint(Current_Page) = Cint(I) then%>
<a title="Aktuel side i dette billedgalleri" onMouseover="window.status='Aktuel side i dette billedgalleri...'; return true;" onMouseout="window.status=' ';" style="text-decoration: none">
<font face="Arial" size="4" color="808080">
<b>(</b></font><font face="Arial" size="2" color="#ff0000"><%="" & I & ""%></font><font face="Arial" size="4" color="#808080"><b>)</b>
</font>
</a>
<%
end if
Next
end if
%>
</p>
<%
RCount = "Her vises " & Pcount & " ud af " & count_image & " billeder fra " & title & ", brug pilene ovenfor for at se næste side! "
if Pcount = count_image then
RCount = ""
end if
Conn.Close
Set Conn = Nothing
%>
