2013-07-16
展开全部
<%'删除记录
if request.querystring("act")="del" then
if not isempty(request.querystirng("id")) or isnumeric(request.querystring("id")) then
msgboxU "非法参数,或记录已经被删除!" '这个函数你自己先定义一下!
else
sql="delete from XXX where X_id="&request.querystring("id")
conn.execute sql
end if
set myerrors=conn.errors
if myerrors.count=0 then
msgboxU "删除成功!"
else
msgboxu "删除失败,原因"&myerrors.item(0).description
end if
end if
%>
<%'修改代码
(前面基本是一样的,省咯一部分,从SQL开始 ACT改成UPDATE)
sql="delete from XXX where X_id="&request.querystring("id")
rst.open sql,conn,1,3
rst("XX")=requet.form("xx")
rst("XX")=requet.form("xx")
rst("XX")=requet.form("xx")
....
rst.update
rst.close
(后面基本上是一样的!)
%>
//操作前面应该会有例出其它的数据!
<a href="当前页.asp?act=modify&id=<%=rst("X_id")%>">修改</a>
<a href="当前页.asp?act=modify&id=<%=rst("X_id")%>">删除</a>
//
修改表单的action="当前页.asp?act=update&id=<%=request.querystirng("id")%>"
if request.querystring("act")="del" then
if not isempty(request.querystirng("id")) or isnumeric(request.querystring("id")) then
msgboxU "非法参数,或记录已经被删除!" '这个函数你自己先定义一下!
else
sql="delete from XXX where X_id="&request.querystring("id")
conn.execute sql
end if
set myerrors=conn.errors
if myerrors.count=0 then
msgboxU "删除成功!"
else
msgboxu "删除失败,原因"&myerrors.item(0).description
end if
end if
%>
<%'修改代码
(前面基本是一样的,省咯一部分,从SQL开始 ACT改成UPDATE)
sql="delete from XXX where X_id="&request.querystring("id")
rst.open sql,conn,1,3
rst("XX")=requet.form("xx")
rst("XX")=requet.form("xx")
rst("XX")=requet.form("xx")
....
rst.update
rst.close
(后面基本上是一样的!)
%>
//操作前面应该会有例出其它的数据!
<a href="当前页.asp?act=modify&id=<%=rst("X_id")%>">修改</a>
<a href="当前页.asp?act=modify&id=<%=rst("X_id")%>">删除</a>
//
修改表单的action="当前页.asp?act=update&id=<%=request.querystirng("id")%>"
2013-07-16
展开全部
既然别的部分已经做完了,这两部分并不难,分别调用delete和updata的sql语句就可以
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-07-16
展开全部
(1) 数据库的设计
(2) 系统共有以下文件组成:
其功能分别为:
(3) 代码实现:
不懂的话还可以去51aspx.com 去这搜索源代码下
(2) 系统共有以下文件组成:
其功能分别为:
(3) 代码实现:
不懂的话还可以去51aspx.com 去这搜索源代码下
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询