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 这就是简单的操作
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
这就是简单的操作