ASP 添加数据代码
<!--#include le="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 le=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 le="conn.asp"-->
<%
id=request.querystring("id") '定义传值参数
action=request.querystring("action") '同上
%>
<%
if action="mod" then
Set rs = Server.CreateObject("ADODB.Recordset")
评论3