Autor Zpráva
mikeov
Profil
Zdravím,

prosím vás, jak zajistím, aby po odhlášení uživatele z nějaké aplikace nedošlo po stisku tlačítka zpět v Internet Exploreru k jeho opětovnému přihlášení ? Děkuji.
roberta
Profil
ak máš robené prihlasovanie pomocou session premenných, tak pri prihlasovaní nastavíš session premennú na stav "prihlásený", pri odhlasovaní ju nastavíš na "odhlásený" a na každej stránke kontroluješ stav tej premennej. ak session premmená má stav "odhlásený", tak ho presmeruješ na prihlasovací formulár
mikeov
Profil
ahoj, ano, mám vytvorene a nastavene session, ale pri odhlaseni, kdy session nastavim na prazdny retezec, a presmeruju na uvodni stranku, pak dam zpet, tak jsem znovu prihlasen...co s tim ?
roberta
Profil
mikeov
a čo sa stane, keď dáš refresh stránky po stlačení zpet?
mikeov
Profil
zustanu prihlaseny
mikeov
Profil
soubor: tajne.asp

<html>
<head>
<title>Welcome</title>
</head>
<body bgcolor= #ffff99>
<%
dim intExec

'If not Len(Session("prihlaseny")) > 0 Then
'Response.Redirect("prihlaseni.asp")
'end if

intExec = Request.QueryString("exec")

select case intExec
case 1
Session("prihlaseny") = ""
Response.Redirect ("prihlaseni.asp")
case else
Response.Write("<h1 align=center>Vitejte</h1>")
Response.Write("<p align=center><a href='http://www.seznam.cz'>seznam</a></p>")
Response.Write("<p align=center><a href='tajne.asp?exec=1'>Odhlasit</a></p>")
end select
%>
</body>
</html>
mikeov
Profil
soubor: prihlaseni.asp

<html>
<head>
<title>Prihlaseni</title>
</head>
<body onload="formular.jmeno.focus()" bgcolor= #ffff99>
<%
dim intOK, strJmeno, strChyba, strHeslo

ConnectionString = "PROVIDER=MSDASQL;driver={SQL Server};server=ShrekComProMiS;database=otis;uid=compromis;pwd=cp8838"

session("prihlaseny") = ""

if len(request.Form("submit")) > 0 then

strJmeno = request.Form("jmeno")
strHeslo = request.Form("heslo")
intOK = 0

Set Conn = Server.CreateObject("ADODB.Connection")

conn.Open ConnectionString

strSQL = "SELECT * FROM prihlaseni WHERE " & _
"jmeno like'" & strJmeno & "' AND " & _
"heslo like'" & strHeslo & "' "

Set Rs = conn.Execute(strSQL)

If not Rs.EOF Then
intOK = 1
conn.Close
Set Rs = Nothing
Set conn = Nothing
end if

If intOK = 1 Then
intChyba = 0
Session("prihlaseny") = strJmeno
Response.Redirect("tajne.asp")
Else
intChyba = 1
End If
end if


if intChyba = 1 then
Response.redirect("chyba.asp")
end if

%>
<h1 align=center>Prihlaseni</h1>
<form action="prihlaseni.asp" name="formular" method="post" ID="Form1">
<table border="0" align=center ID="Table1">
<tr>
<td>Uživatelské jméno: </td>
<td><input type="text" size="20" name="jmeno" ID="Text1"></td>
</tr>
<tr>
<td>Heslo:</td>
<td><input type="password" size="20" name="heslo" ID="Password1"></td>
</tr>
</table>
<p align=center><input type="submit" value="LOGIN" ID="Submit1" NAME="Submit"></p>
</form>
</body>
</html>
esemeska
Profil
mikeov
to, co jsi sem dal studovat nebudu, ale ja v php delam ohlaseni pres specialni stranku, kde se do sessions ulozi treba 0 ...
Kdyz dam z5, tak zustanu odhlaseny, treba by to tak slo i v asp
mikeov
Profil
díky za tip....zkusím to
Toto téma je uzamčeno. Odpověď nelze zaslat.

0