<%
set conn=server.createobject("adodb.connection")
set rst=server.createobject("ADODB.recordset")
db="db1.mdb"
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db1.mdb")
Conn.Open connstr
username=trim(request.form("user"))
password=trim(request.form("password"))
sql="select * from login where user='"& username&"' and password='"& password &"'"
'user为字段名,
rst.Open sql,conn,1,3
if rst.eof then
response.redirect("error.htm")
else
response.redirect("main.htm")
end if
%>
<html>
<head >
<title>
登录系统
</title>
</head>
<body >
<form action ="login.asp" method =post >
请输入用户名:
<input type=text name =user><br >
请输入密码:
<input type =text name =password><br ><br >
<input type =submit value ="确定"><input type =reset value ="取消">
</form>
</body>
</html>