一、添加记录
方法1:Connection对象的Execute方法
<%
set con=Server.CreateObject("ADODB.Connection")
insertstr="insert into 表名(字段1,字段2,...) values(value1,value2,...) '插入记录SQL语句
con.Open constr
con.Execute(insertstr)
con.close
set con=nothing
%>
方法二:RecordSet对象的AddNew方法
<%
set con=Server.CreateObject("ADODB.Connection")
set rs =Server.CreateObject("ADODB.RecordSet")
querystr="select * from 表名" '查询记录SQL语句
con.open constr
rs.open querystr,con,1,3
rs.AddNew
rs("字段1")=value1
rs("字段2")=value2
......
rs.Update
rs.close
set rs=nothing
con.close
set con=nothing
%>
二、查询记录
<%
set con=Server.CreateObject("ADODB.Connection")
set rs =Server.CreateObject("ADODB.RecordSet")
querystr="select 字段 from 表名 where ...." '查询记录SQL语句
con.open constr
rs.open querystr,con,1,1
do while not rs.EOF do
'读取数据
变量1=rs("字段1")
变量2=rs("字段2")
...
loop
rs.close
set rs=nothing
con.close
set con=nothing
%>
三、修改记录
方法一:Connection对象的Execute方法
<%
set con=Server.CreateObject("ADODB.Connection")
con.open constr
updatestr="update 表名 set 字段1=value1，字段2=value2 where id=..." '更新记录SQL语句
con.Execute(updatestr)
con.close
set con=nothing
%>
方法二:RecordSet对象的Update方法
<%
set con=Server.CreateObject("ADODB.Connection")
set rs= Server.CreateObject("ADODB.RecordSet")
querystr="select 字段 from 表名 where ...." '查询记录SQL语句
con.open constr
rs.open querystr,con,1,3
rs("字段1")=value1
rs("字段2")=value2
...
rs.Update
rs.close
set rs=nothing
con.close
set con=nothing
%>
四、删除记录
<%
set con=Server.CreateObject("ADODB.Connection")
deletestr="delete from 表名 where id="&id '删除记录SQL语句
con.open constr
con.Execute(deletestr)
con.close
set con=nothing
%>
转载：https://www.cnblogs.com/felixfang/archive/2009/03/27/1423341.html
