Bild klick +1

ASP

19 svar · 234 visningar · startad av jboy_87 29 okt. 2001

jboy_87Medlem sedan aug. 20011 099 inlägg

Trådstart29 okt. 2001 23:24#1

Hur gör man för att det ska + 1 i databasen när man klickar på bilden?????

jorgenMedlem sedan feb. 20012 412 inlägg

29 okt. 2001 23:33#2

Hej jboy_87!

Det är ingen som svarar fortare för att du masspostar inlägg. Jag har raderat alla utom ett.

Vi är tacksamma om du bara postar 1 inlägg "av samma sort".

mvh Jörgen
Moderator wF

jboy_87Medlem sedan aug. 20011 099 inlägg

29 okt. 2001 23:40#3

ops förlåt sidan e trög så jag råcka klicka två gånger

SPiNMedlem sedan mars 20007 896 inlägg

30 okt. 2001 00:20#4

If Request.QueryString("bild") <> "" Then
    set connectionObjekt = Server.CreateObject("ADODB.Connection")
    connectionObjekt.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\mapp\mapp\databas.mdb"

    connectionObjekt.Execute("UPDATE falt SET klick = klick + 1 WHERE bild = '" & Request.QueryString("bild") & "'")

    connectionObjekt.Close()
    set connectionObjekt = Nothing
End If

Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & ""?bild=minbild"><img src=""bild.gif""></a>"

Hoppas du förstår hur du ska göra, för jag orkar inte förklara just nu... Tyckte det blev rätt lättförståeligt, ivf

Red} Eh, råkade få med ett par semikolon...

jboy_87Medlem sedan aug. 20011 099 inlägg

30 okt. 2001 00:53#5

nope funkar inte!!!

Bild.asp:

<html>

<body>

</body>

</html>

--------------------------------------

Bild2.asp:
<html>

<body>

<%If Request.QueryString("bild") <> "" Then
set connectionObjekt = Server.CreateObject("ADODB.Connection")
connectionObjekt.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\mapp\mapp\databas.mdb"
connectionObjekt.Execute("UPDATE falt SET klick = klick + 1 WHERE bild = '" & Request.QueryString("bild") & "'")

connectionObjekt.Close()
set connectionObjekt = Nothing

End If

Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & ""?bild=minbild"><img src=""bild.gif""></a>"%>

</body>

</html>

Får fel meddelandet:

Kompileringsfel i Microsoft VBScript (0x800A0408)
Ogiltigt tecken
/bild2.asp, line 21, column 73
Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & ""?bild=minbild"><img src=""bild.gif""></a>"
------------------------------------------------------------------------^

SPiNMedlem sedan mars 20007 896 inlägg

30 okt. 2001 01:19#6

Ooops, så här bör det vara:

Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?bild=minbild""><img src=""bild.gif""></a>"

Plus att du måste ändra en del grejjer i scriptet, som t.ex. din sökväg till databasen.

crisse6Medlem sedan dec. 20002 526 inlägg

30 okt. 2001 10:34#7

jboy_87, kan du försöka använda

runt dina koder, som sagt du får nog mer svar då när det ser lite mer orörigt...

mvh crisse6

jboy_87Medlem sedan aug. 20011 099 inlägg

30 okt. 2001 11:27#8

Jag vill att när man ska klicka på bilden så ska det + 1 i databasen
när användaren klickar så ska + 1 till hans tabell.

