type4.asp

功能齐全的oa系统

<%option explicit%>

<%
'----------------------------------------------------------------------
'---------------文件包含部分说明---------------------------------------
'----------------------------------------------------------------------
'---------------	使用数据库连接包含	DataEnvi.asp	---------------
'---------------	使用字符串包含	String.asp	-----------------------
'---------------	使用分页操作包含	Page.asp	-------------------
'----------------------------------------------------------------------
%>

<!--#include virtual ="/Include/DataEnvi.asp"-->
<!--#include virtual = "/Include/String.asp"-->
<!--#include virtual = "/Include/Page.asp"-->

<%
	Dim objRS,objDB,strSQL
	Dim	RecordID,ComMsgID
	Dim IsContinue
	Dim ExecuteID,PassType,IsEnd
	
	Set	objDB	=	server.CreateObject("Adodb.Connection")
	OpenDB	objDB
	Set	objRS	=	server.CreateObject("ADODB.Recordset")
	
	IsContinue		=	Request.Form("IsContinue")
	RecordID		=	Request.Form("RecordID")
	ComMsgID		=	Request.Form("ComMsgID")
	IsEnd			=	Request.Form("IsEnd")
	PassType		=	Request.Form("PassType")
	ExecuteID		=	Request.Form("ExecuteID")
	
'	Response.Write IsContinue&"----"&recordID&"-----"&ComMsgID&"-----"&IsEnd&"-----"&PassType&"-----"&ExecuteID
	
	If IsContinue=1 Then
		strSQL	=	"select * from t_OA_Work_ComMessage_Record"
		objRS.Open strSQL,objDB,1,3
		objRS.AddNew()
		objRS.Fields("ComMsgID")	=	ComMsgID
		objRS.Fields("ComMsgType")	=	4
		objRS.Fields("ExecuteID")	=	ExecuteID
		objRS.Fields("FlowNodeID")	=	0
		objRS.Fields("PassType")	=	PassType
		objRS.Fields("IsNeed")		=	1
		objRS.Fields("ParentID")	=	0
		objRS.Fields("IsEnd")		=	IsEnd
		objRS.Fields("IsSend")		=	1
		objRS.Fields("State")		=	0
		objRS.Update()
		objRS.Close()
	Else
		strSQL	=	"select * from t_OA_Work_ComMessage where ID = " & ComMsgID
		objRS.Open strSQL,objDB,1,3
		objRS.Fields("State")	=	2
		objRS.Update()
		objRS.Close()
		strSQL	=	"select IsPass,Advice,ExecuteTime,State from t_OA_Work_ComMessage_Record Where ID	= " & RecordID
		objRS.Open strSQL,objDB,1,3
		objRS.Fields("State")		=	2
		objRS.Update()
		objRS.Close()
	End If
	Response.Redirect "List1.asp"
%>