kq_bjzd_save.asp

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

<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
	Response.Expires=0
	dim szddm,szdmc
	szddm=Request.form("txtdm")
	szdmc=Request.form("txtnr")
	if szdmc="" then
	  Response.End
	end if
%>

<%	
	Dim rs
	set rs=server.CreateObject("ADODB.recordset")
	if szddm="" then
	  szddm=0
	  rs.Open "select max(dm) from KQ_JBZD",oConn
	  if not rs.eof then
	    if rs(0) & ""<>"" then
	      szddm=clng(rs(0))+1
	    end if
	  end if
	  rs.Close
	end if
	rs.Open "select * from KQ_JBZD where dm=" & szddm ,oConn,3,2
	if rs.EOf then
	  rs.AddNew
	  rs("dm")=szddm
  end if
  rs("mc")=szdmc
  rs.Update
	rs.Close
%>
<%
  set rs=nothing
  oConn.close
  set oConn=nothing
  Response.Redirect "kq_zdgl.asp"
%>