xy_delete_view_all.asp

来自「培训学员管理系统」· ASP 代码 · 共 21 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn_fj16.asp"-->
<!--#include file="admin_qx.asp" -->
<% issjcz %>
<%
ID=trim(request("ID"))

set rs22=server.createobject("adodb.recordset")
sql22="select * from jlzd321 where id="&ID&""
rs22.open sql22,conn,1,2
if rs22.eof then
response.Write "<script language=javascript>{window.alert('报错：该记录不存在或已被删除！');window.history.go(-1);}</script>"
response.End
end if

set rs=server.createobject("adodb.recordset")
sql="delete from jlzd321 where id="&ID&""
rs.open sql,conn,1,2
response.Write "<script language=javascript>{window.alert('恭喜您，成功删除');window.history.go(-2);}</script>"

%>