ASP+アクセスユーザーログインコード
huiyuan.mdbデータベース名
puser213テーブル名
y_usernameユーザーリスト、y_passwordパスワードフィールド。
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> username </div> </td>
<tdwidth = 137valign = top> <inputname = usernametype = text
id = usernamesize = 25> </td>
</tr>
<tr>
<td> <divalign = center>パスワード</div> </td>
<tdvalign = top> <inputname = passwordType = password
id = passwordsize = 25> </td>
</tr>
<tr>
<tdcolspan = 2> <divalign = center>
<inputtype = submitname = submitvalue = submit>
</div> </td>
</tr>
</table>
</form>
</body>
</html>
loginnew.asp webページ
<％
Dimusername、パスワード
username = request.form（username）
パスワード= request.form（パスワード）
setrs = server.createObject（adodb.oldset）
conn = dbq =+server.mappath（huiyuan.mdb）+;
driver = {microsoftaccessdriver（*。mdb）};
sql = select*frombuser213wherey_username = '＆username＆'
rs.opensql、conn、1,1
ifrs.eofthen
Response.write <script> alert（ 'login login fail "; history.back（）; </script>
Response.End
それ以外
ifrs（y_password）<> passwordthen
Response.write <script> alert（ 'login login fail "; history.back（）; </script>
Response.End
endif
session（admin）= username
Response.Write <Script> alert（ 'login success'）;
endif
％>