Billedegalleri som tager alle billeder i ét bibliotek

Photoshop kan lave dette med 3 klik med musen, deter bare ikke dynamisk

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder("c:\sti\til\mappe\")
For Each File In Folder
    Response.Write "<a href='" & File.Name & "' target='_blank'><img src='" & File.Name & "' style='width:100px; height:75px;'></a>"
Next
Set Folder = Nothing
Set FSO = Nothing


Men BEMÆRK at filstørrelsen ikke bliver mindre, fordi billedernes fysiske størrelse mindskes. Derfor bør du både have en mappe med thumbnails og en med de oprindelige (i fuld format).

det skal være dynamisk. jeg laver siden til en række mennesker der bare skal kunne gå ind og uploade deres egne billeder. de smides i et bibliotek og skal bare vises allesammen.

men skal jeg så ikke uploade 2 versioner af samme billede ?

Jo - i hver sin størrelse.

prøv at se om du kan bruge den
-----------------------------------
<table>
<tr>
    <td width="790" height="422" bgcolor="" valign="top">
        <!--script-->
        <%
'------------------------------------------------
'henter info om siden
'------------------------------------------------
page = trim(Request.QueryString("page"))
start = trim(Request.QueryString("start"))

'------------------------------------------------
'Åbner Filsystem
'------------------------------------------------
strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath(strPathInfo)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files

'------------------------------------------------
'grund variabler
'------------------------------------------------
row_count = 0
row = 1
max_row = 3
count = 1
If NOT start <> "" then
Start = 1
End If
%>

<p align=center>

<%
'------------------------------------------------
'Info variabler
'------------------------------------------------

info_page = 0
info_page_count = 0
info_Count = 0

'------------------------------------------------
'Info Script, udregner og udskriver info til siden
'------------------------------------------------
If page <> "" then
response.write "Side <a href='index.asp'>1</a> "
else
Response.write "Side 1 "
End If

For Each objFileItem in objFolderContents
info_Count = info_Count + 1
info_page = info_page + 1
if info_page = 9 then
info_page_count = info_page_count + 1
info_page = 0
End If
If info_page = 0 then
If trim(info_page_count + 1) = trim(page) then
response.write info_page_count + 1 & " "
Else
response.write "<a href='index.asp?start=" & info_count & "&page=" & info_page_count + 1 & "'>" & info_page_count + 1 & "<a> "
End If
End If
Next
Response.write "<br>Der er i alt <b>" & (info_Count) & "</b> billeder"

if (info_page_count) * 9 = info_count then

Response.write " <b>" & (info_page_count) & "</b> Sider<br>"

// Else
// Response.write " <b>" & (info_page_count) + 1 & "</b>Sider<br>"

End If
%>
<div align="center">
<table border="0" cellspacing="2" cellpadding="2">
  <tr>

<%
For Each objFileItem in objFolderContents

If objFileItem.Name = "index.asp" then
Else
 
  If CLng(count) < CLng(start) then
  count = count + 1
  Else

  If CLng(row) => CLng(max_row) And row_count = 3 then
  Else
 
 
 
 
  If row_count > 2 then
    response.write "<tr>"
    row_count = 0
    row = row + 1
  End If

 
  Response.write " <td><a href='"
  Response.Write(objFileItem.Name)
  Response.write "'><img border=0 src='" & (objFileItem.Name) & "' alt='" & (objFileItem.Name) & "' width=200 height=150></a>"
  row_count = row_count + 1   
  count = count + 1
End If
End If
End If
Next
%>

dur denne ikke:
Set Folder = FSO.GetFolder("http://www.fzy.dk/images/")

Nej

Det skal være den fysiske placering på serveren.

[drevbogstav]:\mappe1\mappe2\

musti776
jeg kan ikke lige se hvordan jeg skal implementere det

indsætter koden i en index.asp og ligger den i en mappe hvor du også ligger alle dine billeder, så skulle den meget gerne gøre resten selv...

sådan her: d:\home\fzydk\www\gutterne\images

Lige præcis.

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method

/gutterne/index.asp, line 37

linie 37:
        For Each File In Folder

Undskyld.

For Each File In Folder.Files

har du nogen ide om hvorfor billederne ikke vises:
http://www.fzy.dk/gutterne/index.asp
(linket til de store billeder er rigtig...)

Ja, fordi du ikke har indsat resten af stien.

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder("c:\sti\til\mappe\")
For Each File In Folder.Files
    Response.Write "<a href='/images/" & File.Name & "' target='_blank'><img src='/images/" & File.Name & "' style='width:100px; height:75px;'></a>"
Next
Set Folder = Nothing
Set FSO = Nothing

er det ikke muligt at smide dem ind i noget design så de holder sig indenfor mit øvrige design. så jeg eks kan sige - 6 billeder per række med 2 pixels imellem dem og så bare repeat rækkerne indtil der ikke er flere billeder ?

Jo...

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder("d:\home\fzydk\www\gutterne\images")
Count = 0
For Each File In Folder.Files
    Response.Write "<a href='/images/" & File.Name & "' target='_blank'><img src='/images/" & File.Name & "' style='width:100px; height:75px; margin:2px 2px 2px 2px;'></a>"
    Count = Count + 1
    If Count Mod 6 = 0 Then Response.Write "<br>"
Next
Set Folder = Nothing
Set FSO = Nothing

u the man!!!
thanks netro ;)
du fortjener fuldt dine siXty points

Godt du kunne bruge det :-)