asp对数据表记录的删除、更新与添加

前提:

set conn=Server.CreateObject("ADODB.Connection")
conn.open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source ="& Server.MapPath("数据.mdb")

更新记录

set rs=server.createobject("adodb.recordset")
sql="select * from gonghui where id='"&idid&"'"
rs.open sql,conn,3,3

rs("webname") =webname
rs.update
rs.close
set rs=nothing

增加新记录

set rs=server.createobject("adodb.recordset")
sql="select * from gonghui where id='"&idid&"'"
rs.open sql,conn,3,3

rs.addnew

rs("webname") =webname
rs.update
rs.close
set rs=nothing

删除记录:

IF Request("action")="del" Then
sql="delete from 表名 where id="&Request("id")
Conn.execute(sql)
End IF