kq_qjsq_del.asp

OFFICE办公自动化

<%@ 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"
%>