ASP+Zugriffs -Benutzeranmeldescode, von denen
huiyuan.mdb Datenbank Name
PUSER213 TABLE -Name
Y_username Benutzerliste, y_password Passwort Feld.
login.htm Seite
<kopf>
<metahttp-äquiv = content-typecontent = text/html;
<title> Login </title>
</head>
<body>
<p> </p>
<Formname = form1Method = postaction = loginNew.asp>
<Tablewidth = 200Border = 1Align = centerCellpadding = 0CellSpacing = 0>
<tr>
<tdcolspan = 2> <divalign = center> Login </div> </td>
</tr>
<tr>
<tdwidth = 57> <divalign = center> Benutzername </div> </td>
<tdwidth = 137Valign = top> <inputName = usustAmetype = text
id = userernamesize = 25> </td>
</tr>
<tr>
<td> <divalign = center> Passwort </div> </td>
<tdvalign = top> <inputName = passwordtype = password
Id = passwordsize = 25> </td>
</tr>
<tr>
<tdcolspan = 2> <divalign = center>
<InputType = Subjekt
</div> </td>
</tr>
</table>
</form>
</body>
</html>
loginnew.asp -Webseite
<%
Dimusername, Passwort
Benutzername = Request.Form (Benutzername)
password = request.form (Passwort)
setRs = server.createObject (adodb.oldset)
conn = dbq =+server.mappath (huiyuan.mdb)+;
Driver = {MicrosoftAccessDriver (*. Mdb)};
SQL = SELECT*AUSBUSER213WOYY_USERNAME = '& Benutzername &'
Rs.opensql, Conn, 1,1
ifrs.eofthen
response.write <Script> alert ('Anmeldung in Anmeldung fehlgeschlagen "; history.back (); </script>
Antwort.end
anders
IFRS (y_password) <> passwordthen
response.write <Script> alert ('Anmeldung in Anmeldung fehlgeschlagen "; history.back (); </script>
Antwort.end
Endif
Sitzung (admin) = Benutzername
response.write <Script> alert ('Anmelderfolg');
Endif
%>