ASP添加删除修改代码 实例.docx
ASP添加删除修改代码 实例ASP添加数据代码 <!-#include file="conn.asp" -> <% Set Rs = Server.CreateObject("ADODB.Recordset") Sql = "Select * From shenqing1" Rs.Open Sql,conn,1,3 Rs.AddNew rs("leixing1")=request.Form("leixing1") rs("leixing2")=request.Form("leixing2") rs("leixing3")=request.Form("leixing3") rs("addtime")=now Rs.Update Rs.Close Set Rs=Nothing conn.close set conn=nothing response.Write("<script>alert('您好,您所填写的信息已成功提交,正在转入首页');location.href='index.asp'</script>") %> asp删除数据记录代码 <!-#include file=conn.asp-> <% id=request.querystring("id") '定义传值参数 action=request.querystring("action") '同上 %> <% if action="del" then '其他页传值到此页处理 sql = "delete * from ly_art where id="&id '数据库操作删除传值过来的数据 Conn.Execute(sql) response.redirect "admin_right.asp" '跳转 end if %> ASP修改数据代码 <!-#include file="conn.asp"-> <% id=request.querystring("id") '定义传值参数 action=request.querystring("action") '同上 %> <% if action="mod" then Set rs = Server.CreateObject("ADODB.Recordset") sql="select * from Job where id="&id rs.open sql,conn,1,3 rs("leixing1")=request.Form("leixing1") rs("leixing2")=request.Form("leixing2") rs("leixing3")=request.Form("leixing3") rs("addtime")=now rs.update rs.close response.Write("<script>alert('恭喜你,修改成功!');location.href='index.asp'</script>") 'response.redirect "Manage_Job.asp" end if %>