求asp插入记录，删除记录，修改记录的代码，要完全正确的，谢谢！

链接数据库:

<%

dim conn

dim connstr

dim db

db="/DataBase/data.mdb"

Set conn = Server.CreateObject("ADODB.Connection")

connstr="Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &Server.MapPath(""&db&"")

conn.Open connstr

%>

插入记录:

<%

set rs = server.CreateObject ("Adodb.recordset")

sql = "select * from [News]"

rs.Open sql,conn,1,3

rs.AddNew

rs("title") = Request("title")

rs("Keywords") = request("Keywords")

rs("Description") = Request("Description")

rs("adddate") = Now()

rs.Update

rs.Close

set rs=nothing

%>

删除记录:

<%

set rs = server.CreateObject ("adodb.recordset")

sql = "delete from [News] where id="&Cint(Request("id"))&""

conn.execute(sql)

set rs=nothing

%>

修改记录:

<%

sql="update [News] set [title]='"&Request("title")&"',[Keywords]='"&Request("Keywords")&"',[Description]='"&Request("Description")&"',adddate=Now() where id="&cint(request("id"))&""

conn.execute(sql)

%>

在后台添加 *** 作日志模块，可以写成哪个模块哪个 *** 作是否记录，库结构字段可以设为 *** 作ID、 *** 作模块、 *** 作名称集合、是否记录、 *** 作时间、 *** 作人ID。当某个模块点击 *** 作事件的时候，首先需要判断用户是否具有权限，其次判断日志 *** 作模块中该模块的这项 *** 作是否需要记录，如果记录该 *** 作那么就向日志表中插入一条记录，来记录此次 *** 作。日志信息可以用Session来保存。

---