webForumDet fria alternativet

Loggas ut

ASPur ASP

0 svar · 157 visningar · startad av Jeppeweb

JeppewebMedlem sedan sep. 2006462 inlägg
#1

Tja. Har ett community. Kör ett script som gör så att om användare varit inaktiv i 15 min så loggas han ut, det för att användaren ska loggas ut automatiskt om den valt att bara klicka ned rutan.. Nu till problemet, det är så att jag loggas ut automatiskt, efter bara ca 1 minuts inaktivitet, det är inte alltid så.. men däromkring.. why?

<%
Response.Buffer = true

SQL = "Select * from ipblock where ip = '"&Request.ServerVariables("REMOTE_ADDR")&"'"
Set Rs = Connect.execute(SQL)
if Rs.eof then
else
Response.Redirect "blockad.asp"
end if

if Session("cminloggad") = "ja" then
	Connect.Execute("UPDATE medlemmar SET senastdatum = '"&Now&"' WHERE ID = '"&Session("cmID")&"'")

	tid1 = DateAdd("n",-20,Now())

	SQL = "Select * from medlemmar"
	Set Rs = Connect.execute(SQL)

	Do Until Rs.EOF
	if Rs("online") = "3" then
	else
		Connect.Execute("UPDATE medlemmar SET online = 0 WHERE senastdatum < '"&tid1&"' AND ID = '"&Rs("ID")&"'")
	end if
	Rs.MoveNext
	Loop
	rs.CLOSE : Set rs = nothing
	
	Set rs = Connect.execute("Select online From medlemmar WHERE ID = "&Session("cmID")&"")
	if rs("online") <> 1 then
		Session.Abandon 
		Response.Redirect "?"
	end if
	rs.CLOSE : Set rs = nothing
	Connect.CLOSE : Set Connect = nothing
else
	if Request.QueryString("page") <> "" and Request.QueryString("page") <> "1" then
		Session.Abandon 
		Response.Redirect "?"
	end if
end if%>

Tacksam för hjälp!

121 ms totalt · 3 externa anrop · v20260731065814-full.363dfaf6
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
118 ms — hämta tråd, inlägg och bilagor (db)