kq_xjhz_edit_save.asp

来自「OFFICE办公自动化」· ASP 代码 · 共 34 行

<%@ 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" -->
<%
	Dim rs
	set rs=server.CreateObject("ADODB.recordset")
	dim sczlb,sxjyj
	sczlb=Request.Form("czlb")
	sxjyj=Request.Form("xjyj")
	'保存请假单信息
	rs.Open "select * from kq_qjd where sqxh=" & ssqxh,conn,3,2
	if not rs.EOF then
	    if sczlb="TY" then
	        rs("xjqk")="3"
	    elseif sczlb="BTY" then
	        rs("xjqk")="2"
	    end if
	    rs("xjyj")=sxjyj
	    rs.Update
	end if
	rs.Close
  set rs=nothing
  conn.close
  set conn=nothing
	Response.Redirect "kq_xjhz.asp"
%>