Søg
Avatar billede Slettet bruger
07. februar 2001 - 16:15 Der er 23 kommentarer og
1 løsning

Klikstats

Hejsa....

Jeg har ledt efter et system, som kan følgende:

* Ved klik på link, som går til www.minside.dk, linkes der til redirect.asp?url=www.minside.dk i stedet for direkte til minside.dk .

* Derved oprettes der et post i databasen (database.mdb), hvor url er urlen der er også et felt, der hedder hits, hvor der lægges 1 til, med nedenstående kode.

DET SVÆRE: (?)

Hvis urlen findes i databasen i forvejen, skal der KUN lægges 1 til i klicks, altså IKKE oprettes et nyt post.

300 fede på spil....

Kode tak....


<% Response.Buffer = True %>
<%
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"database.mdb\")
    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"SELECT * FROM tabel WHERE URL = \" & Request.QueryString(\"URL\")
    rs.Open strSQL, myConn, 1, 3
    If Not (rs.BOF Or rs.EOF) Then

\' Her tilføjer den 1 til feltet i klik.

        rs(\"klik\") = rs(\"klik\") + 1
        rs.Update
        rs.Close
        myConn.Close
        Set rs = Nothing
        Set myConn = Nothing
        Response.Redirect(\"http://www.activeserverpages.dk\")
    End If
End If

%>
Avatar billede Slettet bruger
07. februar 2001 - 16:17 #1
der hvor der står:

        Response.Redirect(\"http://www.activeserverpages.dk\")

skulle der stå:

        Response.Redirect(\"\" & Request.QueryString(\"URL\") \"\")
Avatar billede keysersoze Ekspert
07. februar 2001 - 16:17 #2
jeg er ikke helt med... vil du have, at man på din side skal kunne klikke på et link og så tæller den ud fra det? eller hvad?

jeg har et sådant systemt liggende du kan få - men i det er det din opgave at oprette de links i databasen der skal være...
Avatar billede tpiil Nybegynder
07. februar 2001 - 16:22 #3
sådan noget her måske, men måske skal du slette end if til sidst jeg ved jo ikke om du bruger det til noget:
<%
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"database.mdb\")
    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"SELECT * FROM tabel WHERE URL = \" & Request.QueryString(\"URL\")
    rs.Open strSQL, myConn, 1, 3
    If (rs.BOF Or rs.EOF) Then

rs.AddNew
rs(\"url\") = rs(\"url\")
rs.Update

       
    End If

rs(\"klik\") = rs(\"klik\") + 1
rs.Update
Response.Redirect(\"http://www.activeserverpages.dk\")

        rs.Close
        myConn.Close
        Set rs = Nothing
        Set myConn = Nothing
End If
%>
Avatar billede tpiil Nybegynder
07. februar 2001 - 16:23 #4
sådan her:
<%
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"database.mdb\")
    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"SELECT * FROM tabel WHERE URL = \" & Request.QueryString(\"URL\")
    rs.Open strSQL, myConn, 1, 3
    If (rs.BOF Or rs.EOF) Then

rs.AddNew
rs(\"url\") = Request.QueryString(\"URL\")
rs(\"klik\") = \"1\"
rs.Update

       
    End If

If not (rs.BOF Or rs.EOF) Then
rs(\"klik\") = rs(\"klik\") + 1
rs.Update
end if

Response.Redirect(\"http://www.activeserverpages.dk\")

        rs.Close
        myConn.Close
        Set rs = Nothing
        Set myConn = Nothing
End If
%>
Avatar billede Slettet bruger
07. februar 2001 - 16:25 #5
Hvad mener du??

den skal gøre sådan at hvis url\'en ikke er der i forvejen, skal den oprette et nyt post, med feltet URL som url\'en! og sætte klicks til 0.

Hvis den er der i forvejen, skal den bare løgge en til klicks.

Derefter skal den sende brugeren videre til url\'en.

Når jeg opretter et link på min side, vil jeg gøre det sådan at man kommer videre, ved at skrive:

redirect.asp?url=http://www.soze.dk (eksempel)
Avatar billede tpiil Nybegynder
07. februar 2001 - 16:25 #6
det køre det her:
<%
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"database.mdb\")
    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"SELECT * FROM tabel WHERE URL = \" & Request.QueryString(\"URL\")
    rs.Open strSQL, myConn, 1, 3

If (rs.BOF Or rs.EOF) Then

rs.AddNew
rs(\"url\") = Request.QueryString(\"URL\")
rs(\"klik\") = \"1\"
rs.Update

else

rs(\"klik\") = rs(\"klik\") + 1
rs.Update
       
End If


Response.Redirect(\"\" & Request.QueryString(\"URL\") \"\")

rs.Close
myConn.Close
Set rs = Nothing
Set myConn = Nothing
End If
%>
Avatar billede tpiil Nybegynder
07. februar 2001 - 16:27 #7
og så skal du lige lukke db\'en før Response.Redirect men ellers skulle den være god nok :)
Avatar billede tpiil Nybegynder
07. februar 2001 - 16:29 #8
håber det er sidste gang:
<%
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"database.mdb\")
    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
LIKE \'%\" & request.form(\"email\") & \"%\'
    strSQL = \"SELECT * FROM tabel WHERE URL LIKE \'%\" & Request.QueryString(\"URL\")  & \"%\'\"
    rs.Open strSQL, myConn, 1, 3

If (rs.BOF Or rs.EOF) Then

rs.AddNew
rs(\"url\") = Request.QueryString(\"URL\")
rs(\"klik\") = \"1\"
rs.Update

else

rs(\"klik\") = rs(\"klik\") + 1
rs.Update
       
End If


Response.Redirect(\"\" & Request.QueryString(\"URL\") \"\")

rs.Close
myConn.Close
Set rs = Nothing
Set myConn = Nothing
End If
%>
Avatar billede tpiil Nybegynder
07. februar 2001 - 16:30 #9
ved ikke rigtig hvor dette kommer fra:
LIKE \'%\" & request.form(\"email\") & \"%\'
men det står der nu, det skal lige fjernes :)
Avatar billede Slettet bruger
07. februar 2001 - 16:33 #10
Der opstod en Microsoft VBScript-kompileringsfejl fejl \'800a03ee\'

Tegnet \')\' var ventet

/redirect.asp, linje 22

Response.Redirect(\"\" & Request.QueryString(\"URL\") \"\")
--------------------------------------------------^
Avatar billede tpiil Nybegynder
07. februar 2001 - 16:34 #11
Response.Redirect(\"\" & Request.QueryString(\"URL\") & \"\")
Avatar billede keysersoze Ekspert
07. februar 2001 - 16:37 #12
men - hvis den ikke findes i databasen i forvejen, så kan man jo ikke klikke på linket på siden, og så kan der vel ikke lægges noget nyt ind i databasen...

jeg er forvirret...
Avatar billede Slettet bruger
07. februar 2001 - 16:38 #13
Der hentes ikke noget fra databasen!
Avatar billede tpiil Nybegynder
07. februar 2001 - 16:40 #14
HMMMM
Avatar billede Slettet bruger
07. februar 2001 - 16:41 #15
Her er min fejl:

Der opstod en Microsoft VBScript-kompileringsfejl fejl \'800a0400\'

En sætning var ventet

/redirect.asp, linje 27

End If
^

Her er min kode:

<%
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"brugere.mdb\")
    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"SELECT * FROM klik WHERE URL LIKE \'%\" & Request.QueryString(\"URL\")  & \"%\'\"
    rs.Open strSQL, myConn, 1, 3

If (rs.BOF Or rs.EOF) Then

rs.AddNew
rs(\"URL\") = Request.QueryString(\"URL\")
rs(\"klick\") = \"1\"
rs.Update

else

rs(\"klick\") = rs(\"klick\") + 1
rs.Update
End If

Response.Redirect(\"\" & Request.QueryString(\"URL\") & \"\")
rs.Close

myConn.Close
Set rs = Nothing
Set myConn = Nothing
End If
%>
Avatar billede keysersoze Ekspert
07. februar 2001 - 16:42 #16
men... skal man så på din side skrive hvor man vil hen? eller hvad er det for et link man skal klikke på?
Avatar billede keysersoze Ekspert
07. februar 2001 - 16:42 #17
fjern det sidste \"end if\"
Avatar billede tpiil Nybegynder
07. februar 2001 - 16:43 #18
det var det jeg skrev at du skulle slette End If til sidst hvis du ikke havde noget andet på siden :)
Avatar billede Slettet bruger
07. februar 2001 - 16:44 #19
Det er så jeg kan se hvilke linke mine brugere klikker mest på.

Jeg laver et link på denne måde:

redirect.asp?url=http://www.soze.dk

http://www.soze.dk er adressen, som normalt ville være nok i sig selv
Avatar billede tpiil Nybegynder
07. februar 2001 - 16:46 #20
hva virker det eller??
Avatar billede keysersoze Ekspert
07. februar 2001 - 16:49 #21
men - hvis den ikke skal hente urlen ud fra databasen... så kan det ikke rigtig lade sig gøre :o(

P.S. fed side at linke til - men den bliver federe omkring 1.marts...
Avatar billede Slettet bruger
08. februar 2001 - 17:37 #22
tpiil ->

det virker!
tak for hjælpen....
Avatar billede tpiil Nybegynder
08. februar 2001 - 19:52 #23
ok, så lidt :)
Avatar billede Slettet bruger
08. februar 2001 - 21:03 #24
hehe
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
ASP classic kopiere database fil på server Af bsn i ASP 7 31/10/202610:20 01/11/202620:28
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
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
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
I dag 08:39 Produktnøgle Af hkv i Office & Kontorpakker
I går 16:59 Bitlocker Af nico i Windows
12/1116:30 Wlan i windows 11 home Af dcedata1977 i Windows
11/1121:19 Irriterende ikon på proceslinjen Af ErikHg i Windows
11/1116:33 Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows
White papers
Flere white papers »