Søg
Avatar billede 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!
Avatar billede 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>
Avatar billede 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!
Avatar billede 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.

Loading billede Opret Preview
Kategori
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
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
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
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 17:28 Tekst format i Kodevinduet Af per2edb i Access
I går 16:55 Et pludselig opstået ikon på skrivebordet Af ErikHg i Windows
I går 10:32 Asus R565 legetøj Af Svend_J i PC
01/1118:59 Ang fifa 26 til Ps5 Af made18 i Andet software
01/1117:01 Kom til at tilslutte nogle 3.5 disk med et forkert Sata kabel fra en anden PSU Af Thomas B i Andet hardware
White papers
Flere white papers »