kq_qjsq_del.asp

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

<%@ Language=VBScript.Encode %>
<%Response.Expires=0%>
<!-- #include file="../share/connectdb.asp" -->
<%call checkqx("0801")%> 
<%
	Response.Expires=0
	conn.begintrans
	dim i
	for each i in Request.Form("chksc")
	  conn.execute "delete from kq_qjd where sqxh=" & i
	  conn.execute "delete from oa_sqjbxx where sqxh=" & i
	  conn.execute "delete from oa_spjl where sqxh=" & i
	next
	conn.committrans
  set rs=nothing
  conn.close
  set conn=nothing
	Response.Redirect "kq_qjsq.asp"
%>