CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

Wezio Juniormester

01. oktober 2002 - 15:39 Der er 12 kommentarer og
2 løsninger

Billed-galleri

Jeg står og savner et "billede-galleri" til min hjemmeside... kan man ikke få et ASP-script, man sætter ind på den side hvor billed-galleriet skal være, så "kiggger" scriptet selv mappen igennem for billeder og ligger dem ud på siden som "thumbnails", hvor man så kan klikke på den enkelte thumbnail, hvor efter billedet åbner op i fuld størelse i et nyt vindue :))

Håber jeg fik formuleret mig ordentligt :D

På forhånd 1000 tak!

Synes godt om

luzk Nybegynder

01. oktober 2002 - 15:44 #1

Du kan bruge FileObject til at kigge i mapperne. Herefter kan du kigge på hvilken extencion (filtype) det er, og hvis det er en billedfil viser du filen i et IMG tag...

Synes godt om

no_doubt Nybegynder

01. oktober 2002 - 15:46 #2

2 sek

Synes godt om

Wezio Juniormester

01. oktober 2002 - 15:47 #3

Grunden til det høje point antal, er at jeg gerne (hvis det var muligt) ville have scriptet der kan klare det :) Om det er selv-lavet eller downloaet fra en sourcecode sektion på nettet, er lige meget, bare det virker som det skal :))

Synes godt om

no_doubt Nybegynder

01. oktober 2002 - 15:49 #4

<%Response.Buffer = True%>
<%
if Request.QueryString("billede") = "" then
%>
<%
start = request.querystring("start")
if start = "" then start = 0

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath("./mappen/"))

Set fc = f.Files
For Each billed in fc
arrayBuild = arrayBuild & billed.name & "|"
next
arrayBuild = left(arrayBuild, (len(arrayBuild) - 1))

myArray = Split(arrayBuild, "|")

Antalsider = int(ubound(myarray) / 12)
antal = 0
for i = start to (start + 11)
if not i > ubound(myarray) then
if antal = 0 then Response.Write "<TR>"
%>
<%' Hvis den skal åbne i samme vindue som resten slette du bare: target="_blank" %>
<html>

<head>
<title></title>
</head>

<body>

<table>
<tr>
<td width="33%"><p align="center"><a
href="23082002.asp?billede=./mappe/<%=myArray(i)%>"><img SRC="mappe/<%=myArray(i)%>"
<WIDTH="116" HEIGHT="82" style="border: 1px solid rgb(0,0,0)"> </a></td>
<%
else
nesteside = 1
end if

antal = antal + 1
if antal = 3 then
Response.Write "</TR>"
antal = 0
end if
next
%>
</tr>
</table>

<p align="center"><%
if start <> 0 then
response.write "<a href=""sinside.asp?start=" & (start - 12) & """>Forrige</a>"
end if
response.write(" ")
if nesteside <> 1 then
response.write "<a href=""dinside.asp?start=" & (start + 12) & """>Næste</a>"
end if

else
'Vis billedet
%> <img SRC="<%=Request.QueryString("billede")%>" border="1"> </p>

<p align="center"><a href="java script:history.back();">Tilbage</a></p>

<p>  <% end if %> </p>
</body>
</html>

Synes godt om

luzk Nybegynder

01. oktober 2002 - 15:52 #5

Ved det - derfor jeg også kun gav en kommentar og ikke et svar :o) Ville bare give dig en metode til det hvis der ikke kom nogle svar foreløbigt du kunne benytte :o)

Synes godt om

Wezio Juniormester

01. oktober 2002 - 15:55 #6

no_doubt>>> kan ikke få det til at virke? Kan du evt. hjælpe mig med at rette det til?

Stien til den mappe på serveren hvor billederne er placeret og hvor siden med thumnails-scriptet skal være er: D:\www\website1\billeder

Synes godt om

Wezio Juniormester

01. oktober 2002 - 15:55 #7

luzk>>> Det er helt okay :))

Synes godt om

no_doubt Nybegynder

