📄 view_advice_03.asp
字号:
<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<%
Dim ObjDB,ObjRS,StrSQL
Dim IntComMsgID
IntComMsgID = Request.QueryString ("ID")
Set ObjDB = Server.CreateObject ("ADODB.Connection")
OpenDB ObjDB
StrSQL = "Select * From v_OA_Work_ComMessage where ComMsgID=" & IntComMsgID & " And ExeState =2 and IsCreator<>1 Order By ExeUpdateTime "
Set ObjRS = ObjDB.Execute(StrSQL)
%>
<style>
body { font-size:12px }
</style>
<body leftmargin="5" topmargin="5" bgcolor"#FFFFFF">
<%
While Not ObjRS.Eof
%>
［<%=ObjRS("ExeTrueName")%>］于<%=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 + -