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_Hrms_DepRequirement_Flow 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)
		dim connect,rs,rs1
		set connect = server.CreateObject("ADODB.Connection")
		OpenDBH connect
		StrSQL="select * from t_Hrms_JobApplications_DepRequirement where Id="&IntComMsgID
		'response.Write(IntComMsgID)
		'response.End()
		set rs = connect.execute(StrSQL)
		if rs("State")=2 then
			set rs1=server.CreateObject("adodb.recordset")
			rs1.open "select * from t_Hrms_JobApplications_JobAppPlan",connect,1,3	
			'set rs1= connect.execute("select * from t_Hrms_JobApplications_JobAppPlan")
			rs1.addnew()
			rs1("ID")=rs("ID")
			rs1("Company")=rs("Company")
			rs1("Department")=rs("Department")
			rs1("Station")=rs("Station")
			rs1("Number")=rs("Number")
			rs1("Reason")=rs("Reason")
			rs1("InTime")=rs("InTime")
			rs1("Responsibility")=rs("Responsibility")
			rs1("Condition")=rs("Condition")
			rs1("Des")=rs("Des")
			rs1("State")=2
			rs1("AppTime")=rs("AppTime")
			rs1("AppAccountID")=rs("AppAccountID")
			rs1("SendTime")=rs("SendTime")
			rs1.update
			rs1.close
			set rs1=nothing
			rs.close
			set rs=nothing
			connect.close
			set connect=nothing
		else
			rs.close
			set rs=nothing
			connect.close
			set connect=nothing
		end if
		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
%>