需要在book.mdb建立一个表叫table1
两个字段
id 数字型 自增加
name varchar(100)
<%
Dim conn
set conn=server.createobject("ADODB.connection")
conn.connectionstring="Provider=microsoft.JET.OLEDB.4.0;" &_
"data source=" & server.mappath("BOOK.MDB")
conn.open
sql="select * from table1"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,2,1
response.write "
" & rs("id") & " | "" & rs("name") & | "