Hej
Ja, okay jeg skal prøve at udpensle det lidt mere:
Jeg har nogle billedgallerier som fungerer på den som et ASP-script. Jeg skal bare skrive i scriptet hvilken mappe billederne ligger i, så finder den selv billederne og laver dem til miniaturebilleder. Her definerer hvad der skal ske hvis man klikker på billederne. Som det er nu linker miniaturebillederne bare til selve billed filen. Eks:
http://adresse/billed1.jpgKan man ikke lave det sådan at miniaturebillederne automatisk linker til en side hvor billedet også bliver vist? Eventuelt ved hjælp af en "QuerryString"? Sådan at alle miniaturebillederne linker til samme ASP-fil, men at det er forskelligt hvilke billed der er på siden, alt efter hvilket miniaturebillede man har klikket på.
Et eksempel på et billedgalleri kunne være:
<%
dim image_directory, image_height, image_width, Images_pr_Page, Images_Horizontal
image_directory = "KSL04"
image_height = "65"
image_width = "85"
Images_pr_Page = "16"
Images_Horizontal = "4"
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
response.write "<table style=""width:100%;"">" & vbCrLf
dim Count_Image_Prints, td_width
Count_Image_Prints = 0
td_width = int(100 / Images_Horizontal)
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>" & vbCrLf
end if
response.write "<td style=""width:"& td_width &"%;text-align:center;"">" &_
"<a href="""& image_directory &"/BIG/"& Image_Array(I) &""" target=""main"" onMouseover=""window.status='Åbn dette billede...'; return true;"" onMouseout=""window.status=' ';"">" &_
"<img src="""& image_directory &"/"& Image_Array(I) &""" border=""0"" style=""border: 1px dotted #C0C0C0"">" &_
"</a>" &_
"</td>" & vbCrLf
If int(Count_Image_Prints) = int(Images_Horizontal) then
response.write "</tr>" & vbCrLf
Count_Image_Prints = 0
end if
Next
response.write "</tr>" & vbCrLf &_
"<tr>" & vbCrLf &_
"<td colspan="""& Images_Horizontal &""" style=""width:100%;text-align:center;"">" & vbCrLf
For I = 1 to Total_Pages
If NOT Cint(Current_Page) = Cint(I) then
response.write " <a href="""& Page_Name &"?page="& I &""" onMouseover=""window.status='Se flere billeder...'; return true;"" onMouseout=""window.status=' ';"">" &_
I &_
"</a> "
else
response.write " ["& I &"] "
end if
Next
response.write "</td>" & vbCrLf &_
"</tr>" & vbCrLf &_
"</table>" & vbCrLf
%>
Her linker miniaturebillederne direkte til billedet. Kan man ikke lave det sådan at man linker til en side hvor billedet bliver vist?
Hilsen
Dan
