📄 view_advice_03.asp
字号:
<% 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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -