请给出asp与ado得范例

下面是一个使用ASP和ADO连接数据库并显示数据的简单示例：

<%
' 创建ADO连接对象
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")

' 指定连接字符串
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\data\mydatabase.mdb"

' 打开数据库连接
conn.Open

' 执行SQL查询
Dim rs
Set rs = conn.Execute("SELECT * FROM mytable")

' 遍历查询结果并输出
Do While Not rs.EOF
    Response.Write rs("field1") & " " & rs("field2") & "<br>"
    rs.MoveNext
Loop

' 关闭记录集和数据库连接
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>

该示例首先创建了一个ADO连接对象，并指定连接字符串，然后打开数据库连接。然后它执行了一个SQL查询，在循环中遍历查询结果并输出到Web页面上。最后，它关闭了记录集和数据库连接对象。

请注意，上述示例代码仅供参考，实际情况中需要根据具体的数据库和表结构进行修改。