Benutzeranmeldungsüberprüfungsskript, chkpwd.asp
<%
'======== Benutzeranmeldung Überprüfungsskript =========.
„Wenn das übergebene Objekt nicht definiert ist, definiert es es als falsch und zeigt an, dass es die Überprüfung nicht bestanden hat
Wenn isempty (Sitzung (bestanden)) dann
Sitzung (bestanden) = falsch
Ende wenn
'Sitzung (bestanden) = Falsch, was darauf hinweist
Wenn Sitzung (bestanden) = false dann
Benutzername = Request.Form (Benutzername)
Userpwd = request.form (userPWD)
Wenn Benutzername = dann
Errmsg = Eingabeaufforderung: Bitte geben Sie den Benutzernamen und das Kennwort ein
Anders
'=================== connect database ==================
Setzen Sie conn = server.createObject (adodb.Connection)
Conn.ConnectionString = {SQL Server};
Conn.open
'=================== read user data ====================
'Definieren Sie das Recordset -Objekt
Setzen Sie rs = server.createObject (adodb.oldset)
'Verbindungsobjektverbindungsstring setzen
Setzen Sie rs.ActiveConnection = conn
'Setzen Sie den Cursortyp
rs.cursortype = 3
'Öffnen Sie den Rekordsatz
Rs.oopen -Benutzername, Passwort von Erpuseer, wo username = '& userername &'
'===============================================
Wenn rs.eof dann
ERRMSG = TIPP: Benutzer existieren nicht oder Kennwortfehler
Anders
Wenn userPWD <> rs.fields (Passwort) dann
Errmsg = Tipp: Melden Sie sich an!
Sonst 'login erfolgreich
Errmsg =
Sitzung (bestanden) = true
Sitzung (Benutzername) = Rs.Fields (Benutzername)
'Identifizieren Sie die Sitzung der Benutzerberechtigungen (userID) = rs.fields (userId)
Ende wenn
Ende wenn
Ende wenn
Ende wenn
'Nachdem die Anmeldung nicht erfolgreich ist, wird das Anmeldesformular gezeichnet
Wenn nicht Sitzung (bestanden) = wahr dann
%>
<html>
<Head> <titels> Nicht -Title -Dokument </title>
<Style type = text/css>
<!-
.Style1 {Schriftart: 12px;
->
</style>
<Style type = text/css>
<!-
.Style2 {Schriftgröße: 12px;
->
</style>
</head>
<body linksmargin = 0 Topmargin = 0 marginHeight = 0 marginwidth = 0 bgcolor =#000000>
<Div id = parent ckground- color: #ffffff>
<div id = dingglu style = font-size: 12px;
<Form action = <%= request.servervariables (path_info)%> method = post name = myForm id = myForm>
<p class = style1> Benutzername: <Eingabename = Benutzername Typ = Text ID = Benutzername Größe = 18 MaxLength = 20>
</p>
<p class = style1> Passwort: <Eingabe name = userpwd type = kennwort id = userpwd size = 18 maxLength = 20>
</p>
<p Align = Center class = style2> <%= errmsg%> </p>
<p>
<Eingabe type = Senden Align = mide name = Senden Wert = Anmeldesystem>
<Eingabename = Rege Type = Taste Align = Middle Onck = location = 'register.asp' id = Rege value = registriertem Benutzer>
</p>
</form>
</div>
</body>
</html>
<%
'<p class = style1> Überprüfungscode: <Eingabename = checkCode type = text id = checkCode size = 6 maxLength = 4>
'<Img style = margin-right: 40px alt = src = Common/getCode.asp> </p>
Antwort.end
Ende wenn
%>
Seite erp.asp zu besuchen
<!-#include file = chkpwd.asp->
<body>
<Div style = 'Schriftgröße: 12px;
<%
Wenn Sitzung (bestanden) = true dann
Antwort.Write (Sitzung (Benutzername))
Ende wenn
%> <A href = logout.asp> Exit -System </a>
</div>
</body>
Jedes Mal, wenn Sie ERP.asp eröffnen, führen Sie zuerst CHKPWD.asp () aus, wodurch nicht authorisierte Benutzer auf bestimmte Webseiten zugreifen können.
Logout.asp System Exit
<body>
<%
Sitzung (bestanden) = falsch
Sitzung (Benutzername) =
Antwort.Redirect (index.asp)
%>
</body>
Verwenden Sie das Bild, um das Formular einzureichen
<Formular name = Form1 Methode = post action =>
<td align = rechts> <Eingabe type = Bildmethode = Senden Name = Senden src = Bild/loginin.gif width = 70 hoh Höhe = 21 Alt = Senden> </td>
</form>