ASP+akses kode login pengguna, yang mana
nama basis data huiyuan.mdb
Nama Tabel Puser213
Daftar Pengguna Y_USERName, bidang Kata Sandi Y_Password.
halaman login.htm
<head>
<METAHTTP-EQUIV = Content-TypeContent = Teks/html;
<title> Login </iteme>
</head>
<body>
<p> </p>
<Formname = form1method = postaction = loginnew.asp>
<TableWidth = 200border = 1lign = centercellpadding = 0cellspacing = 0>
<tr>
<tdcolspan = 2> <divalign = center> login </div> </td>
</tr>
<tr>
<tdwidth = 57> <divalign = center> nama pengguna </div> </td>
<tdwidth = 137VaLign = top> <inputName = usernametype = teks
id = UserNamSize = 25> </td>
</tr>
<tr>
<td> <voLign = center> kata sandi </div> </td>
<tdvalign = top> <inputname = passwordType = kata sandi
Id = kata sandizeze = 25> </td>
</tr>
<tr>
<tdcolspan = 2> <divalign = center>
<inputType = submitName = SubMitValue = Submit>
</div> </td>
</tr>
</boable>
</form>
</body>
</html>
LoginNew.asp halaman web
<%
Nama dimusern, kata sandi
username = request.form (nama pengguna)
kata sandi = request.form (kata sandi)
setRs = server.CreateObject (adodb.oldset)
conn = dbq =+server.mappath (huiyuan.mdb)+;
Driver = {MicrosoftAccessDriver (*. MDB)};
SQL = SELECT*frombUser213 wherey_username = '& username &'
Rs.opensql, Conn, 1,1
ifrs.eofthen
response.write <script> waspada ('login login gagal "; history.back (); </script>
respons.end
kalau tidak
IFRS (y_password) <> kata sandi
response.write <script> waspada ('login login gagal "; history.back (); </script>
respons.end
endif
sesi (admin) = nama pengguna
response.write <script> alert ('Login Sukses');
endif
%>