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

elkrog Nybegynder

17. oktober 2001 - 21:02 Der er 17 kommentarer og
1 løsning

Tæl antal klik.

Hej Eksperter

Hvordan får jeg følgende kode til at tælle antal klik på linket der genereres?

<%@ Language=VBScript %>

<%
set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"database.mdb\")
set rs = Server.CreateObject(\"ADODB.Recordset\")

strRS = \"SELECT * from Test\"

rs.Open strRS, Conn, 1, 3

randomize
linie = int(rs.RecordCount * rnd)

rs.MoveFirst
rs.Move(linie)

rs(\"Vist\") = rs(\"Vist\") + 1
rs.Update

Response.Write \"<a href=\'\" & rs(\"Url\") & \"\'><img src=\'\" & rs(\"Billede\") & \"\' border=\'0\'></a>\" & vbCrLf

rs.Close
set rs = nothing

Conn.Close
set Conn = nothing
%>

Synes godt om

j.robert Nybegynder

17. oktober 2001 - 21:26 #1

Jeg tror dette link kan hjælpe dig:
http://www.activeserverpages.dk/aspdigital/studies/clickcount.asp

Synes godt om

elkrog Nybegynder

26. oktober 2001 - 15:08 #2

Nææh, desværre ikke.

Synes godt om

j.robert Nybegynder

27. oktober 2001 - 01:47 #3

Jeg går udfra det skulle være ligesom, det jeg har lavet hér:
http://www.digitalweb.dk/links.asp

Synes godt om

elkrog Nybegynder

27. oktober 2001 - 09:59 #4

Måske, men url\'en virker ikke

Synes godt om

j.robert Nybegynder

27. oktober 2001 - 23:15 #5

Næ, jeg har lukket det ned igen, da du havde lukket spørgsmålet.

Synes godt om

elkrog Nybegynder

27. oktober 2001 - 23:41 #6

Nå ja, hvis jeg kan bruge det er der selvfølgelig points til dig,
det finder vi nok ud af :o)

Synes godt om

j.robert Nybegynder

27. oktober 2001 - 23:45 #7

Den er åben.

Synes godt om

j.robert Nybegynder

27. oktober 2001 - 23:46 #8

Tekst kan laves om til et billede i stedet.

Synes godt om

elkrog Nybegynder

27. oktober 2001 - 23:53 #9

Et øjeblik, kigger lige på det.

Synes godt om

elkrog Nybegynder

27. oktober 2001 - 23:56 #10

Det peger på en ID og laver en redirect til url\'en, er det korrekt antaget?

Synes godt om

j.robert Nybegynder

28. oktober 2001 - 00:06 #11

Yep.

Synes godt om

elkrog Nybegynder

28. oktober 2001 - 00:09 #12

Det kan jeg nok desværre ikke bruge.

Det jeg mangler er et system som henter en url fra db, og som tæller visninger og klik.

Denne her tæller visninger, men desværre ikke klik.
Kan det mon flettes ind på en eller anden måde?

<%
set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"banner.mdb\")
%>
<HTML>
<HEAD>

</HEAD>
<BODY>

<%
set rs = Server.CreateObject(\"ADODB.Recordset\")

strRS = \"SELECT * from Banner\"

rs.Open strRS, Conn, 1, 3

randomize
linie = int(rs.RecordCount * rnd)

rs.MoveFirst
rs.Move(linie)

rs(\"Shown\") = rs(\"Shown\") + 1

rs.Update

Response.Write \"\" & rs(\"url\") & \"\"
Response.Write \"<br>\"
Response.Write \"Vist \" & rs(\"Shown\") & \" gang(e).<br>\"

%>

</BODY>
</HTML>

Synes godt om

j.robert Nybegynder

28. oktober 2001 - 00:15 #13

Det er jo, det jeg har lavet.
Url\'en ligger i databasen.

Jeg bliver nød til at lave en redirect, da jeg lige skal ind på siden igen for at gemme klikket i DB, hvorefter der redirectes.

Synes godt om

j.robert Nybegynder

28. oktober 2001 - 00:17 #14

Kort fortalt(i alm. sprog):

If klik=Id then
Gem klik i db
Update
Redirect
else
Vis random URL+klik fra DB
End if

Synes godt om

elkrog Nybegynder

28. oktober 2001 - 00:20 #15

Mit problem er at jeg ikke kan bruge en redirect (da jeg skal bruge det sammen med javascript)
Så det går desværre ikke.

Synes godt om

j.robert Nybegynder

28. oktober 2001 - 00:24 #16

Det har du jo ikke skevet noget om.
- Rart at vide!

Response.Redirect RS(\"Url\")
=>
strUrl=RS(\"Url\")

Synes godt om

j.robert Nybegynder

28. oktober 2001 - 00:24 #17

Over & Out

Synes godt om

actionman Nybegynder

16. februar 2002 - 18:34 #18

ok...jeg har først lige set det her nu...men jkeg kunne godt tænke mig at vide hvordan man kan gøre det samme som han vil have...MEN kunn med Javascript? Altså en "counter" der tæller hvor mange gange der er blevet kilkket på et link!?

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

26/07

Test: Endelig kan man få en soundbar der lyder godt - og som ikke behøver nogen klodset subwoofer

26/07

Analyse: ”Det største it-nedbrud i historien” viser hvor sårbare dine it-løsninger er - og det vil ske igen

26/07

Nørgaard: Jeg har jo sagt det gang på gang på gang! VMS er det bedste styresystem EVER! Men lytter folk?! Nej, nej og atter nej!

26/07

Kæmpeleverandør til Pentagon hacket: Interne undersøgelser lækket

26/07

Stor aftale gør Microsofts datacentre hurtigere - investerer i netværksudstyr

26/07

Nordjyske MapsPeople ruster op til opkøb af konkurrenter: "Vi vil vinde det her kapløb"

26/07

Mød den unge version af den mest elskede seriemorder nogensinde

26/07

AMD opdager cpu-fejl i 11. time: Storstilet lancering udskydes

26/07

Microsoft tager til genmæle: Vores licenspraksis skaber ikke unfair konkurrence

26/07

Med SearchGPT har verden fået en spritny søgemaskine: Kan den true Googles dominans?

26/07

Færre unge studerende på landets it-uddannelser: "Vi afviser dem der, hvor de har lyst til at læse"

Vis flere artikler

IT-JOB

Udviklings- og Forenklingsstyrelsen

Jurister med interesse for forvaltningsret og aktindsigt - fuldtid el. deltid (25-30 timer)

TD SYNNEX Denmark ApS

Nordic Solution Advisor for VMware or/and Veeam

Gyldendal A/S

Erfaren CRM application manager med kompetencer i Power Apps søges

Itm8

Infrastrukturkonsulent

Region Midtjylland

Leder til Applikationer i Digitalisering og It

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

44 min siden	Windows 10 : Ikke kopiere tekst med Firefox. Men gerne med Opera. Af Ikke-ekspert i Browsere
I går 18:09	Kan ikke fildele fra PC til PC Af gertLundberg i LAN/WAN
I går 17:33	Facebook kopier en tråd Af clausito i Sociale medier
I går 09:49	Indtogs sejlads : OL i Paris : Hvornår kom Danmark ? Af Ikke-ekspert i Fri debat
I går 03:28	Inkasso som privat? Af lekor adams i Fri debat