Session update
Heey eksperter.Jeg har et brugersystem pt. som ser således ud:
<%
strConn = "Driver={MySQL ODBC 3.51 Driver};server=***;Database=***;uid=***;pwd=***;"
set Net= Server.CreateObject("ADODB.Connection")
Net.Open strConn
strIP = Request.ServerVariables("REMOTE_ADDR")
%>
<%
function login()
if session("BrugerID") = "" then
response.redirect("http://warsofrome.dk/v1/")
end if
end function
%>
<%
strUID = Trim(Replace(Request.form("username"),"'",""))
strPWD = Trim(Replace(Request.form("password"),"'",""))
Dim proxyIP, normalIP, strDato
proxyIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
normalIP = Request.ServerVariables("REMOTE_ADDR")
If proxyIP = doublequote Then
'Hvis brugeren ikke er bag en proxy server
strIp = normalIP
Else
'hvis brugeren er bag en proxy
strIp = proxyIP
End If
if strUID = "" OR strPWD = "" then
response.redirect("http://warsofrome.dk/v1/")
end if
Set rs = Net.Execute("SELECT * FROM brugere WHERE username = '" & strUID & "' AND password = '" & strPWD & "'")
If Not (rs.BOF Or rs.EOF) Then
intUID = rs("id")
UserName = rs("username")
Session("brugerid") = intUID
Session("username") = UserName
strSQL2 = "Update brugere set Online='Online' where id=" & intUID
Net.Execute(strSQL2)
set VHenter = Net.Execute("SELECT * FROM byinfo WHERE ejerid='" & session("brugerid") & "' ORDER BY bynavn asc")
if not VHenter.eof or VHenter.bof then
strRedirection = VHenter("id")
response.Redirect "Update.asp?Village="& strRedirection &""
Else
response.redirect("http://warsofrome.dk/v1/")
end if
%>
<% end if %>
<%
response.redirect("http://warsofrome.dk/v1/")
%>
Som default skulle en session gerne sætte sig selv med en timeout=20 minutter..
Men.. Af en eller anden grund bliver min session afbrudt i tide og utide..
Er der nogen der har en måde, at holde denne session opdateret på? Jeg mener - så den ikke bliver afbrudt så længe brugeren er online??
Jeg håber I forstår hvad jeg mener. Ellers spørg.
Med Venlig Hilsen
SilenceWar