ASP+액세스 사용자 로그인 코드
huiyuan.mdb 데이터베이스 이름
PUSER213 테이블 이름
y_username 사용자 목록, y_password 비밀번호 필드.
로그인 .htm 페이지
<헤드>
<metahttp-equiv = content-typecontent = 텍스트/html;
<title> 로그인 </title>
</head>
<body>
<p> </p>
<formname = form1method = postaction = loginnew.asp>
<tablewidth = 200border = 1align = centerCellPadding = 0CellSpacing = 0>
<tr>
<tdcolspan = 2> <divalign = center> 로그인 </div> </td>
</tr>
<tr>
<tdwidth = 57> <divalign = center> username </div> </td>
<tdwidth = 137valign = top> <inputname = usernametype = text
id = usernamesize = 25> </td>
</tr>
<tr>
<td> <divalign = center> 비밀번호 </div> </td>
<tdvalign = top> <inputname = passwordType = 비밀번호입니다
id = passwordsize = 25> </td>
</tr>
<tr>
<tdcolspan = 2> <divalign = center>
<inputtype = admbername = 제출 value = 제출>
</div> </td>
</tr>
</테이블>
</form>
</body>
</html>
loginnew.asp 웹 페이지
<%
dimusername, 비밀번호
username = request.form (사용자 이름)
password = request.form (비밀번호)
setrs = server.createobject (adodb.oldset)
conn = dbq =+server.mappath (huiyuan.mdb)+;
드라이버 = {microsoftaccessdriver (*. mdb)};
sql = select*frombuser213wherey_username = '& username &'
Rs.Opensql, Conn, 1,1
ifrs.eofthen
response.write <Script> Alert ( '로그인 로그인 실패 "; history.back (); </script>
응답. 엔드
또 다른
ifrs (y_password) <> passwordthen
response.write <Script> Alert ( '로그인 로그인 실패 "; history.back (); </script>
응답. 엔드
endif
세션 (admin) = 사용자 이름
Response.write <Script> ALERT ( '로그인 성공');
endif
%>