xy_delete_all.asp

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

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

if deleteall="deletforever" then
  if seljgid<>"" then
       seljgid=split(seljgid,",")
	set rs=server.createobject("adodb.recordset")
       for i=0 to ubound(seljgid)
		        sql="select * from jlzd321 where id=" & seljgid(i)
				 rs.open sql,conn,1,2
				  if rs.eof then
 	response.write "<script language=JavaScript>{window.alert('所选记录中有不存在或已被删除的记录，请按“确定”返回后“刷新”页面!');window.history.go(-1);}</script>"
  response.end
   end if
				 rs.delete
				 rs.close
				next
				response.write "<script language=JavaScript>{window.alert('成功删除所选学员，请按“确定”返回!');window.history.go(-1);}</script>"
  end if 
   response.end
 end if
	  
%>