asp 中连接 access 数据库查询数据的语句

在ASP（Active Server Pages）中，连接到Access数据库并查询数据通常需要利用ADO（ActiveX Data Objects）技术。以下是一个基本的例子，展示如何使用VBScript编写连接和查询的代码：

<% ' 创建一个记录集对象
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")

' 连接到Access数据库（假设名为"MyDatabase.accdb"）
Dim connStr
connStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Server.MapPath("~\MyDatabase.accdb") & ";Mode=Read;"
Set rs = Server.CreateObject("ADODB.Recordset", "", , connStr)

' 执行SQL查询（这里以获取表"Employees"的所有数据为例）
rs.Open "SELECT * FROM Employees", rs

' 显示查询结果
If Not rs.EOF Then
    While Not rs.EOF
        Response.Write(rs("EmployeeName") & "<br>") ' 你可以遍历所有的字段
        rs.MoveNext
    Wend
Else
    Response.Write("No data found.")
End If

' 关闭记录集
rs.Close
Set rs = Nothing
%>