view_advice_03.asp

来自「功能齐全的oa系统」· ASP 代码 · 共 49 行

ASP

49 行

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<%
Dim ObjDB,ObjRS,StrSQL,ObjRSName
Dim IntComMsgID

IntComMsgID = Request.QueryString ("ID")

Set ObjDB = Server.CreateObject ("ADODB.Connection")
OpenDB ObjDB
		
StrSQL = "Select Advice,ExeUpdateTime,PassType,IsPass From v_Hrms_DepRequirement_Flow where ComMsgID=" & IntComMsgID  & " And ExeState =2 and IsCreator<>1 Order By ExeUpdateTime"
Set ObjRS = ObjDB.Execute(StrSQL)

StrSQL = "SELECT t_OA_SYS_Account_Character.TrueName FROM  t_OA_SYS_Account_Character INNER JOIN Hrms.dbo.v_Hrms_DepRequirement ON Hrms.dbo.v_Hrms_DepRequirement.AppAccountID = dbo.t_OA_SYS_Account_Character.AccountID INNER JOIN dbo.v_Hrms_DepRequirement_Flow ON Hrms.dbo.v_Hrms_DepRequirement.ID = OA.dbo.v_Hrms_DepRequirement_Flow.ComMsgID WHERE ComMsgID=" & IntComMsgID  & " And ExeState =2 and IsCreator<>1 Order By ExeUpdateTime "
Set ObjRSName = ObjDB.Execute(StrSQL) 
%>

<style>
body         { font-size:12px }
</style>
<body leftmargin="5" topmargin="5" bgcolor"#FFFFFF">

<%
	While Not ObjRS.Eof
%>
［<%=ObjRSName("TrueName")%>］于<%=ObjRS("ExeUpdateTime")%>的批复<br>
审批结果:
<%
		If ObjRS("PassType")=0 Then
			Response.Write  "已经阅读"
		Else
			If ObjRS("IsPass") Then
				Response.Write "通过"
			Else
				Response.Write "不通过"
			End If
		End If
			     
			%><br>
批复意见：<%=ObjRS("Advice")%><br><br>
<%
		ObjRS.MoveNext
	Wend
%>

</body>

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?

view_advice_03.asp

view_advice_03.asp - 源码说明

⌨️ 快捷键说明