Código de login do usuário do ASP+Access, do qual
Nome do banco de dados huiyuan.mdb
Nome da tabela PUSER213
Lista de usuários do nome Y_USERNEN, Y_PASPWORD Senha.
Página login.htm
<head>
<metahttp-equiv = 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> nome de usuário </div> </td>
<tdWidth = 137Valign = top> <inputName = userNameType = texto
id = userNamesize = 25> </td>
</tr>
<tr>
<Td> <divalign = Center> senha </div> </td>
<tdvalign = top> <inputName = senhaType = senha
Id = senhoraSize = 25> </td>
</tr>
<tr>
<tdcolspan = 2> <divalign = Center>
<inputType = submitName = submitValue = submeter>
</div> </td>
</tr>
</tabela>
</morm>
</body>
</html>
página da web loginnew.asp
<%
Dimusername, senha
nome de usuário = request.form (nome de usuário)
senha = request.form (senha)
setrs = server.createObject (adodb.oldset)
Conn = dbq =+server.mappath (huiyuan.mdb)+;
Driver = {MicrosoftAccessDriver (*. MDB)};
Sql = selecione*frombuser213wherey_username = '& nome de usuário &'
Rs.opensql, Conn, 1,1
ifrs.eofthen
Response.Write <Cript> alert ('Log -in Login Fail "; History.back (); </script>
resposta.END
outro
ifrs (y_password) <> senha
Response.Write <Cript> alert ('Log -in Login Fail "; History.back (); </script>
resposta.END
endif
sessão (admin) = nome de usuário
Response.Write <Cript> Alert ('Login Sucesso');
endif
%>