Avatar billede zetn Nybegynder
14. juni 2003 - 23:55 Der er 13 kommentarer og
1 løsning

2 timer udtræk

Hej.
Jeg skal requeste alle de logins der er sket de sidste 2 timer, hvordan gør jeg det.

fx. 14-06-2003 23:52:45 bliver vist
15-06-2003 12:52:45 bliver IKKE vist da det ikke er 2 timer fra now.

ER det forståeligt?

med venlig hilsen
Jacob Wulff
Avatar billede kovalt Nybegynder
14. juni 2003 - 23:57 #1
hvordan ligger loginsne registreret - i en DB eller?
Avatar billede zetn Nybegynder
14. juni 2003 - 23:58 #2
ja. under kolonnen "sidstset"
Avatar billede zetn Nybegynder
15. juni 2003 - 00:01 #3
dvs. det er en SQL sætning jeg mangler
Avatar billede kovalt Nybegynder
15. juni 2003 - 00:05 #4
prøv den her:

strSQL = "SELECT sidstset FROM tabelnavn WHERE sidstset > Hour-2"
Avatar billede zetn Nybegynder
15. juni 2003 - 00:07 #5
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/udvikling/admin.asp, line 3756
Avatar billede kovalt Nybegynder
15. juni 2003 - 00:08 #6
hvad hedder din tabel?
Avatar billede zetn Nybegynder
15. juni 2003 - 00:08 #7
kunder
Avatar billede kovalt Nybegynder
15. juni 2003 - 00:09 #8
hvilket format har sidstset er det dd-mm-yyyy hh:mm:ss eller?
Avatar billede zetn Nybegynder
15. juni 2003 - 00:10 #9
15-06-2003 12:52:45
Avatar billede kovalt Nybegynder
15. juni 2003 - 00:12 #10
så prøv det her:

Dim date
date = now()
dateMinus = DateAdd("h",-2,date)

strSQL = "SELECT sidstset FROM tabelnavn WHERE sidstset > #"& dateMinus &"#"
Avatar billede zetn Nybegynder
15. juni 2003 - 00:14 #11
Får ingen udtræk, men heller ingen fejl. Noget kunne tyde på den bedte om det forkerte?
Avatar billede kovalt Nybegynder
15. juni 2003 - 00:22 #12
prøv lige at skriv:

response.write strSQL

og se om det ikke er den rigtige dato og klok der kommer ud
Avatar billede askeb Nybegynder
15. juni 2003 - 00:39 #13
Et par funktioner der gør at du får det rigtige output:

Function Nul(intTal)
  If Len(intTal) = 1 Then
    intTal0 = 0 & intTal
  Else
    intTal0 = intTal
  End If

  Nul = intTal0
End Function

Function MakeDate(Format)
      Format = Replace(Format, "dd", Nul(Day(Date)))
      Format = Replace(Format, "mm", Nul(Month(Date)))
      Format = Replace(Format, "yyyy", Nul(Year(Date)))
      Format = Replace(Format, "hh", Nul(Hour(Time)))
      Format = Replace(Format, "nn", Nul(Minute(Time)-5))
      Format = Replace(Format, "ss", Nul(Second(Time)))
MakeDate = Format
End Function

Set rs = Conn.execute("select * from users where sidstset > '" & makedate("dd-mm-yyyy hh:nn:ss") & "'")
Avatar billede hossein Nybegynder
15. juni 2003 - 13:04 #14
Hvis du vil vise data'er i de sidste 2 timer:

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
minTid = DateAdd("h", -2, Now)
Set Conn=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.recordset")
Conn.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="&server.Mappath("minDB.mdb"))

SQL="SELECT * FROM Mintabel where sidstset > #"&mintid&"#"
rs.Open SQL, conn, 1, 3

do while not rs.EOF
Response.Write rs("sidstset")%><br>
<%
rs.MoveNext
loop%>
<P><P>
<%
Response.Write now
%>
</BODY>
</HTML>
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