|
| forlænge login uden aktivitet Fra : Maddog_dk | Vist : 1205 gange 200 point Dato : 05-08-09 14:13 |
|
Hej
Jeg har en hjemmeside kørende med et login script, hvilket også virker - men har man været inaktiv i nogle minutter skal man logge på igen. Jeg vil gerne forlænge tiden inden den logger automatisk af, men kan ikke se mig ud af dette problem.
Jeg håber der sidder en der ude som har tid til at se lidt på min koder.......
///////////////////////////////////////////////////
default.asp - (siden hvor login oplysninger skrives af brugeren)
<td style="width: 464px" valign="top">
<form name="Login" method="post" action="bruger.asp">
Login form<br>
</span>Write username and password<br>
<br>
<fieldset style="width: 252px; height: 191px">
<table width="129%" id="table1" class="style1" style="height: 80px">
<tr>
<td style="width: 81px" valign="top">
<label for="t1"> Username: </label></td>
<input type="text" id="t1" name="txtUserName" size="29" style="height: 20px" /></td>
<td style="width: 81px" valign="top">
<label for="t2"> Password: </label></td>
<input type="password" id="t2" name="txtUserPass" size="30" style="height: 20px" /></td>
</table>
</fieldset>
///////////////////////////////////////////////////////////////
bruger.asp (bruger login kontrolleres)
<%
Dim adoCon
Dim strCon
Dim rsCheckUser
Dim strAccessDB
Dim strSQL
Dim strUserName
strUserName = Request.Form("txtUserName")
strAccessDB = "XXXXXX.mdb"
Set adoCon = Server.CreateObject("ADODB.Connection")
strCon = "DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=letmein; DBQ=" & Server.MapPath(strAccessDB)
adoCon.Open strCon
Set rsCheckUser = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM tblUsers WHERE tblUsers.UserID ='" & replace(strUserName, "'", "''") & "'"
rsCheckUser.Open strSQL, strCon
If NOT rsCheckUser.EOF Then
If (Request.Form("txtUserPass")) = rsCheckUser("Password") Then
Session("blnIsUserGood") = True
if rsCheckUser("STATUS") = 0 then session("login")="0"
if rsCheckUser("STATUS") = 1 then session("login")="1"
if rsCheckUser("STATUS") = 2 then session("login")="2"
if rsCheckUser("STATUS") = 3 then session("login")="3"
if rsCheckUser("STATUS") = 5 then session("login")="5"
Set adoCon = Nothing
Set strCon = Nothing
Set rsCheckUser = Nothing
Response.Redirect"index.asp?name=" & strUserName
End If
End If
Set adoCon = Nothing
Set strCon = Nothing
Set rsCheckUser = Nothing
Session("blnIsUserGood") = False
Response.Redirect"fejl.asp"
%>
///////////////////////////////////////////////////////////////////////////
index.asp (følgende kode er på alle sider der er beskyttet af password)
<%
If Session("blnIsUserGood") = False or IsNull(Session("blnIsUserGood")) = True then
Response.Redirect"fejl.asp"
End If
%>
<%
Response.Buffer=False
Response.ExpiresAbsolute = #1980-01-01#
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "cache-control", "no-cache"
Response.AddHeader "cache-control", "no-store"
Response.CacheControl = "Private"
%>
hvor ligger "timer" indstillingen henne?????
Med venlig hilsen
Maddog
| |
| Accepteret svar Fra : smorch | Modtaget 210 point Dato : 05-08-09 14:23 |
|
i bruger.asp kan du sætte
Session.Timeout = 10
ind i en linie for sig selv - 10 er antal minutter en session kan vare. Standard er 20 minutter på de fleste servere, men på hoteller kommer det an på hvad udbyderen har sat det til.
| |
| Kommentar Fra : Maddog_dk |
Dato : 05-08-09 14:25 |
|
Hov var lidt for hurtig til at sende....
Response.ExpiresAbsolute = #1980-01-01#
mit gæt er at det er denne linje - men hvad skal den ændres til, hvis der evt. skal gå 3 timer inden man bliver logget af?
/Maddog
| |
| Kommentar Fra : Maddog_dk |
Dato : 05-08-09 14:26 |
|
OK Smorch
du var lige lidt hurtigere end jeg , jeg prøver lige dit forslag med det samme
| |
| Godkendelse af svar Fra : Maddog_dk |
Dato : 05-08-09 19:01 |
|
Tak for svaret smorch. det var lige det jeg skulle bruge
/Maddog
| |
| Du har følgende muligheder | |
|
Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.
Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.
| |
|
|