Αρχή :: Παραδείγματα :: Login     


Password προστασία σελίδων. 

Ίσως έχεις σελίδες που δεν θέλεις όλοι οι επισκέπτες να έχουν πρόσβαση σε αυτές. Με 3 κώδικα στις σελίδες που θέλεις να προστατέψεις θα μπορείς.


Πρώτα σε μία database (login97.mdb) δημιούργησε ένα νέο πίνακα και ονόμασε το tblLogin. Μετά δημιούργησε 2 πεδία, το ένα ονόμασέ το UserName και το άλλο Password. Δώσε και στα 2 πεδία user names και passwords για χρήστες.

Αν ο χρήστης δώσει στην φόρμα σωστό UserName και Password η μεταβλητή θα αλλάζει σε True και θα επιτρέπει την είσοδο σε προστατευόμενες σελίδες.  

Η φόρμα

<HTML>
<BODY>


<form name="Login" method="Post" action="login.asp">
<input type="text" name="
username" size="20"> UserName<br>
<input type="password" name="
password" size="20"> Password<br>
<input type="submit" name="btnLogin" value="Login">
</form>


</BODY>
</HTML>



Ονόμασε αυτή τη σελίδα main.htm η οτιδήποτε άλλο. 


Τώρα θα δημιουργήσουμε την ερώτηση που θα ελέγχει αν το user name και password είναι σωστά.

<%@ Language=VBScript %>
<% Response.Buffer = True %>


<HTML>
<BODY>


<%
UserName = Request.Form("username")
Password = Request.Form("password")

'διαβάζει τη φόρμα

Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" &Server.MapPath("login97.mdb") & ";user=;PASSWORD="


SQL = "Select * From tblLogin where username='" & username &"'"
Set RS = MyConn.Execute(SQL)

If (Not RS.EOF) AND UserName = RS("UserName") AND Password = RS("Password") Then
Session("allow") = True

%>

Εδώ ότι θέλετε 

<%
Else
Response.Redirect "http://www.yourdomain.com/main.htm"
RS.Close
MyConn.Close
Set RS = Nothing
Set MyConn = Nothing
End If
'αν υπάρχει λάθος πάμε πάλι στην φόρμα τον επισκέπτη
%>

</BODY>
</HTML>



Ονόμασε την σελίδα login.asp 


Και για το τέλος τοποθετήστε αυτές τις 3 γραμμές στο πάνω μέρος των σελίδων που θέλετε να προστατέψετε.
Προσοχή μην τοποθετήσετε το παρακάτω στην φόρμα η στο login.asp. 

<%@ Language=VBScript %>
<% Response.Buffer = True %>
<% If session("allow") = False Then Response.Redirect "
main.htm" %>


Αν δεν ονομάσατε την σελίδα σας main.htm τότε τοποθετήστε το σωστό εδώ αντί του main.htm


Tony Barnes







Η Εταιρία | Web Hosting | Domain names | Web Information | Υπηρεσίες | Resellers | Υποστήριξη |
Copyright © 2007–09 4GR.NETWORKS, All rights reserved.