addnew_03.asp

来自「功能齐全的oa系统」· ASP 代码 · 共 63 行

<%option explicit%>
<!--#include virtual ="Include/DataEnvi.asp"-->
<!-- #include virtual="include/Roles.asp"-->

<%
	if session("AccountID")="" then
		%>
		<script language=javascript>
		alert("因登录时间过长，会话失效，请退出重新登陆！");
		location.href="list.asp";
		</script>
		<%  
		Response.End
	end if
	Dim ObjDB,IntIsSend,IntNewComMsgID
  	Dim ObjRS,StrSQL,sql
	Set ObjDB = Server.CreateObject("ADODB.Connection")
	'判断是否有添加的权限
	OpenDB ObjDB
	dim AddComID
	AddComID=AddNewComID(ObjDB)
	ObjDB.close
	
	OpenDBH ObjDB
	IntIsSend = Cint(Request.QueryString ("IsSend"))
	
	StrSQL = "Select * from t_Hrms_JobApplications_DepRequirement"
	Set ObjRS = Server.CreateObject ("ADODB.RecordSet")
	ObjRS.Open StrSQL,ObjDB,1,3
		
	ObjRS.AddNew 
	ObjRS("Company")= Request("Company")
	ObjRS("Department")=Request("Department")
	ObjRS("Station")= Request("Station")
	ObjRS("Number")=Request("Number")
	ObjRS("Reason")=Request("Reason")
	ObjRS.Fields("InTime")=Request("InTime")
	ObjRS("Responsibility")=Request("Responsibility")
	ObjRS("Condition")=Request("Condition")
	ObjRS("Des")=Request("Des")
	ObjRS.Fields("AppTime")=Now()
	ObjRS("ReCreatorID")=AddComID
	ObjRS("AppAccountID")=Session("AccountID")
	ObjRS.Update
		
	IntNewComMsgID = ObjRS("ID")
	ObjRS.Close 
	Set ObjRS = Nothing

	ObjDB.Close 
	Set ObjDB = Nothing
	
	If IntIsSend = 1 then
		Response.Redirect "Addnew_04.asp?ComMsgID=" & IntNewComMsgID
	Else
%>
	<script language=javascript>
	parent.frmToolbar.doList(2)
	</script>
<%	
	End if
%>