ASP中提交表单,不同的按钮对数据库的操作
这是目前提交表单后,添加一条记录的ASP处理源码<!--#includefile="conn.asp"--><%seq=request("seq")ifrequest.F...
这是目前提交表单后,添加一条记录的ASP处理源码
<!--#include file="conn.asp" -->
<%
seq=request("seq")
if request.Form("submit")="添加" then
sql="select * from liucheng"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew()
rs("seq")=seq
rs("bumen")=session("danwei")
rs("next_to")=session("0")
rs("yuanyin")=TxtShift(request("summary"))
rs.update
rs.close
%>
<script>
alert("添加成功");
location.href="worklog.asp";
</script>
<%
response.end
end if
%>
我想在表单中再加1个按钮“同意”,当按下“同意”后不仅执行了上面的添加一条记录的过程,而且执行这样一条SQL语句:
update jilu set wei='1' where seq="&request("seq")&"
请问代码如何写?谢谢 展开
<!--#include file="conn.asp" -->
<%
seq=request("seq")
if request.Form("submit")="添加" then
sql="select * from liucheng"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew()
rs("seq")=seq
rs("bumen")=session("danwei")
rs("next_to")=session("0")
rs("yuanyin")=TxtShift(request("summary"))
rs.update
rs.close
%>
<script>
alert("添加成功");
location.href="worklog.asp";
</script>
<%
response.end
end if
%>
我想在表单中再加1个按钮“同意”,当按下“同意”后不仅执行了上面的添加一条记录的过程,而且执行这样一条SQL语句:
update jilu set wei='1' where seq="&request("seq")&"
请问代码如何写?谢谢 展开
1个回答
展开全部
表单中再加一个按钮“同意”命名为“submit1”。
<!--#include file="conn.asp" -->
<%
seq=request("seq")
if request.Form("submit")="添加" then
sql="select * from liucheng"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew()
rs("seq")=seq
rs("bumen")=session("danwei")
rs("next_to")=session("0")
rs("yuanyin")=TxtShift(request("summary"))
rs.update
rs.close
if request.Form("submit1")="同意" then
sql="update jilu set wei='1' where seq=" & request("seq") & " "
rs.open sql,conn,1,3
rs.close
end if
%>
<script>
alert("添加成功");
location.href="worklog.asp";
</script>
<%
response.end
end if
%>
<!--#include file="conn.asp" -->
<%
seq=request("seq")
if request.Form("submit")="添加" then
sql="select * from liucheng"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew()
rs("seq")=seq
rs("bumen")=session("danwei")
rs("next_to")=session("0")
rs("yuanyin")=TxtShift(request("summary"))
rs.update
rs.close
if request.Form("submit1")="同意" then
sql="update jilu set wei='1' where seq=" & request("seq") & " "
rs.open sql,conn,1,3
rs.close
end if
%>
<script>
alert("添加成功");
location.href="worklog.asp";
</script>
<%
response.end
end if
%>
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询