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
Kurser inden for grundlæggende programmering

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