asp怎样链接access数据库

 <%
  Set conn = Server.CreateObject("ADODB.Connection")
  conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("test.mdb") 

         set rs=server.CreateObject("adodb.recordset")  (建立recordset对象)
         sqlstr="select * from 表名"  ---->(message为数据库中的一个数据表，即你要显示的数据所存放的数据表)
         rs.open sqlstr,conn,1,1         ---->(表示打开数据库的方式)
         do while not rs.eof                ---->(判断指针是否到末尾)
         response.write(rs("name"))      ---->(显示数据表message中的name字段)
         rs.movenext                     ---->(将指针移动到下一条记录)
         loop                     ---->(循环结束)
------------------------------------------------------         
         rs.close
         conn.close                    这几句是用来关闭数据库
         set rs=nothing
         set conn=nothing
-------------------------------------------------------
        %>