Søg
Avatar billede babyworm Nybegynder
10. marts 2005 - 08:38 Der er 4 kommentarer og
1 løsning

Bannerfunktion i ASP

Hej eksperter..

Jeg skal bruge et random bannersystem.

Jeg har dog et problem: Det skal være ligegyldigt om det er .gif, .jpg eller flash..

Jeg har lavet min base sådan her:

Banner_top:
id - idet på banneret
name - Bare et beskrivelsesnavn
file - Er linket til filen
width - bredden
height - højden
flash (ja/nej) som man kan vælge hvis det er flash
href - linket til hvor den skal hen når man trykker


Min ide var at den skulle vælge et random banner ud, og undersøge om det var flash eller ej.. hvis det ikke er skal den self bare lave et <a href="<%=rs("href")%>"><img src="banner/<%=rs("file")%>" width="<%=rs("width"%>" height="<%=rs("height")%>" border="" alt=""></a>

men hvis det er flash, skal den udskrive flashkoden med link osv..

en der kan hjælpe ?
Avatar billede fennec Nybegynder
10. marts 2005 - 09:52 #1
Hvilken database bruger du??
Avatar billede babyworm Nybegynder
10. marts 2005 - 09:54 #2
MS Access base :)
Avatar billede fennec Nybegynder
10. marts 2005 - 10:22 #3
Dette er ikke testet:

set rs = Server.CreateObject("ADODB.RecordSet")
SQLStr = "select * from BannerTabel"
rs.Open SQLStr, Conn, 1
randomize
temp = int(rnd() * rs.RecordCount)+1
rs.Move(temp)
if rs(flash) = "ja" then
  'Udskriv flash
else
  'udskriv link
end if
Avatar billede babyworm Nybegynder
10. marts 2005 - 21:26 #4
Det virker ikke..

Har skrevet den lidt om, og så udskriver den bare den ene post hele tiden.. laver ikke random...


<%
Set connection = Server.CreateObject ("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("banner.mdb")

Function openConn()
    connection.Open DSN
End Function

Function closeConn()
    connection.Close
End Function
%>
<%

openConn()
strSQL = "SELECT * FROM banner_top"
Set rs = connection.Execute(strSQL)

randomize

temp = int(rnd() * rs.RecordCount)+1
rs.Move(temp)
if rs("flash") = True then
%>
  Udskriv flash
<%
else
%>
  udskriv link<%=rs("name")%>
<%
end if

%>
Avatar billede babyworm Nybegynder
11. marts 2005 - 15:05 #5
Nå.. har fundet anden løsning.. tog RND i SQL Af tiden ... .:D
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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
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
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
25/0713:55 Ukendt sender e-mails fra - og til min e-mail adresse Af mort1 i Andet sikkerhed
24/0711:08 Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel
23/0715:10 WINDOWS KOMPABILITET Af snestrup2000 i Windows
22/0720:19 DVB T2 tuner med optagefunktion Af ErikHg i Andet hardware
20/0716:00 Fildeling mellem 2 windows 11 systemer Af knudg i Windows
White papers
Flere white papers »