& lt%
set conn = server . createobject(" adodb . connection ")
conn . open " driver = { Microsoft access driver(*。MDB)}；dbq = " & ampServer.mappath("數據庫")
% & gt
第壹句定義了壹個adodb數據庫連接組件，第二句連接您的數據庫。
& lt%
Exec="select * from數據庫表名"
set RS = server . createobject(" adodb . recordset ")
康涅狄格州，1，1
% & gt
這三句加在前兩句之後。
第壹句話:設置命令查詢數據庫。select後面是字段。如果要查詢所有內容，請使用*，from後跟表名。
第二句話:定義壹個記錄集組件，所有搜索到的記錄都放在這個組件中。
第三句:要打開這個記錄集，exec是前面定義的查詢命令，conn是前面定義的數據庫連接組件，後面的參數是“1，1”，就是reading。
& lt% do while not rs.eof % & gt
...
& lt%
rs.movenext
環
% & gt
& lt%=rs("字段名稱")% & gt
With do loop，not rs.eof表示條件是記錄集的結尾沒有被讀取，rs.movenext表示顯示壹條記錄後，轉到下壹條記錄。
主要用於顯示字段變量。
例如，創建壹個頁面來讀取數據庫記錄。
用access2000建立數據庫db1和表biao1。字段:id(自動編號)、姓名(文本)、qq(號碼)、內容(備註)、時間(時間、日期/默認值now())。
頁面代碼是:
& lt%
set conn = server . createobject(" adodb . connection ")
conn . open " driver = { Microsoft access driver(*。MDB)}；dbq = " & ampserver.mappath("db1.mdb ")
% & gt
& lt%
exec = " select * from Biao 1 order by id desc "
set RS = server . createobject(" adodb . recordset ")
康涅狄格州，1，1
% & gt
& lt% do while not rs.eof % & gt
& lt% = RS(" id ")% & gt；& lt% = RS(" name ")% & gt；& lt% = RS(" QQ ")% & gt；& lt% = RS(" nei Rong ")% & gt；& lt% = RS(" time ")% & gt；& ltbr & gt
& lt%
rs.movenext
環
% & gt