webForumDet fria alternativet
Logga in

Bild klick +1

19 svar · 234 visningar · startad av jboy_87

jboy_87Medlem sedan aug. 20011 099 inlägg
#1

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

------------------
ASP är bäst

jorgenMedlem sedan feb. 20012 412 inlägg
#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

------------------
Varför bråka när man kan kramas?

jboy_87Medlem sedan aug. 20011 099 inlägg
#3

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

------------------
ASP är bäst

SPiNMedlem sedan mars 20007 896 inlägg
#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... :r

------------------
SPiN, bjorne.w@telia.com

-- Tekniska framsteg är som en yxa i händerna på en kriminell galning / Albert Einstein --

[Redigerat av SPiN den 30 okt 2001]

jboy_87Medlem sedan aug. 20011 099 inlägg
#5

nope funkar inte!!!

Bild.asp:

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Ny sida 1</title>
</head>

<body>

<p><a href="bild2.asp?bild=minbild">Bild</a></p>

</body>

</html>

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

Bild2.asp:
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Ny sida 1</title>
</head>

<body>

<p><%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>"%>

</p>

</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>"
------------------------------------------------------------------------^

------------------
ASP är bäst

SPiNMedlem sedan mars 20007 896 inlägg
#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.

------------------
SPiN, bjorne.w@telia.com

-- Tekniska framsteg är som en yxa i händerna på en kriminell galning / Albert Einstein --

crisse6Medlem sedan dec. 20002 526 inlägg
#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

------------------
My name is Chris - Chris dangerous!

jboy_87Medlem sedan aug. 20011 099 inlägg
#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>

------------------
ASP är bäst

jboy_87Medlem sedan aug. 20011 099 inlägg
#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>"
%>
</p>

------------------
ASP är bäst

jboy_87Medlem sedan aug. 20011 099 inlägg
#10

hallå hjälp nån

------------------
ASP är bäst fuck the rest!!!

LarsGMedlem sedan dec. 200012 464 inlägg
#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.

------------------
essentitia preter non sans multiplicandum

jorgenMedlem sedan feb. 20012 412 inlägg
#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 :)

------------------
Varför bråka när man kan kramas?

[Redigerat av jorgen den 01 nov 2001]

jboy_87Medlem sedan aug. 20011 099 inlägg
#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>"
%>

------------------
ASP är bäst fuck the rest!!!

jboy_87Medlem sedan aug. 20011 099 inlägg
#14

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

fattar ingenting

------------------
ASP är bäst fuck the rest!!!

LarsGMedlem sedan dec. 200012 464 inlägg
#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.)

------------------
essentitia preter non sans multiplicandum

jboy_87Medlem sedan aug. 20011 099 inlägg
#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

------------------
ASP är bäst fuck the rest!!!

icaaqMedlem sedan okt. 20005 273 inlägg
#17

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

------------------
Icaaq, mannen med korven. (!)

LarsGMedlem sedan dec. 200012 464 inlägg
#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") & "'")

------------------
essentitia preter non sans multiplicandum

jboy_87Medlem sedan aug. 20011 099 inlägg
#19

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

------------------
ASP är bäst fuck the rest!!!

jboy_87Medlem sedan aug. 20011 099 inlägg
#20

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

------------------
ASP är bäst fuck the rest!!!

145 ms totalt · 3 externa anrop · v20260731065814-full.86db40fa
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
142 ms — hämta tråd, inlägg och bilagor (db)