<%
If Request.QueryString("bild") <> "" Then
    set connectionObjekt = Server.CreateObject("ADODB.Connection")
    connectionObjekt.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\wwwroot\Database\members.mdb"
  
    connectionObjekt.Execute("UPDATE members SET poang = poang + 1 WHERE ID = " & RecSet("id") = '" & Request.QueryString("bild") & "'")

    connectionObjekt.Close()
    set connectionObjekt = Nothing
End If

Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?bild=minbild""><img src=""bild.gif""></a>"
%>
</p>

jboy_87Medlem sedan aug. 20011 099 inlägg

30 okt. 2001 16:24#9

Jag vill att när man ska klicka på bilden så ska det + 1 i databasen
när användaren klickar så ska + 1 till hans tabell.
Kod:

--------------------------------------------------------------------------------
<%
If Request.QueryString("bild") <> "" Then
set connectionObjekt = Server.CreateObject("ADODB.Connection")
connectionObjekt.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\wwwroot\Database\members.mdb"

connectionObjekt.Execute("UPDATE members SET poang = poang + 1 WHERE ID = " & RecSet("id") = '" & Request.QueryString("bild") & "'")
connectionObjekt.Close()
set connectionObjekt = Nothing
End If

Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?bild=minbild""><img src=""bild.gif""></a>"
%>

jboy_87Medlem sedan aug. 20011 099 inlägg

1 nov. 2001 00:24#10

hallå hjälp nån

LarsGMedlem sedan dec. 200012 464 inlägg

1 nov. 2001 09:24#11

connectionObjekt.Execute("UPDATE members SET poang = poang + 1 WHERE ID = " & Request.QueryString("bild") )

Om du testar den sql-satsen, vad händer då?

Om det inte fungerar så beskriv vad som är fel, om du får något felmeddelande så skicka med det. Annars så är det ganska svårt att hjälpa till.

jorgenMedlem sedan feb. 20012 412 inlägg

1 nov. 2001 09:32#12

connectionObjekt.Execute("UPDATE members SET poang = poang + 1 WHERE ID = " & RecSet("id") [b]=[/b] '" & Request.QueryString("bild") & "'")

Du kan inte bara sätt ett likamed tecken till så.

connectionObjekt.Execute("UPDATE members SET poang = poang + 1 " & _
" WHERE ID = " & RecSet("id")& " " & _
" AND [i]Image[/i] = '" & Request.QueryString("bild") & "'")

mvh Jörgen

jboy_87Medlem sedan aug. 20011 099 inlägg

1 nov. 2001 18:30#13

får felmeddelandet:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Drivrutin för ODBC Microsoft Access]Allmänt fel Det går inte att öppna registernyckeln 'Temporary (volatile) Jet DSN for process 0x85c Thread 0x8c8 DBC 0x109af0c Jet'.
/Default.asp, line 26

<%If Request.QueryString("bild") <> "" Then
set connectionObjekt = Server.CreateObject("ADODB.Connection")
connectionObjekt.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=database.mdb"
connectionObjekt.Execute("UPDATE falt SET klick = klick + 1 WHERE bild = '" & Request.QueryString("bild") & "'")

connectionObjekt.Close()
set connectionObjekt = Nothing
End If

Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?bild=minbild""><img src=""bild.gif""></a>"
%>

jboy_87Medlem sedan aug. 20011 099 inlägg

1 nov. 2001 18:36#14

asså hur måga filer ska man göra ???????

fattar ingenting

LarsGMedlem sedan dec. 200012 464 inlägg

1 nov. 2001 18:48#15

Det fel du får (volatile) beror oftast på att det är fel sökväg (dvs DBQ=database.mdb) till databasen eller att IUSR_<servername> inte har tillräckliga rättigheter på den katalog som innehåller databasen (Det krävs rxwd.)

jboy_87Medlem sedan aug. 20011 099 inlägg

1 nov. 2001 20:41#16

jag använder bara denna fil nu:
index.asp:

ser ut så :

%If Request.QueryString("bild") <> "" Then
set connectionObjekt = Server.CreateObject("ADODB.Connection")
connectionObjekt.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/database.mdb")&";pwd=losen"
connectionObjekt.Execute("UPDATE falt SET klick = klick + 1 WHERE bild = '" & Request.QueryString("bild") & "'")
connectionObjekt.Close()
set connectionObjekt = Nothing
End If

Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?bild=minbild""><img src=""bild.gif""></a>"
%>

när jag klickar på bilden så får jag detta felmeddelande

Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Drivrutin för ODBC Microsoft Access] För få parametrar angavs. 1 förväntades.
/WWW/Test/klick/index.asp, line 15

icaaqMedlem sedan okt. 20005 273 inlägg

1 nov. 2001 20:45#17

har du verkligen en tabell som heter falt och ett fält som heter klick?

LarsGMedlem sedan dec. 200012 464 inlägg

1 nov. 2001 20:46#18

Då är det något kolumnnamn som inte finns i tabellen falt, t.ex. bild

UPDATE falt SET klick = klick + 1 WHERE bild = '" & Request.QueryString("bild") & "'")

jboy_87Medlem sedan aug. 20011 099 inlägg

1 nov. 2001 21:38#19

ops glömde en kolumn men när man klickar så plussas inte 1 :-<

jboy_87Medlem sedan aug. 20011 099 inlägg

1 nov. 2001 22:13#20

ops glömde en kolumn men när man klickar så plussas inte 1 :-<