07. februar 2002 - 11:36Der er
15 kommentarer og 1 løsning
counter i database
øhhh Jeg har et asp-dokument med en masse links på, som er links til andre sider på nettet.....Kan det så godt lade sig at lave en tæller, sådan at jeg kan se hvilke der bliver trykket på flest gange.....?? Altså via en kolonne i min database... http://www.dlaursen.dk/bilfreaks
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Du kan lade linksne kalde en asp-side med et ID-nr. Den kaldte asp-side vil så lægge een til ID'et i databasen og derefter redirecte dig til den nye side.
et forslag kunne være: lav en tabel som du lægger alle dine links i -> tbl_links(id, href, name). Deri putter du de links du har på din side og så selecter du dem fra tabellen når de vises på aspsiden -! Dernæst laver du en tabel mere tbl_links_klik (id, links_id). Hver gang der klikkes på et link laver du en insert som smider id'en fra linket ned i tbl_links_klik. Dernæst kan du lave et script som giver dig statistik over antal ganeg der er klikket på link X!
<% ' Lad os sige du har en database med navnet DB.mdb ' Og en tabel (Tbl_Hits) med følgende felter : ' ID,Hits,Websted ' ID = IDnummeret ' Hits = Antal hits ' Websted = Webadressen til det nye sted
IDnr=Request.QueryString("ID") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Sti/til/DB.mdb") SQLStr="SELECT * FROM Tbl_Hits WHERE ID=" & IDnr Set Rs=Conn.Execute(SQLStr) If Rs.BOF OR Rs.EOF then ' Hvis den ikke finde skal dette udføres Else ' Ellers dette SQLStr="UPDATE Tbl_Hits SET " SQLStr=SQLStr & "Hits=" & Rs("Hits")+1 SQLStr=SQLStr & " WHERE ID=" & IDnr End If Set Rs=Conn.Execute(SQLStr) Response.Redirect(Rs("Websted")) Conn.Close %>
<% ' Lad os sige du har en database med navnet biler.mdb ' Og en tabel (websteder) med følgende felter : ' ID,counter,url ' ID = IDnummeret ' counter = Antal hits ' url = Webadressen til det nye sted
IDnr=Request.QueryString("ID") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("biler.mdb") SQLStr="SELECT * FROM websteder WHERE ID=" & IDnr Set Rs=Conn.Execute(SQLStr) If Rs.BOF OR Rs.EOF then ' Hvis den ikke finde skal dette udføres Else ' Ellers dette SQLStr="UPDATE websteder SET " SQLStr=SQLStr & " counter = counter+1 " SQLStr=SQLStr & " WHERE ID=" & IDnr End If Set Rs=Conn.Execute(SQLStr) Response.Redirect(Rs("url")) (DETTE ER LINIE 23) Conn.Close %>
Else ' Ellers dette NytSted=Rs("url") SQLStr="UPDATE websteder SET " SQLStr=SQLStr & " counter = counter+1 " SQLStr=SQLStr & " WHERE ID=" & IDnr End If Set Rs=Conn.Execute(SQLStr) Response.Redirect(NytSted)
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.