ASP操作ACCESS数据库

ASP操作ACCESS数据库
操作数据库请按照下面的步骤来操作。

一、建立一个ACCESS数据库，使用设计器设计一个表，加一个字段，字段名为ID，数据类型为自动编号，再增加一个字段，名字为NAME，数据类型为文本，然后保存，保存表名为BOOK。关闭数据库，然后并把这个数据库文件名改为book.mdb。
二、建立一个文本文件，在里面输入如下信息
<%
' 连接数据库
dim ConnStr,Conn,rs,i
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("book.mdb") 
On Error Resume Next 
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr 
If Err Then 
Err.Clear
Set Conn = Nothing
response.write "数据库连接失败..."
Response.End()
End If

'查询数据库
Sql="select * from book order by id desc"
Set Rs = Server.CreateObject("Adodb.RecordSet")
Rs.Open Sql,Conn,1,1
if RS.eof then
response.write "还没有数据"
else
for i=0 to Rs.recordcount
if rs.eof then exit for
response.write "ID:"&RS("id")&" 名字："&RS("name")&""&chr(10)
next