📄 sign2.asp.bak

📁 物业管理和办公自动化系统
💻 BAK
字号:
<%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" -->

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

%>

<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">



	
<center>

<table cellspacing=0 cellpadding=0 border=0 align=center width=500>
<tr align=center height=60>
<%
	dim crs	
	set crs = New CRecordset
	dim strSQL

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

%>

	<td colspan=4 class=tblTitle ><marquee>流程步骤--当前处于第<font color=green><%=crs.GetValue("cur_step")%></font>步</marquee></td>
</tr>
<tr align=center height=40>
	<td ><B>步骤序号</B></td>
	<td ><B>审批人</B></td>
	<td ><B>操 作</B></td>
	<td ><B>描 述</B></td>
</tr>
<tr align=center height=1>
	<td align=center><B>:</B></td>
	<td align=center><B>:</B></td>
	<td align=center><B>:</B></td>
	<td align=center><B>:</B></td>
</tr>
<%
	rs.Close()
	strSQL="select * from t_flow_step a,v_user_account b,t_step_operation c"
	strSQL=strSQL & " where a.step_op_person=b.account_id "
	strSQL=strSQL & " and a.step_op_id=c.operation_id "
	strSQL=strSQL & " and flow_id=" & fid
	strSQL=strSQL & " order by step_no asc"
	set rs = crs.open(dbLocal,strSQL)
    Do while (Not rs.eof) 
		Response.Write("<tr align=center height=40>")
		Response.Write("<td>第" & crs.GetValue("step_no")&"步</td>")
		Response.Write("<td>" & crs.GetValue("account_name")&"</td>")
		Response.Write("<td>" & crs.GetValue("operation_name")&"</td>")
		If crs.GetValue("step_desc")<> "" Then
		Response.Write("<td>" & crs.GetValue("step_desc")&"</td>")
		Else
		Response.Write("<td>" & "<font color=grey>(暂无)<font>"&"</td>")
		End If
		Response.Write("</tr>")
		rs.MoveNext 
    Loop 
%>
</table>





</center>
<br>
<br>
<% crs.Close() %>
</body>
</html>
⌨️ 快捷键说明

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