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
%>