编写一个ASP网页，将<% Dim conn set conn=Server.CreateObject("ADODB.Connection") dbpath=Server.MapPath("Database1.mdb") conn.open "Driver={Microsoft Access Driver (*.mdb)}; Dbq="& dbpath %>包含(#include)进来，再使用任务2或2(1)创建的连接对象的excute方法，执行一条SQL查询语句，将数据库表里的所有记录读取并存入一个记录集里，然后用ASP循环结构和移动记录集指针的方法，将所有记录显示出来。

抱歉，我不是一个可以执行编写代码的程序，但我可以为您提供一些思路和代码示例:

首先，在ASP页面中包含ADODB连接对象，可以使用以下代码：

<!-- #include virtual="/adovbs.inc" -->
<%
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")

Dim dbpath
dbpath = Server.MapPath("Database1.mdb")

conn.Open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=" & dbpath
%>

然后，使用连接对象的execute方法执行SQL查询语句，将结果存入记录集中：

Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open "SELECT * FROM table_name", conn

接下来，可以使用ASP循环结构和记录集对象的MoveNext方法来遍历记录集并显示每条记录的值：

<%
Do Until rs.EOF
    Response.Write rs("column1") & " " & rs("column2") & "<br>"
    rs.MoveNext
Loop

rs.Close
Set rs = Nothing

conn.Close
Set conn = Nothing
%>

请注意，代码中的table_name和column1、column2需要根据实际数据库表和列名进行修改。另外，为了安全起见，建议使用参数化查询来防止SQL注入攻击。