数据库的连接：
%
datafile=data.mdb
set rs=server.createobject(adodb.connection)
conn=DRIVER={Microsoft Access Driver (*.mdb)}; data source= server.mappath( datafile )
rs.open conn
%
添加数据：
%
set rs=server.createobject(adodb.recordset)
sql=select*from tablename ’tablename为数据中表的名称
rs.open sql,conn,1,1
rs.addnew
rs(data1)=new1
rs(data2)=new2
rs(data3)=new3
……
rs(datan)=newn
rs.update
rs.close
conn.close
set rs=nothing
set sql=nothing
%
删除数据：
%
set rs=server.createobject(adodb.recordset)
sql=select*from tablename where del=del ’第二个del为你想要删除的数据
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write 数据不存在
else
rs.delete
response.write 数据已经删除
end if
%
数据查询：
%
set rs=server.createobject(adodb.recordset)
sql=select*from tablename where data=data ’第二个del为你想要查询的数据,也可为多个，用“，”号分开
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write 数据不存在
else
rs.delete
response.write rs(data) ’如果有多个相同的数据，这可用for ……next 循环语句
end if
%
数据显示：
%
set rs=server.createobject(adodb.recordset)
sql=select*from tablename
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write 数据库中没有数据
else
while not rs.eof
response.write rs(data1)
response.write rs(data2)
response.write rs(data3)
……
response.write rs(datan)
rs.movenext
wend
end if%