kq_jddj_del.asp

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

<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
	Response.Expires=0
	dim delid
	delid=Request.Form("delid")
	if delid<>"" then
	  oconn.begintrans
        oconn.execute "delete from kq_qjd where sqxh in ("&delid&")" 
	    oconn.execute "delete from oa_sqjbxx where sqxh in ("&delid&")" 
      oconn.committrans
    end if
  oconn.close
  set oconn=nothing
	Response.Redirect "kq_jddj.asp"
%>