我来试着写一个
<%
dim db,conn,myconn
db="data/db.mdb" '数据库文件
Set Conn = Server.CreateObject("ADODB.Connection")
myconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
Conn.Open MyConn
'添加数据
set rs=server.createobject("adodb.recordset")
rs.open "select * from news",conn,1,3
rs.addnew
rs("lei")=trim(request.form("lei"))'lei字段名
rs("title")=trim(request.form("title"))'title字段名
rs("body")=request.form("body")'body字段名
rs.update
rs.close
set rs=nothing
response.write"<script>alert('添加成功');location.href='addnews.asp'</script>"
end if
'修改数据库
id=request.querystring("id")
set rs1=server.createobject("adodb.recordset")
rs1.open"select * from news where id="&id,conn,1,3
rs1.update
rs1("lei")=trim(request.form("lei"))
rs1("title")=trim(request.form("title"))
rs1("body")=trim(request.form("body"))
rs1.update
rs1.close
set rs1=nothing
conn.close
set conn=nothing
response.write"<script>alert('修改成功');location.href='update.asp'</script>"
end if
'删除数据
id=request.querystring("id")
set rs=server.createobject("adodb.recordset")
rs.open"select * from news where id="&id,conn,1,3
rs.delete
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write"<script>alert('删除成功');location.href='update.asp'</script>"
end if
%>
参考资料:好好答题,天天加分