link counter

Gör en databas som du lagrar alla låtar i (eller en textfil). Ha en fält som du har en siffra i (antal klick). Sedan länkar du till låten med "song.asp?song=wyclef". I song.asp uppdaterar du sedan i din databas (eller txtfil) att värdet för den låten skall vara värdet + 1 och sedan kör du en response.redirect till låten

du tror inte att du skulle kunna göra ngt exempel? vore jävligt sjysst! (tänk på att jag har en tio-i-topp lista med favoritsidor )

he he!

Detta borde väl funka

strSQL = "UPDATE songsTable SET antalKlick = " & objRS("antalKlick") + 1 & " WHERE songID = " & Request.QueryString("songID") & ""
					objConn.Execute(strSQL)

Response.Redirect objRS("songUrl")

Detta förutsätter att du har en access databas där du har en tabell som heter songsTable. I den har du 3 fält, songID = räknare, antalKlick = Tal och songUrl = text. I songUrl skriver du sökvägen till låten, typ /songs/pelle.mp3 osv.

Detta borde funka, skrev det ur huvudet

nja...tack för koden..men det funkar ej...??? vad är fel? jag får detta meddelande:

Körningsfel i Microsoft VBScript error '800a000d' 

Inkompatibla typer: 'objRS' 

/billdalsida/link.asp, line 7

och här är koden:

<%	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\billdalsida\song.mdb"

	Set RecSet = Server.CreateObject("ADODB.Recordset") %>

<%
strSQL = "UPDATE songsTable SET antalKlick = " & objRS("antalKlick") + 1 & " WHERE songID = " & Request.QueryString("songID") & ""
objConn.Execute(strSQL)
Response.Redirect objRS("songUrl")
%>

Först måste du initiera objektet du försöker använda, DVS objRs... detta (antar jag utifrån din kod) borde göras med en SQL-sträng som hämtar URL:en som du skall redirecta.

Mvh, Vide

ursäkta...men är det någon som vill rätta mitt script så att det funkar...??? vore väldigt sjysst av den som göra det... jag fattar inte ett skit...

rossifumis kod är helt rätt, men du använder den på fel sätt

du använder Connect och RecSet, medans han i sitt exempel använder objConn och objRS. Såhär ska din kod se ut:

<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\billdalsida\song.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset") %>

<%
strSQL = "UPDATE dintabell SET antalKlick = " & RecSet("antalKlick") + 1 & " WHERE songID = " & Request.QueryString("songID") & ""
Connect.Execute(strSQL)
Response.Redirect RecSet("songUrl")
%>

MVH

ska testa nu....

"Jävligt fin grabb den där nakoz"

f*n det funkar ju inte....

nu får man ju detta meddelande:

ADODB.Fields error '800a0cc1' 

ADO kunde inte hitta objektet i mängden som överensstämmer med det begärda namnet eller numret. 

/billdalsida/link.asp, line 5

strSQL = "UPDATE songsTable SET antalKlick = " & RecSet("antalKlick") + 1 & " WHERE songID = " & Request.QueryString("songID") & ""

RecSet är ju bara ett tomt recordset-objekt, eftersom du inte sagt att någonting skall göras med det.

du måste ju också ställa en select-fråga genom connectionobjektet för att du ska få ut någonting.

Men.....

strSQL = "UPDATE songsTable SET antalKlick = antalKlick + 1 WHERE songID = " & Request.QueryString("songID")

japp! att man inte tänkte på det...

då kan du ju också strunta i att skapa ett recordsetobjekt, eftersom du inte behöver använda det.

Kan du inte bara göra såhär?!

<%
If NOT Request.QueryString("songID") = "" then 
hamtafiljavel
end if

Sub hamtafiljavel
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\billdalsida\song.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset") 

stm = "SELECT * FROM songsTable WHERE songID = " & Request.QueryString("songID") 

RecSet.Open stm,connect,adOpenStatic,adLockOptimistic

RecSet("antalklick") = RecSet("antalklick") +1
fil = RecSet("songUrl")

RecSet.Update
RecSet.Close
Connect.close
Response.Redirect fil
End sub
%>

(Med undantag för tillfällig mental retardation)

fick inget felmeddelande denna gång...

men hur gör man i länkväg när man ska hämta låten... ? blir det typ
link.asp?songUrl=david.mp3 eller link.asp?songID=1 eller hur då? har någon lösning, förklara gärna var jag ska lägga den länk för att varje klick på just "den" länken ska räknas...

Hej!

Vet inte om du kollat in http://www.idg.se/webstudio/asp/asp171.asp där kan du läsa en del om querystrings osv.

För övrigt:
Jag antar att du vill göra en sida som listar alla låtarna som finns i databasen och i en querystring skicka med id:nummret hos varje låt till de script som vi diskuterat på denna sida.

"Life's a bitch who sucks... then you marry one who doesn't"

[Redigerat av Andreas L den 29 jan 2001]