asp连接access数据库验证密码

<%@ Language=VBScript %>
<%
Dim conn, rs, strSQL, username, password
username = Request.Form("username")
password = Request.Form("password")

' 连接字符串
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Database.mdb") & ";Jet OLEDB:Database Password=yourDatabasePassword"

' 创建连接对象
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connStr

' 创建记录集对象
Set rs = Server.CreateObject("ADODB.Recordset")

' 构建SQL查询
strSQL = "SELECT * FROM Users WHERE Username='" & username & "' AND Password='" & password & "'"

' 执行查询
rs.Open strSQL, conn

If Not rs.EOF Then
    Response.Write "登录成功！"
Else
    Response.Write "用户名或密码错误！"
End If

' 关闭连接
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>