kq_jbsq_qr_edit_save.asp

OFFICE办公自动化

<%@ Language=VBScript.Encode %>
<%Response.Expires=0%>
<%
    dim ssqxh
    ssqxh=Request.Form("sqxh")
    if ssqxh & ""="" then
        Response.Write "申请序号错误"
        Response.End
    end if 
%>
<!-- #include file="../share/connectdb.asp" -->
<!-- #include file="../inc/pubfun_a.inc" -->
<%
	Dim rs
	set rs=server.CreateObject("ADODB.recordset")
	dim ssqsy
	dim ssjkssj,ssjjssj,sjb,ssqsj,ssjgs,shzyj
	ssjkssj=""
	ssjjssj=""
	ssjkssj=Request.Form("sjkssj")
	ssjjssj=Request.Form("sjjssj")
	ssjgs=Request.Form("sjgs")
	shzyj=Request.Form("hzyj")
	ssqsj=formatdatetime_activenew(now,"yyyy-mm-dd hh:nn:ss")
	conn.begintrans
	'判断审批标志
	rs.Open "Select * from oa_sqjbxx where sqxh=" & ssqxh ,conn,3,2
	if rs.EOF then
		rs.Close
		set rs=nothing
		conn.rollbacktrans
    conn.close
    set conn=nothing
    %>
    <SCRIPT LANGUAGE=vbscript>
		<!--
			msgbox "找不到对应的审批记录!",vbExclamation,"错误"
			history.go(-2)
		//-->
		</SCRIPT>
    <%
		Response.End
	end if
	if rs("spbz")<>"1" then
		rs.Close
		set rs=nothing
		conn.rollbacktrans
    conn.close
    set conn=nothing
    %>
    <SCRIPT LANGUAGE=vbscript>
		<!--
			msgbox "该加班申请审批未通过,不能销假,请刷新页面查看最新信息!",vbExclamation,"错误"
			history.go(-2)
		//-->
		</SCRIPT>
    <%
		Response.End
	end if
	rs("DJBZ")="1"
	rs.Update
	rs.Close
	'保存加班申请单信息
	rs.Open "select * from oa_jbmx where sqxh=" & ssqxh,conn,3,2
	if not rs.EOF then
	    rs("sjkssj")=ssjkssj
        rs("sjjssj")=ssjjssj
	    rs("sjgs")=ssjgs
	    rs("hzyj")=shzyj
	    rs("hzqk")="1"
	    rs.Update
	end if
	rs.Close
	conn.committrans
  set rs=nothing
  conn.close
  set conn=nothing
	Response.Redirect "kq_jbsq.asp"
%>