<%
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>
本文展示了一个使用ASP编写的简单登录系统示例。该系统通过连接到Access数据库验证用户名及密码,实现用户登录功能。文章提供了完整的源代码,包括数据库连接、用户验证逻辑等关键部分。
2121

被折叠的 条评论
为什么被折叠?



