Så slår du bare op i den tabel for om IP'en og billed har en record inden for 24 timer:
rs.open "SELECT * FROM tbl_img WHERE id = " & min_id, conn, 2, 2 set rs1 = conn.execute("select * from IP2Pic where showTime>=#"& dateadd("d",-1,now()) &"# and IP='"& IP &"' and picID="& rs("id")) if rs1.eof then rs("vis") = rs("vis") + 1 rs.update end if img.MoveNext Wend
... Afhængig af datedasen skal dato delen se anderledes ud (dato formatering), eller det kan laves med DB'ens dato funktioner i stedet for ASP'ens dateadd.
Jeg har 3 tabeller i db, som hedder, img_info ( det er der hvor jeg har hvor mange gange billedet er vist hvor meget den er blevet rated, og hvos mange gange der er blevet stemt på den)
Og så har jeg den med img_show( der hvor tid ip og det hele er) og til sidst billedet selv i en tabel.
Ud fra din kode i ?'et skal img_info ikke bruges til noget. "vis" ligger i tbl_img tabellen... Du skal bare rette: set rs1 = conn.execute("select * from IP2Pic where showTime>=#"& dateadd("d",-1,now()) &"# and IP='"& IP &"' and picID="& rs("id"))
Så den passer til din img_show tabel set rs1 = conn.execute("select * from img_show where tidKolonne>=#"& dateadd("d",-1,now()) &"# and IPKolonne='"& IP &"' and picIDKolonne="& rs("id"))
set rs = server.CreateObject("ADODB.Recordset") rs.Open "select * from hot_rated where ip =" & ip, conn, 2, 2
if not rs.eof then do while not rs.eof rs("ip") = ip rs("img_id") = min_id rs("showtid") = now() rs.movenext loop set rs1 = server.CreateObject("ADODB.Recordset") rs1.Open "select * from hot_img_info where img_id =" & rated_id_img, conn, 2, 2
rs1("showed") = rs1("showed") + 1 rs1.Update else response.Write "finde ik" end if %>
Nu har du gang i nogle helt 3. tabel navne. Hvordan er din tabel opbygning LIGE NU?? Skal have fuld beskrivelse (tabelnavne, kolonner og datatyper), også er det den vi arbejder ud fra. Vi finder aldrig en løsning, hvis det bliver ændret hele tiden.
Det kan så være, vi skal have ændret din nuværende tabelopbygning. Men vi skal have det samme udgangspunkt, ellers finder vi aldrig ud af noget.
Du kan have alle dem du vil, men så er vi ude i noget forkert DB opbygning :o)
rs.open "SELECT * FROM tbl_img WHERE id = " & min_id, conn, 2, 2 set rs1 = conn.execute("select * from tbl_rate where showtid>=dateadd('d',-1,now()) and IP='"& IP &"' and img_id="& rs("id")) if rs1.eof then rs("vis") = rs("vis") + 1 rs.update end if img.MoveNext Wend
Gå ud fra du bruger Access, så jeg har flyttet dataadd funktionen, så den bruger Access' funktione i stedet for ASP'en.
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.