Avatar billede klas Juniormester
26. november 2000 - 10:17 Der er 16 kommentarer og
1 løsning

lille mysql rettelse . .

Jeg har dette script :


<%
Response.Buffer = True

    If Request.QueryString(\"id\") <> \"\" Then
        Set DatabaseConnection = Server.CreateObject(\"ADODB.Connection\")
DatabaseConnection.Open \"DSN=****; username=****; password=****\"
        Set rs = Server.CreateObject(\"ADODB.RecordSet\")
        strSQL = \"SELECT * FROM filer WHERE (ID = \" & Request.QueryString(\"id\") & \")\"
        rs.Open strSQL, myConn, 1, 3
        If Not (rs.BOF Or rs.EOF) Then
            rs(\"klik\") = rs(\"klik\") + 1
            strURL = rs(\"link\")
            rs.Update
            rs.Close
            myConn.Close
            Set rs = Nothing
            Set myConn = Nothing
            Response.Clear
            Response.Redirect(strURL)
        End if
    End If
%>

Jeg mener dette er lavet til en access database . .er der nogle der hurtigt kan lave det om så det passer til mydql ?

Eller evt. vide mig et script som gør det samme som denne fil - Nemlig at opdatere et felt i databasen med 1 hver gang det aktiveres, for derefter at vidresende til et link (det er et simnpelt download tæller system)
Avatar billede kasseper Nybegynder
26. november 2000 - 10:31 #1
dette gør det samme :
<%
dim howmanykliks
If Request.QueryString(\"id\") <> \"\" Then
Set DatabaseConnection = Server.CreateObject(\"ADODB.Connection\")
DatabaseConnection.Open \"DSN=****; username=****; password=****\"
strSQL = \"SELECT * FROM filer WHERE (ID = \" & Request.QueryString(\"id\") & \")\"
Set rs = DatabaseConnection.execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
howmanykliks = rs(\"klik\")
howmanykliks = howmanykliks + 1
upSQL = \"UPDATE filer SET klik = \" & howmanykliks & \" WHERE (ID = \" & Request.QueryString(\"id\") & \")\"
DatabaseConnection.execute(upSQL)
rs.Close
myConn.Close
Set rs = Nothing
Set myConn = Nothing
Response.Clear
Response.Redirect(strURL)
End if
End If
%>
Avatar billede kasseper Nybegynder
26. november 2000 - 10:32 #2
øhhh nej der var da vist også en fejl i dit script, du har ikke myConn men databaseconnection så brug denne istedet. :

<%
dim howmanykliks
If Request.QueryString(\"id\") <> \"\" Then
Set DatabaseConnection = Server.CreateObject(\"ADODB.Connection\")
DatabaseConnection.Open \"DSN=****; username=****; password=****\"
strSQL = \"SELECT * FROM filer WHERE (ID = \" & Request.QueryString(\"id\") & \")\"
Set rs = DatabaseConnection.execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
howmanykliks = rs(\"klik\")
howmanykliks = howmanykliks + 1
upSQL = \"UPDATE filer SET klik = \" & howmanykliks & \" WHERE (ID = \" & Request.QueryString(\"id\") & \")\"
DatabaseConnection.execute(upSQL)
rs.Close
Set rs = Nothing
DatabaseConnection.Close
Set DatabaseConnection = Nothing
Response.Clear
Response.Redirect(strURL)
End if
End If
%>
Avatar billede klas Juniormester
26. november 2000 - 10:42 #3
Jeg tror det virker nogenlunde nu . . men når man klikker på download her:

http://www.cosmic.dk/video/visfil.asp?ID=6

Så er det som om at den åbner forkert . ..  prøv selv .

Det har vel noget med Det der \"strURL\" at gøre ?

strURL = rs(\"link\")
howmanykliks = rs(\"klik\")
howmanykliks = howmanykliks + 1
upSQL = \"UPDATE filer SET klik = \" & howmanykliks & \" WHERE (ID = \" & Request.QueryString(\"id\") & \")\"
DatabaseConnection.execute(upSQL)
rs.Close
Set rs = Nothing
DatabaseConnection.Close
Set DatabaseConnection = Nothing
Response.Clear
Response.Redirect(strURL)
Avatar billede kasseper Nybegynder
26. november 2000 - 10:47 #4
Arrgh shit jeg havde glemt strURL, men den har du selv sat ind, OK. Men hvordan åbner den forkert ?
Avatar billede klas Juniormester
26. november 2000 - 10:49 #5
Windows mediaplayer åbner den med det samme selvom jeg også har en download mananger som åbner ..  i windows mediaplayer kommer denne fejl:

Cannot open.  Please verify that the path and filename are correct and try again. (Error=80004005)
Avatar billede klas Juniormester
26. november 2000 - 11:20 #6
når man klikker på billedet så åbner den korrekt .. udenom download scriptet
Avatar billede kasseper Nybegynder
26. november 2000 - 11:23 #7
Har du ikke noget mere kode :?
Avatar billede klas Juniormester
26. november 2000 - 11:28 #8
<%
Response.Buffer = True
dim howmanykliks
If Request.QueryString(\"id\") <> \"\" Then
Set DatabaseConnection = Server.CreateObject(\"ADODB.Connection\")
DatabaseConnection.Open \"DSN=**; username=**; password=**\"
strSQL = \"SELECT * FROM filer WHERE (ID = \" & Request.QueryString(\"id\") & \")\"
Set rs = DatabaseConnection.execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
strURL = rs(\"link\")
howmanykliks = rs(\"klik\")
howmanykliks = howmanykliks + 1
upSQL = \"UPDATE filer SET klik = \" & howmanykliks & \" WHERE (ID = \" & Request.QueryString(\"id\") & \")\"
DatabaseConnection.execute(upSQL)
rs.Close
Set rs = Nothing
DatabaseConnection.Close
Set DatabaseConnection = Nothing
Response.Clear
Response.Redirect(strURL)
End if
End If
%>
Avatar billede kasseper Nybegynder
26. november 2000 - 11:31 #9
Og du er 110 % sikker på at det der ligger i rs(\"link\") er det rigtige...!
Har du prøvet på andre maskiner, når jeg klikker på billedet, så åbner den fint, og det gør den altså også når jeg klikker på download.
Avatar billede kasseper Nybegynder
26. november 2000 - 11:43 #10
Fungere det ikke nu, nu er der da det samme link i både billedet og download....
Avatar billede klas Juniormester
26. november 2000 - 11:46 #11
jeg har rettet det så begge links går igennem download.asp . .men den opfører sig på samme måde som før .. Hvis jeg fx. har åbnet siden igennem linket her på eksperten og trykker på download så lukker siden ned og så er jeg tilbage på denne side  - Hvorfor det ??
Avatar billede kasseper Nybegynder
26. november 2000 - 11:52 #12
Jeg forstår det ikke...Det fungere fint hos mig....
Avatar billede klas Juniormester
26. november 2000 - 11:54 #13
hmm . .lsder det kører lidt tid og arbejder videre med noget af det andet på siden - tak for hjælpen :o)
Avatar billede kasseper Nybegynder
26. november 2000 - 11:54 #14
Det er ikke fordi din side casher, har du <% response.expires = -1000 %> øverst på din side.....
Avatar billede klas Juniormester
26. november 2000 - 12:23 #15
nope . .hvad gør den linie ?
Avatar billede kasseper Nybegynder
26. november 2000 - 12:29 #16
den søger for at siden hentes fra serveren hver gang og ikke fra cachen...Den kan du bruge hvis du vil, den er jo ikke strengt nødvendig i dit tilfælde.
Avatar billede klas Juniormester
26. november 2000 - 12:31 #17
ok . .ligesom et no chache tag : )
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
Kurser inden for grundlæggende programmering

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.

Du kan også logge ind via nedenstående tjenester