6、Recordset对象操作数据库语法
取出news表中前6条数据放到rs中
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select top 6 * from news"
Rs.Open SqlStr,conn,1,1
3、循环语句：循环显示6条数据库中的记录
写法二：
do while not rs.eof
response.write rs("title")&"< br>"
rs.movenext
loop
5、Access数据库连接代码
方法二：
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
db="mydata.mdb" ‘如果放在目录中，就要写明"database/mydata.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
conn.Open connstr
（3）向数据库添加一条数据代码
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select * from news"
Rs.Open SqlStr,conn,1,3 ‘注意这里的1,3代表可以写入的打开数据表
Rs.addnew
Rs("title")=trim(request("title"))
Rs("neirong")=request("neirong")
Rs("date")=now()
rs.update ‘真正写入数据库
（4）修改一条记录的代码,通过(2)中的连接传递过来了id数值
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select * from news where id="&request("id")
Rs.Open SqlStr,conn,1,3 ‘注意这里的1,3代表可以写入的打开数据表
Rs("title")=trim(request("title"))
Rs("neirong")=request("neirong")
Rs("date")=now()
rs.update ‘真正写入数据库
（5）删除数据库中一条记录，通过连接传递过来了数据得id数值
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select * from news where id="&request("id")
Rs.Open SqlStr,conn,1,3 ‘注意这里的1,3代表可以写入的打开数据表
rs.delete ‘删除该条数据
7、标准Sql语句写法
包括取全部记录
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select * from news"
Rs.Open SqlStr,conn,1,1 ‘运行sql语句，把数据提出到rs对象中
选取几条数据
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select top 6 * from news"
Rs.Open SqlStr,conn,1,1 ‘运行sql语句，把6条数据提出到rs对象中
选取一条指定表中id字段数值的数据
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select * from news where id="&request("id")
Rs.Open SqlStr,conn,1,1 ‘运行sql语句，把6条数据提出到rs对象中
添加一条表单传过来的数据替换
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="insert into news(title，neirong) values(request("title"), request("neirong"))
修改一条指定表中id字段数值的数据，用表单传过来的数据替换
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="update news set title=’"&request("title")&"’,neirong=’"&request("内容")&"’ where id="&request("id")
Rs.Open SqlStr,conn,1,3 ‘运行sql语句，把数据提出到rs对象中
删除一条指定表中id字段数值的数据
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="delete from news where id="&request("id")
Rs.Open SqlStr,conn,1,3 ‘运行sql语句，把数据提出到rs对象中