01. oktober 2002 - 15:58 #8

denne her laver ikke tumbnails men ned fotografere det oprindelige

send din side

Synes godt om

Wezio Juniormester

01. oktober 2002 - 15:59 #9

Lige meget... =)

Fandt et på Netcoders.dk der kan :)

<head>
<title>Galleri 1.0 - Koldy 2001</title>
</head>

<body bgcolor="#C0C0C0">

<h3 align="center">Galleri 1.0</h3>
<hr>

<%
'------------------------------------------------
'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 ialt <b>" & (info_Count) & "</b> billeder"
if (info_page_count) * 9 = info_count then
Response.write " på <b>" & (info_page_count) & "</b> sider<br>"
Else
Response.write " på <b>" & (info_page_count) + 1 & "</b> sider<br>"
End If
%>
<div align="center">
<table border="0" cellspacing="3" cellpadding="3">
<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=239 height=180></a>"
row_count = row_count + 1
count = count + 1
End If
End If
End If
Next
%>

</td>
</tr>
</table>

Synes godt om

Wezio Juniormester

01. oktober 2002 - 16:00 #10

no_doubt>> Point skal du ikke snydes for, hvor mange skal du ha´?

Synes godt om

no_doubt Nybegynder

01. oktober 2002 - 16:01 #11

vi kan dele

Synes godt om

Wezio Juniormester

01. oktober 2002 - 16:04 #12

Oki...

Synes godt om

Wezio Juniormester

01. oktober 2002 - 16:04 #13

Synes godt om

dlf Nybegynder

09. december 2002 - 22:17 #14

Er der nogen som kan hjælpe mig med et foto galleri - jeg har et php nuke baseret cms system i forvejen . Nogen forslag og er der nogen som kan installeret noget på mit webhotel for mig ?

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP	10	15/10/202313:12	18/10/202308:48

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS

13/09

Guide: Sådan wiper du dine harddrev og andre medier, så ingen kan læse dem – nogensinde

13/09

OpenAI klar med længe ventet ny AI: Den splinternye 'o1' kan løse komplekse opgaver af hidtil uset karakter

13/09

Sådan får hackerne med ny fidus adgang til dit system for kun 10 dollar: Næsten umuligt at beskytte sig

13/09

Nørgaard: Det her er altså ikke en særlig god situation at være i

13/09

Mastercard brager ind på sikkerhedsområdet med milliardkøb af kæmpe efterretningsvirksomhed

13/09

Kommunernes it-forbrug stiger: Sådan har Odense Kommune holdt sine udgifter til it-licenser og it-konsulenter nede

13/09

Microsoft har holdt akut sikkerhedstopmøde efter globalt Crowdstrike-nedbrud: Her er de vigtigste pointer

13/09

Tidligere Cibicom-topchef Michael Meister har landet nyt job: Skal være administrerende direktør

13/09

Gå efteråret i møde med et nyt job: Vi har udvalgt 10 ledige it-stillinger til dig

13/09

Styrelse kom med tastefejl til at lægge tre år for meget på it-kontrakt til 350 millioner kroner

13/09

AI skaber nye fortællinger om historiske kvindelige kunstnere

Vis flere artikler

IT-JOB

Capgemini Danmark A/S

Salesforce CTO - Nordics

TV2

Configuration Specialist til drift af blandt andet programplanlægningssystemer

Udviklings- og Forenklingsstyrelsen

Kontorchef til analyse af fremtidens moderniseringsstrategi

Metro Service A/S

Risk & Cyber Security Expert

Sentia Denmark A/S

Service Delivery Manager

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 21:29	Tastatur stopper med at virke et par sekunder, for så at virke igen Af Thor i PC
I dag 18:24	Xopslag der retunerer mindste værdi, dog ikke "nul" Af Tom K. i Excel
I dag 16:06	Opgavestyring Af ingeman i JavaScript
I går 13:35	NVIDIA Sheild Pro Af FCK i Musik & videoafspillere
I går 13:01	Undgå matriksformel? Af Dan Elgaard i Excel