03. oktober 2002 - 14:26Der er
11 kommentarer og 1 løsning
Count !!
Jeg vil gerne have at når man trykker på et link jeg har at den så laver en count på det i en db.
sådan her ser filen ud.
<% mode=request("mode") '--- Counteren --- if mode="counter" then
'--- Forbindelse til databasen Set conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("download.mdb")
'--- Sql sætning sql = "select * from download where id = " & Request.QueryString("id") & ""
'--- Hvis cookien ikke findes tæller den 1 op rs.Update rs("counter") = rs("counter") + 1 rs.Update
'--- Sender brugeren videre til url´en response.redirect rs("url")
'--- Forsiden --- end if %>
men nu vil jeg også gerne have at den tæller op i en db under brugerne sådan at de får 1 point hver gang de henter en fil . Hvordan gør jeg sådan at den tæller op i en anden db end den der er brugt nu ( lad os sige den hedder users.mdb)
De fleste virksomheder har efterhånden bevist, at AI virker.
Pilotprojekter leverer resultater. Medarbejdere bruger generative AI-værktøjer. Nye use cases dukker op på tværs af organisationen.
<% mode=request("mode") '--- Counteren --- if mode="counter" then
'--- Forbindelse til databasen1 Set conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("brugere.mdb")
'--- Sql sætning sql =UPDATE brugere SET point = point + 10 where id = " & Request.QueryString("id") conn.Execute(sql) conn.close() set conn = nothing
'--- Forbindelse til databasen2 Set conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("download.mdb")
'--- Sql sætning sql = "select * from download where id = " & Request.QueryString("id") & ""
<% mode=request("mode") '--- Counteren --- if mode="counter" then
'--- Forbindelse til databasen1 Set conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("brugere.mdb")
'--- Sql sætning sql =UPDATE brugere SET points = points + 10 where id = " & Request.QueryString("id")"" conn.Execute(sql) conn.close() set conn = nothing
'--- Forbindelse til databasen2 Set conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("download.mdb")
'--- Sql sætning sql = "select * from download where id = " & Request.QueryString("id") & ""
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.
