<% Set conn=Server.CreateObject("Adodb.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("test.mdb") Set Rs=Server.CreateObject("Adodb.Recordset") Rs.Open "Select Top 2 * From 表名",conn,0,1 Dim Array_str Array_str = rs.GetRows() Response.Write "第一条记录:<br>" Response.Write Array_str(0,0)&"<br>" Response.Write Array_str(1,0)&"<br>" Response.Write Array_str(2,0)&"<br>" Response.Write Array_str(3,0)&"<br>" Response.Write "第二条记录:<br>" Response.Write Array_str(0,1)&"<br>" Response.Write Array_str(1,1)&"<br>" Response.Write Array_str(2,1)&"<br>" Response.Write Array_str(3,1)&"<br>" %>