ASP添加、删除、修改代码 实例
2010-06-05 16:53
543 查看
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
%>
<!--#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
%>
相关文章推荐
- asp.net读写添加修改删除操作xml文件 代码如下(C#)
- asp批量添加修改删除操作示例代码
- C# 添加、修改和删除PDF书签的实例代码
- asp.net读写添加修改删除操作xml文件 代码如下(C#)
- JS动态添加option和删除option(附实例代码)
- JSP修改删除添加代码ACCESS数据库
- FileSystemObject组件新建读取添加修改删除功能实例
- PHP中MongoDB数据库的连接、添加、修改、查询、删除等操作实例
- asp.net连接数据库 增加,修改,删除,查询代码
- 在DNN中通过代码添加、修改、删除用户和给特定用户创建、删除角色
- c#asp.net添加/修改/删除Cookie值
- java怎么创建目录(删除/修改/复制目录及文件)代码实例
- 五个小时学会Asp连接access添加,删除,修改
- 【ASP】ASP vbscript一个综合的例子,操作html文件添加、删除代码、删除文件。
- asp.net treeview数据库绑定 (节点添加 删除 修改)
- asp.net与JQuery EasyUi DataGrid 服务器端分页,添加增加,修改,删除 按钮
- asp.net 对xml文件的读写,添加,修改,删除操作
- asp.net 对xml文件的读写,添加,修改,删除操作
- 速度销毁 修改门灯并寻找子物体发送代码 更换纹理图片 物体添加删除代码
- PHP中MongoDB数据库的连接、添加、修改、查询、删除等操作实例