signsave.asp

来自「企业办公自动化管理系统 asp+sql server 2005」· ASP 代码 · 共 39 行

<!--#include file="../include/sqlstr.asp"-->
<!--#include file="../include/opendb.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<%
dim nn,idd
'受理编号
nn=request("id" )
'签名信息
advice=request.form("advice")
'受理处理
set conn=opendb()
set rs=server.createobject("adodb.recordset")
rs.Open "select * from a_liucheng where id="&nn ,conn,1,3
if not rs.eof then
	idd=rs("liuchengbeifengid")  '流程编号
	rs("qianzhi")=advice  '签名信息
	rs("shifoukanguo")=1  '受理状态
	rs.update
end if
rs.close

'将步骤数减一
rs.Open "select * from control where liuchengid="&idd ,conn,1,3
if not rs.eof then
	rs("buzhuoshu")=cint(rs("buzhuoshu"))-1
	control=rs("buzhuoshu")
	rs.update
end if
rs.close


'任务完成
if cint(control)=0 then
	'将任务是否完成置
	conn.execute "update a_liuchengbeifeng set shifouwancheng=1 where id="&idd
end if
%>
<div align="center"><br><br><b>您已经完成任务！</b></div>