J jboy_87 Medlem sedan aug. 2001 1 099 inlägg Frågan 16 dec. 2001 10:34 #1 förut funkade koden nu vet jag inte vad som hände???
om man blir online i 5 min så plussas det 3 poäng hele tiden och när man inte e online i 5 min så plussas de på 1 poäng snälla nån hjälp
minutes = datediff("n",cdate(session("minonline")),now())
if minutes > 5 then
points = 3
else
points = 1
end if
connect22.execute "update members set minonline = " & minutes & " , poang = poang + " & points &" where id = " & session("id"),,128
------------------
ASP är bäst fuck the rest!!!
@nders Medlem sedan juni 2000 32 969 inlägg vad ska hända då?
------------------
Don't panic!
J jboy_87 Medlem sedan aug. 2001 1 099 inlägg när användare har stannat i sidan i 5 min så ska det plussas 3 poäng men annars inte om han stannar i 10 min ska det plussas på 6 poäng
------------------
ASP är bäst fuck the rest!!!
@nders Medlem sedan juni 2000 32 969 inlägg minutes = datediff("n",cdate(session("minonline")),now())
points = 0
if minutes >= 5 then points = 3
if minutes >= 10 then points = 6
if not points=0 then connect22.execute "update members set minonline = " & minutes & " , poang = poang + " & points &" where id = " & session("id"),,128
------------------
Don't panic!
J jboy_87 Medlem sedan aug. 2001 1 099 inlägg tack anders men om man e online i 20 min da då får man inga poäng
typ om man e online i 60 min så ska man få 3 poäng om man e online i 120 min så får man 6 poäng osv...
------------------
ASP är bäst fuck the rest!!!
@nders Medlem sedan juni 2000 32 969 inlägg Jag förstår inte alls vad du menar, så jag frågar:
Ska man få tre poäng för varje femminutersperiod man är online i sträck?
Om man är online i 33 minuter, ska man då få 18 poäng, då det är 6 femminutersperioder?
------------------
Don't panic!
J jboy_87 Medlem sedan aug. 2001 1 099 inlägg japp varje femminutersperiod när man är online ska man få 3 poäng
------------------
ASP är bäst fuck the rest!!!
Borde väl gå med Minutes Mod 5 = 0.
:)
------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/
[Redigerat av Erik Juhlin den 16 dec 2001]
@nders Medlem sedan juni 2000 32 969 inlägg Erik, vad menar du?
minutes = datediff("n",cdate(session("minonline")),now())
[b]points = (Int(p/5)) * 3[/b]
connect22.execute "update members set minonline = " & minutes & " , poang = poang + " & points &" where id = " & session("id"),,128
Mvh,
------------------
Don't panic!
[Redigerat av @nders den 16 dec 2001]
J jboy_87 Medlem sedan aug. 2001 1 099 inlägg öö nu får man 3 poäng men bara när det e 5 min typ om det blir 10 min så får man inte 3 poäng till osv..
------------------
ASP är bäst fuck the rest!!!
@nders Medlem sedan juni 2000 32 969 inlägg Förlåt mig, jag klantade mig lite när jag klippte från mitt textdokument.
Testa detta istället för det fetmarkerade i mitt inlägg ovan:
points = (Int([b]minutes[/b]/5)) * 3
Borde fungera betydligt bättre. :)
------------------
Don't panic!
J jboy_87 Medlem sedan aug. 2001 1 099 inlägg nu plussas det på 3 poäng hela tiden
------------------
ASP är bäst fuck the rest!!!
Kör man modolu så körs ju det var femte minut om an skriver som jag skrivit...
minutes = datediff("n",cdate(session("minonline")),now())
points = 0
if (minutes Mod 5) = 0 then points = 3
if not points=0 then connect22.execute "update members set minonline = " & minutes & " , poang = poang + " & points &" where id = " & session("id"),,128
------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/
[Redigerat av Erik Juhlin den 16 dec 2001]
J jboy_87 Medlem sedan aug. 2001 1 099 inlägg såhär ser hela koden ut:
<%
minutes = datediff("n",cdate(session("minonline")),now())
response.write "" & minutes & "" %><%minutes = datediff("n",cdate(session("minonline")),now())
set connect22 = server.createobject("adodb.connection")
Connect22.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&""
connect22.execute "update members set minonline = " & minutes & " where id = " & session("id"),,128
minutes = datediff("n",cdate(session("minonline")),now())
points = (Int(minutes/5)) * 3
connect22.execute "update members set minonline = " & minutes & " , poang = poang + " & points &" where id = " & session("id"),,128
minutes = datediff("n",cdate(session("totalminonline")),now())
Set connect55 = server.createobject("adodb.connection")
Connect55.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&""
connect55.execute "update members set totalminonline = totalminonline + " & minutes & " where id = " & session("id"),,128
Connect22.close
Set Connect22 = nothing
%>
------------------
ASP är bäst fuck the rest!!!
@nders Medlem sedan juni 2000 32 969 inlägg JBoy, jag förstår inte vad du vill.
När körs den här sidan? När sätter du session("minonline")?
Erik, spinn gärna vidare på din modulo-ifsats och släng in hantering för längre tider också, så får vi som om någon av oss får till det som Jboy vill.
------------------
Don't panic!
J jboy_87 Medlem sedan aug. 2001 1 099 inlägg när jag loggar in i sida så startas det två sessions
Session("minonline") = now()
Session("totalminonline") = now()
jag håller på med ett community!!!
------------------
ASP är bäst fuck the rest!!!
[Redigerat av jboy_87 den 16 dec 2001]
[Redigerat av jboy_87 den 16 dec 2001]
@nders Medlem sedan juni 2000 32 969 inlägg Borde inte session("minonline") uppdateras när du gör update? Om inte den ändras kommer man att få poäng varje gång man kör sidan.
------------------
Don't panic!
Det behöver den inte göras om man kör modolu. Modolu grejen blir ju bara 0 var femte minut.
Fast i.o.f.s. så kan man komma in på sidan samma minut och då så får man poäng för det...
------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/
J jboy_87 Medlem sedan aug. 2001 1 099 inlägg förstår er inte riktigt!!!
[Redigerat av jboy_87 den 16 dec 2001]
J jboy_87 Medlem sedan aug. 2001 1 099 inlägg har löst det med:
minutes = datediff("n",cdate(session("minonline")),now())
if minutes > 60 then
points = 3
else
points = 1
end if
connect22.execute "update members set minonline = " & minutes & " , poang = " & points &" where id = " & session("id"),,128
------------------
ASP är bäst fuck the rest!!!