kq_jddj_add_save.asp

OFFICE办公自动化

<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<!-- #include file="../inc/pubfun_a.inc" -->
<%
	Dim rs
	set rs=server.CreateObject("ADODB.recordset")
	dim ssqxh,ssqr,stbr,ssqzw,ssqsj,ssqbm,ssqsy,sspqk
	dim syjkssj,syjjssj,ssjkssj,ssjjssj,sjb,ssplc
	ssqxh=""
	ssqr=""
	stbr=""
	ssqzw=""
	ssqsj=""
	ssqbm=""
	ssqsy=""
	sspqk=""
	ssyjkssj=""
	ssyjjssj=""
	ssjkssj=""
	ssjjssj=""
	sjb=""
	ssplc=""
	stbr=session("LoginID")
	ssqr=Request.Form("sqr")
	ssqxh=Request.Form("sqxh")
	ssqzw=Request.Form("sqzw")
	ssqsj=formatdatetime_activenew(now,"yyyy-mm-dd hh:nn:ss")
	ssqbm=Request.Form("sqbm")
	ssqsy=Request.Form("sqsy")
	sspqk=Request.Form("spqk")
	syjkssj=Request.Form("yjkssj")
	syjjssj=Request.Form("yjjssj")
	sjb=Request.Form("jb")
	ssplc=Request.Form("splc")
	'Response.Write ssplc & "aaa<br>"
	oConn.begintrans
	if ssqxh<>"" then
	'修改申请表基本信息
	rs.Open "select * from oa_sqjbxx where sqxh="&ssqxh,oConn,3,2
	rs("sqr")=ssqr
	rs("sqzw")=ssqzw
	rs("sqsj")=ssqsj
	rs("sqbm")=ssqbm
	rs("sqsy")=replace(ssqsy,"'","''")
	rs("spbz")="1"
	rs("DJBZ")="1"
	rs.Update
	rs.Close
	'修改请假单信息
	rs.Open "select * from kq_qjd where sqxh=" & ssqxh,oConn,3,2
	rs("jb")=sjb
	rs("jdbz")="1"
	rs("xjyj")=replace(spqk,"'","''")
	rs("yjkssj")=syjkssj
	rs("yjjssj")=syjjssj	
    	rs("sjkssj")=syjkssj
    	rs("sjjssj")=syjjssj
   	rs("xjqk")="3"
	rs.Update
	rs.Close
	else
	ssqxh=1
	rs.Open "select max(sqxh) from oa_sqjbxx",oConn,1,1
	if not rs.EOF then
	    if rs(0) & ""<>"" then
	        ssqxh=clng(rs(0))+1
	    end if
	end if
	rs.Close
	'增加申请基本信息
	rs.Open "Select * from oa_sqjbxx where sqxh=" & ssqxh,oConn,3,2
	rs.AddNew
	rs("sqxh")=ssqxh
	rs("sqlb")="08"
	rs("sqr")=ssqr
	rs("tbr")=stbr
	rs("sqzw")=ssqzw
	rs("sqsj")=ssqsj
	rs("sqbm")=ssqbm
	rs("sqsy")=ssqsy
	rs("spbz")="1"
	rs("DJBZ")="1"
	rs.Update
	rs.Close
	'保存请假单信息
	rs.Open "select * from kq_qjd where sqxh=" & ssqxh,oConn,3,2
	rs.AddNew
	rs("sqxh")=ssqxh
	rs("jb")=sjb
	rs("jdbz")="1"
	rs("xjyj")=Replace("由"&session("uname")&"登记："&sspqk,"'","''")
	rs("yjkssj")=syjkssj
	rs("yjjssj")=syjjssj
	rs("xjqk")="3"	
    	rs("sjkssj")=syjkssj
    	rs("sjjssj")=syjjssj	
	rs.Update
	rs.Close
	end if
	oConn.committrans
  set rs=nothing
  oConn.close
  set oConn=nothing
  Response.Redirect "kq_jddj.asp"
%>