Sætte tid system op for mig!
Hejsa.Jeg har bygget mit eget community, og er glad for det.
Jeg fandt et "tjen minutter" system op intetnettet.
Her er koden:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Thomsen Count</title>
<title></title>
<link rel="STYLESHEET" type="text/css" href="style.css" />
</head>
<body>
Efter et stykke tid klik på linket her under ....
<a href="count.asp?m<%
mode = request("mode")
if mode = "" then
session("loggetpaa") = time
%>ode=count">Count</a>
Den skulle så vise det antal minuter der er gået siden du loadede count.asp .....
<%
end if
%>
<%
if mode = "count" then
%>
<%
Function Plus(tal1,tal2)
Plus = tal2 + tal1
End Function
%>
<%
set conn = server.createobject("ADODB.connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
strSQL = "SELECT * FROM bruger WHERE id=" & session("id")
set RS = conn.execute( SQL )
if RS.eof then
response.write " Databasen er tom"
else
do while not Rs.eof
Response.Write ""& Plus(datediff("n", session("loggetpaa"), time),RS("tid"))
Response.Write " Minutter online i alt!"
RS.movenext
loop
end if
set conn = nothing
%>
Gem:
<a href="count.asp?mode=save">gem</a>
<%
end if
%>
<p>
<%
if mode = "save" then
%>
<%
Function Plus(tal1,tal2)
Plus = tal2 + tal1
End Function
%>
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db.mdb") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM bruger WHERE id=" & session("id")
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
rs.Update
rs("Tid") = ""& Plus(RS("tid"),datediff("n", session("loggetpaa"), time))&""
rs.Update
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
%>
Sådan :)
<%
end if
%>
