<%@ Page Language="VB"%> <%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.ADO" %> <script language="VB" runat="server"> Sub search_OnClick(Sender As Object, E As EventArgs) '这底下的语句告诉我们,在ASp+ 中我们终于可以 放弃variant 这种效率低下的数据类 型了 Dim connobj As ADOConnection Dim dtsCmdobj As ADODataSetCommand Dim dtSobj As DataSet Dim str_sql As String dim conn_str As String str_sql = "select * from table_name" conn_str = "DBQ=" & Server.MapPath("database.mdb") &_ ";Driver={Microsoft Access Driver (*.mdb)};" connobj = New ADOConnection(conn_str) dtsCmdobj = New ADODataSetCommand (str_sql, connobj) dtSobj = New DataSet() dtsCmdob.FillDataSet(dtsobj, "test") dtgrid.D