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