dim conn As OleDbConnection
dim cmd As OleDbCommand
dim rs As OleDbDataReader
dim dbpath As String
dbpath= Server.MapPath("admin.mdb")
conn= New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source="&dbpath)
conn.Open()
cmd= New OleDbCommand("select title,content from diary",conn)
rs=cmd.ExecuteReader()
while rs.Read()
response.write( "<li>" )
response.write( rs("title") )
end while
这就是简单的操作