kq_qjsq_add_save.asp

OFFICE办公自动化

<%@ Language=VBScript.Encode %>
<%Response.Expires=0%>
<!-- #include file="../share/connectdb.asp" -->
<!-- #include file="../share/pop_scspjl.asp" -->
<!-- #include file="../share/pubfunction.asp" -->
<!-- #include file="../inc/pubfun_a.inc" -->
<%call checkqx("0801")%> 
<%
	Dim rs
	set rs=server.CreateObject("ADODB.recordset")
	dim ssqxh,ssqr,stbr,ssqzw,ssqsj,ssqbm,ssqsy
	dim syjkssj,syjjssj,ssjkssj,ssjjssj,sjb,ssplc
	ssqxh=""
	ssqr=""
	stbr=""
	ssqzw=""
	ssqsj=""
	ssqbm=""
	ssqsy=""
	ssyjkssj=""
	ssyjjssj=""
	ssjkssj=""
	ssjjssj=""
	sjb=""
	ssplc=""
	ssqr=session("LoginID")
	stbr=session("LoginID")
	ssqzw=Request.Form("sqzw")
	ssqsj=formatdatetime_activenew(now,"yyyy-mm-dd hh:nn:ss")
	ssqbm=Request.Form("sqbm")
	ssqsy=Request.Form("sqsy")
	syjkssj=Request.Form("yjkssj")
	syjjssj=Request.Form("yjjssj")
	sjb=Request.Form("jb")
	ssplc=Request.Form("splc")
	'Response.Write ssplc & "aaa<br>"
	conn.begintrans
	ssqxh=1
	rs.Open "select max(sqxh) from oa_sqjbxx",conn,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,conn,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")="N"
	rs("DJBZ")="0"
	rs.Update
	rs.Close
	'保存审批记录
	'Response.Write ssqxh & "<br>"
	'Response.Write ssplc & "<br>"
	if pub_first_spjl(ssqxh,ssplc,"08")<>"OK" then
	    conn.rollbacktrans
	    set rs=nothing
        conn.close
        set conn=nothing        
        Response.Write "保存失败"
        Response.End
	end if
	'保存请假单信息
	rs.Open "select * from kq_qjd where sqxh=" & ssqxh,conn,3,2
	rs.AddNew
	rs("sqxh")=ssqxh
	rs("jb")=sjb
	rs("yjkssj")=syjkssj
	rs("yjjssj")=syjjssj
	'事后请假
	if syjjssj<=ssqsj then
	    rs("sjkssj")=syjkssj
	    rs("sjjssj")=syjjssj
	    rs("xjqk")="3"
	else
	    rs("sjkssj")=""
	    rs("sjjssj")=""
	    rs("xjqk")="0"
	end if
	rs.Update
	rs.Close
	conn.committrans
  set rs=nothing
  conn.close
  set conn=nothing
	Response.Redirect "kq_qjsq.asp"
%>