Napraviš dvije .asp stranice. Jednu nazoveš login.asp a drugu logout.asp
napraviš bazu u access .mdb sa dvije kolone username i userpwd
Na sam vrh svake stranice za koju želiš da bude "pod lozinkom" staviš:
<%
Response.Expires = -1 ' 'Postaviš da browser ne kešira sadržaj
Response.Buffer = True 'Ubaciš u buffer da response.redirect radi
If Session("UserLoggedIn") <> "true" Then
Response.Redirect("login.asp")
End If
%>
********************************************************
login.asp sljedi ispod:
<%
Response.Expires = -1 'Postaviš da browser ne kešira sadržaj
Response.Buffer = True 'Ubaciš u buffer da response.redirect radi
Dim Error_Msg
login = Request.Form("login")
If login = "logout" Then
Session("UserLoggedIn") = ""
ShowLogin
Else
If Session("UserLoggedIn") = "true" Then
AlreadyLoggedIn
Else
If login = "true" Then
CheckLogin
Else
ShowLogin
End If
End If
End If
Sub ShowLogin
Response.Write(Error_Msg & "<br>")
%>
<link href="css/cssstiles.css" rel="stylesheet" type="text/css">
<form name=form1 action=login.asp method=post>
<div align="center">
<p class="slova1">Korisnik :
<input type=text name=username>
<br>
Lozinka :
<input type=password name=userpwd>
<br>
<input type=hidden name=login value=true>
<input type=submit value="Ulaz">
</p>
</div>
</form>
<span class="slova2">
<%
End Sub
Sub AlreadyLoggedIn
%>
Već ste prijavljeni na administracijske stranice. Želite li se odjaviti i prijaviti
kao novi korisnik? </span>
<form name=form2 action=login.asp method=post>
<input type=submit name=button1 value="Da">
<input type=hidden name=login value="logout">
</form>
<%
End Sub
Sub CheckLogin
Dim Conn, cStr, sql, RS, username, userpwd
username = Request.Form("username")
userpwd = Request.Form("userpwd")
Set Conn = Server.CreateObject("ADODB.Connection")
cStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("baze\admin.mdb") & ";" & _
"Persist Security Info=False"
Conn.Open(cStr)
sql = "select username from korisnici where username = '" & LCase(username) & "'"
sql = sql & " and userpwd = '" & LCase(userpwd) & "'"
Set RS = Conn.Execute(sql)
If RS.BOF And RS.EOF Then
Error_Msg = "Neuspješna prijava. Pokušajte ponovno."
ShowLogin
Else
Session("UserLoggedIn") = "true"
Response.Redirect "pozdravna_stranica.asp"
End If
End Sub
%>
********************************************************
logout.asp sljedi ispod:
<%
Session.Abandon ()
Response.Redirect ("neka_stranica.htm")
%>
Nadam se da pomaže. (...to ne ide na stranicu) ... (šala!)
Nauči kod barem malo pa onda upotrebljavaj visualne alate da si olakšaš, kao što ih koristiš u Dreamweaver-u. Jer ionako, složenije stvari (čitaj elegantnije) nećeš moći izvesti alatima.
Hvala najljepša!