📄 up.asp

📁 物业管理和办公自动化系统
💻 ASP
字号:
<%option explicit
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1
%>
<!-- #include file="../include/config.inc" -->
<!-- #include file="../include/common.inc" -->
<!-- #include file="../include/debug.inc" -->
<!-- #include file="../include/db.inc" -->
<!-- #include file="../include/date.inc" -->
<!-- #include file="../include/datahandle.inc" -->
<!-- #include file="../include/recordlist.inc" -->
<!-- #include file="../include/security.inc" -->

<!-- #include file="../common/commonpage.inc" -->

<!-- #include file="../flowmgr/state.inc" -->

<%
'call CheckSecurity()
dim fid : fid = GetParam("fid")
if IsEmpty(fid) then
	Response.Clear()
	Server.Transfer("sign.asp")
	Response.End
end if



	'If it's the end step
	dim strSQL
	strSQL="update t_cur_step set cur_step=cur_step-1"
	strSQL=strSQL & " where flow_id=" & fid
	dim sError : sError=ExecuteSQL(dbLocal,strSQL)
	If sError <> "" Then
			response.write("<script language=javascript>alert(""出错啦"")</script>")
			response.end 
	End If		

	'output
	strSQL="select cur_step from t_cur_step where flow_id=" & fid
	dim crs : set crs=new CRecordset
	dim rs : set rs = crs.open(dbLocal,strSQL)


%>
<br>
<p align=center>********成功转入上一步*************<br>
<table cellspacing=0 cellpadding=0 border=0 width=400 align=center>
<tr height=80px><td align=center>当前的步骤序号为<b>第<%=Rs("cur_step")%>步</b></td></tr>
</table>
<%
	crs.Close()
	'FlowNewTask fid,0
	
%>
<html>
<head>
<title>上海信息大楼 Shanghai Information Tower</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../common/common.css" type="text/css">
<script language="VBScript">
Sub btnSubmit_OnClick()

	if document.all.flowform.opinion.value = "" then
		msgbox "请填写审批意见!"
		exit sub
	end if


	document.all.flowform.submit()
End Sub
</script>
</head>

	
<br>
<br>
</body>

</html>

<%
'===========================================================
' Useful Functions
'-----------------------------------------------------------
'===========================================================
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -