kq_zdgl_del.asp

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

<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
	Response.Expires=0
	dim szddm
	szddm=Request.form("chdel")
	if szddm="" then
	  Response.Redirect "kq_zdgl.asp"
	end if
%>
<%	
	Dim rs
	set rs=server.CreateObject("ADODB.recordset")
	rs.Open "select * from kq_qjd where JB=" & szddm ,oConn,1,1
	if rs.EOf then
	  ooConn.execute "delete from KQ_JBZD where dm=" & szddm
	else
	  rs.Close
    set rs=nothing
    oConn.close
    set oConn=nothing
  %>
    <script language=vbscript>
    <!--
      msgbox "该假别已经被使用不能删除",vbInformation,"提示"
      history.back
    //-->
    </script>
<%
  end if
  rs.Close
  set rs=nothing
  Response.Redirect "kq_zdgl.asp"
%>