📄 sign3.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" -->


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

	dim crs	
	set crs = New CRecordset
	dim strSQL
	' Output Result
	strSQL="select flow_id,template_id, flow_name,template_name,stat_name,account_name,flow_file,flow_urge_way"
	strSQL=strSQL & " from t_flow a,t_flow_template b,v_user_account c,t_flow_stat d"
	strSQL=strSQL & " where a.flow_template_id=b.template_id "
	strSQL=strSQL & " and a.flow_author_id=c.account_id "
	strSQL=strSQL & " and a.flow_stat=d.stat_id"
	strSQL=strSQL & " and a.flow_id=" & fid

	dim rs	: set rs = crs.open(dbLocal,strSQL)

	Dim flow_name,stat_name,template_name,account_name,flow_urge_way,flow_file
	flow_name = crs.GetValue("flow_name")
	stat_name = crs.GetValue("stat_name")
	account_name = crs.GetValue("account_name")
	template_name = crs.GetValue("template_name")
	flow_urge_way = crs.GetValue("flow_urge_way")
	flow_file=crs.GetValue("flow_file")


	If flow_urge_way="" Then
		flow_urge_way = "<font color=gray>(暂无)</font>"
	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 align=center border=0 width=300>
<tr height=60><td class=tblTitle ><marquee behavior=alternat>待 审 批 的 文 件</marquee></td></tr>
<tr align=center height=40>
	<td width=300 >点击<a href="<%=flow_file%>" style="color:red" target=_blank>审阅文件</a>浏览文件</td>
</tr>
</table>
</center>
<br>
<br>
<% crs.Close() %>
</body>
</html>
⌨️ 快捷键说明

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