Hey derude.
Er efter en lang pause med asp gået igang med at prøve og lave et Community med en Time + point funktion.
Jeg har disse 3 stykker koder her, og jeg mangler sådan set bare hjælp til at få dem til at hænge sammen
Og evt hjælp hvis der mangler noget.
Har denne "Tjek.asp" :
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db.mdb")
brugernavn = Request.Form("brugernavn")
kode = Request.Form("password")
sql = "select * from Bruger WHERE Brugernavn = '" & brugernavn & "' AND Kode = '" & kode & "'"
Set rs = Conn.Execute(SQL)
If not rs.eof Then
datoen=now()
Session("id") = rs("id")
Session("Godkendt") = True
Session("brugernavn") = rs("brugernavn")
Session("tags") = rs("tags")
Session("starttid") = datoen
Conn.Execute("UPDATE bruger SET starttid=#" & datoen & "#, ip='" & Request.ServerVariables("REMOTE_ADDR") & "', online='online' WHERE id=" & Session("id"))
Response.Redirect("logget_ind.asp")
Else
Response.Redirect("login.asp")
End if
%>
Også har jeg også denne "tael.asp" :
<%
mode = request("mode")
if mode = "" then
%>
<html><head><title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta HTTP-EQUIV='REFRESH' target='_self' CONTENT='61; URL=t0a0e0l.asp?mode=puls'>
</head><body></body></html>
<%
elseif mode = "plus" then
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("community/avisdb.mdb")
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM brugere WHERE ID=" & Session("id"), Conn, 1, 3
' opdatér kun, hvis data findes
if not rs.EOF then
' test på snyd, der skal være gået mindst 55 sekunder siden sidst
if rs("sidst_opdateret") < dateadd("s",-55,now()) then
' feltet tid skal starte med værdien 0 hvis det ikke har været brugt før
if isNull(rs("tid")) then rs("tid")=0
rs("tid") = rs("tid") + 1
rs("sidst_opdateret") = now()
rs.Update
end if
end if
response.Redirect "tael.asp"
end if
%>
Og til sidst har jeg denne kode "gem.asp" :
<%
If Request.Querystring("side") = "" Then
Response.Write "<b>Gemmer din time</b><bR><meta http-equiv='refresh' content='0; url=gem.asp?side=gem'>"
End if
If Request.Querystring("side") = "Gem" then
set conn = Server.createObject("adodb.connection")
conn.open "PROVIDER=MSDASQL;DRIVER={microsoft access driver (*.mdb)};DBQ=" & Server.Mappath("community/avisdb.mdb") & ""
set rs = Server.createObject("adodb.recordset")
strSQL = "SELECT * FROM login Where id = " & Session("id")
rs.Open strSQL, Conn, 1, 3
if rs("online") = "ja" then
x= rs("Onlinetid")
sek= x mod 60
min1=x\60
min=min1 mod 60
tim=x\60
If sek = "59" then
Onlinetid = rs("Onlinetid")+1
point = 1+rs("point")
rs.Update
rs("point") = point
rs("Onlinetid") = Onlinetid
rs("online") = "nej"
rs.Update
Session("Onlinetid") = Now
Response.write ".<meta http-equiv='refresh' content='0; url=login.asp'>"
else
Response.write("Du er ikke logget ind")
End if
End if
Conn.Close
Set Conn = Nothing
rs.close
set rs = nothing
%>
Skal lige siges, jeg har fundet alle 3 stykker online. Og blot mangler hjælp til at få dem til at hænge sammen så det virker som et samlet system.
Håber nogen af jer derude kan hjælpe mig