view_advice_02.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<!-- #include virtual="include/String.asp"-->
<!-- #include file="Function.asp"-->
<%
	Dim ObjDB,ObjRS,StrSQL
	Dim IntComMsgID,IntExeID,IntAccountID,IntPassType
	Dim HasDoExecute

	if session("AccountID")="" then
%>
<script language=javascript>
  	alert("因登录时间过长，会话失效，请退出重新登陆！")
</script>
<%  
   	Response.End
	end if	

	IntComMsgID = Request.QueryString ("ID")
	IntAccountID = Session("AccountID")
	
	Set ObjDB = Server.CreateObject ("ADODB.Connection")
	OpenDB ObjDB
		
	StrSQL = "Select ExeID,PassType From v_OA_Work_ComMessage where ComMsgID=" & IntComMsgID & " and ExecuteID = " & IntAccountID & " And ExeState=1 Order By NodeID "
	Set ObjRS = ObjDB.Execute(StrSQL)
	
	If ObjRS.Eof Then
		HasDoExecute = True
	Else
		HasDoExecute = False	
		IntPassType = ObjRS("PassType")
		IntExeID = ObjRS("ExeID")
	
	End If	
	
	
	If Request.Form.Count > 0 Then
		Dim IsPass
		IsPass = False
		If Request.Form("IsPass") = "1" Then IsPass = True
		
		
		Call DoExecute(ObjDB,Request.Form("ExeID"), FixSQL( Request.Form("Advice") ),IsPass)

		Set	ObjRS =	Nothing
		objDB.Close()
		Set ObjDB =	Nothing
		HasDoExecute = True
	End If	
		
%>
<style>
td         { font-size:12px }
textarea         { font-size:12px }
body         { border: 1 solid #dedfde ;font-size:12px}
</style>
<%
	If HasDoExecute Then
%>
<p align=center>本公文您已经处理完毕</p>
<%
	Else
%>
<form action="" method="post" id=form1 name=form1>
<input type=hidden value="<%=IntExeID%>" name=ExeID>
<table width=100% border="0" cellpadding="3" cellspacing="0">

<%
	If IntPassType = 1 Then
%>
<tr><td><input type="checkbox" name="IsPass" value="1">审核通过<td></tr>
<%
	End If
%>
<tr><td><textarea rows="9" name="Advice" cols="40"></textarea></td><tr>
<tr><td><input type=submit value="提交"></td><tr>
</table>
</form>
<%
	End If
%>