ASP + Access Utilising Codin Code, dont
Nom de la base de données Huiyuan.mdb
Nom de table Puser213
Y_USERNAME Liste d'utilisateurs, champ de mot de passe Y_PASSWORD.
Page login.htm
<adal>
<Metahttp-Equiv = Content-TypeContent = Text / HTML;
<Title> Connexion </TITME>
</ 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> Nom d'utilisateur </div> </td>
<tdWidth = 137Valign = top> <inputName = userNameType = Text
id = nom d'utilisateur = 25> </td>
</tr>
<tr>
<td> <divalign = Center> Mot de passe </div> </td>
<tdvalign = top> <inputName = PasswordType = mot de passe
Id = mot de passe = 25> </td>
</tr>
<tr>
<tdcolspan = 2> <divalign = Center>
<portType = soumidName = soumidValue = soumed>
</div> </td>
</tr>
</ table>
</ form>
</docy>
</html>
Page Web Loginnew.asp
<%
Diminname, mot de passe
username = request.form (nom d'utilisateur)
mot de passe = request.form (mot de passe)
setrs = server.createObject (adodb.oldset)
Conn = dbq = + server.mappath (huiyuan.mdb) +;
Driver = {MicrosoftAccessDriver (*. MDB)};
SQL = SELECT * NUBUSER213WOHEY_USERNAME = '& Username &'
Rs.OpenSQL, Conn, 1,1
ifrs.eofthen
Response.Write <Script> alert ('Connexion dans l'échec de la connexion "; historique.back (); </cript>
réponse.
autre
ifrs (y_password) <> mot de passe
Response.Write <Script> alert ('Connexion dans l'échec de la connexion "; historique.back (); </cript>
réponse.
endire
Session (admin) = nom d'utilisateur
Response.Write <Script> alert ('Login Success');
endire
%>