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

zaydn Nybegynder

28. november 2005 - 20:31 Der er 1 kommentar og
1 løsning

Simpelt slideshow.

Hej!

Jeg leder efter noget kode der kan lave et simpelt slideshow. Slideshowet skal IKKE skiftede billederne selv, det skal ske ved at den besøgende klikker på en "næste"/"forrige" knap. Billederne skal hentes fra en Access database. Koden skal være asp eller noget der kan integreres i det.

Er der nogle hajer der kan fremskaffe/lave det?!? :o)

På forhånd tak!

Synes godt om

eagleeye Praktikant

28. november 2005 - 20:59 #1

Ja her er et lille script til det. Det kræver en tabel som hedder billedetabel og har disse kolonner:
id : autonummer
kategori : tal 'id på den kategori billedet tilhøre
billedeSti : tekst 'sti til billedet.

Koden er og kan kan ligge i en .asp som evt kan hedde vis.asp. Filen åbnes så med et id samt et kategoriid:
vis.asp?id=45&katid=1

<html><head></head><body><center>
<%
id = request.querystring("id")
katid = request.querystring("katid")

if id = "" or katid = "" then
response.write "Der manger billeder indformation"
response.end
end if

Set conn = server.createobject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("billeddb.mdb")

sql = "SELECT ID FROM billedetabel WHERE kategori = " & katID & " AND ID > " & id
set rs = conn.execute (sql)
if rs.EOF then
nextID = ""
else
nextID = rs("id")
end if
sql = "SELECT ID FROM billedetabel WHERE kategori = " & katID & " AND ID < " & id & " ORDER BY ID DESC"
set rs = conn.execute (sql)
if rs.EOF then
prevID = ""
else
prevID = rs("id")
end if
sql = "SELECT billedeSti FROM billedetabel WHERE kategori = " & katID & " AND ID = " & id
set rs = conn.execute (sql)
if not rs.EOF then
'DIN KODE SOM VISER BILLEDET
Response.Write "<img src=""" & rs("billedeSti") & """>"

end if
if prevID = "" then
Response.write "Forrige"
else
Response.write "<a href=""?id="&prevID&"&katid="&katid&""">Forrige</a>"
end if
Response.write " | "
if nextID = "" then
Response.write "Næste"
else
Response.write "<a href=""?id="&nextID&"&katid="&katid&""">Næste</a>"
end if

conn.Close
Set Conn=Nothing
%>
</center></body></html>

Synes godt om

zaydn Nybegynder

28. november 2005 - 21:26 #2

Du er da for G E N I A L... Jeg vil også kunne det der... :o)

TAKKER OG BUKKER!

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