ASP+Código de inicio de sesión del usuario de ASP+de acceso, del cual
nombre de la base de datos huiyuan.mdb
Nombre de la tabla Puser213
Lista de usuarios Y_USERNAME, campo de contraseña Y_Password.
página de inicio de sesión.htm
<Evista>
<metahttp-oquiv = content-typeContent = text/html;
<title> Iniciar sesión </title>
</ablo>
<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> nombre de usuario </div> </td>
<tdwidth = 137Valign = top> <inputName = usernameType = text
id = usernamesize = 25> </td>
</tr>
<tr>
<TD> <divalign = center> contraseña </div> </td>
<tdvalign = top> <inputName = PasswordType = Password
Id = contraseña = 25> </td>
</tr>
<tr>
<tdcolspan = 2> <divalign = center>
<inputType = SubmitName = SubtitValue = Subt>
</div> </td>
</tr>
</table>
</form>
</body>
</html>
Página web loginnew.asp
<%
Dimusername, contraseña
UserName = request.Form (nombre de usuario)
contraseña = request.form (contraseña)
setrs = server.createObject (ADODB.Oldset)
conn = dbq =+server.mappath (huiyuan.mdb)+;
Controlador = {MicrosoftAccessDriver (*. Mdb)};
Sql = select*fromBuser213 dondey_username = '& username &'
Rs.opensql, Conn, 1,1
IFRS.EOFTHEN
Response.Write <Script> Alert ('Iniciar sesión de inicio de sesión "; History.Back (); </script>
respuesta.
demás
IFRS (y_password) <> contraseña
Response.Write <Script> Alert ('Iniciar sesión de inicio de sesión "; History.Back (); </script>
respuesta.
endif
sesión (admin) = nombre de usuario
Response.Write <Script> Alert ('Secorable de inicio de sesión');
endif
%>