补充一下
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_liu_STRING
Recordset1.Source = "SELECT * FROM main ORDER BY id ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
Recordset1.ActiveConnection = MM_liu_STRING 这个是第八行
下边这个是connection中的liu.asp中的内容
<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_liu_STRING
MM_liu_STRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\文学天地\wenxue\data\data.mdb"
%>
[此贴子已经被作者于2007-6-30 9:38:37编辑过]