📄 kq_zdgl_del.asp
字号:
<!--#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"
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -