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("") %> 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 修改数据代码 <% 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("") 'response.redirect "Manage_Job.asp" end if %>