delete.asp

来自「ASP原码」· ASP 代码 · 共 66 行

<!--#include file="../../System/Const.asp"-->
<!--#include file="../../System/misc.asp"-->
<%
	set cn=server.CreateObject("ADODB.connection")
	cn.Open DSN_ACLASS

	set rs=server.CreateObject("ADODB.recordset")
	set acman=server.CreateObject("ACManCOM.ACMan")
	
	server_ip = IA_Server_IP(cn)
	server_port = IA_SERVER_PORT(cn)

	'1 delete school
	sql="delete from SCHOOL where ID="&request("school_id")&""
	cn.execute sql 

	'2 delete classuser_info
	rs.Open "select * from CLASSUSER where CID in (select ID from CLASS where SCHOOLID="&request("school_id")&")",cn
	count=0
	cmd=""
	do while not rs.eof
		cmd=cmd+cstr(rs("CID"))+"|"+cstr(rs("UID"))+";"
		rs.movenext
		count=count+1
	loop
	rs.close
	acman.AddClassUser session("username"), session("Userpassword"), server_ip, server_port, count, cmd, 0

	sql="delete from CLASSUSER where CID in (select ID from CLASS where SCHOOLID="&request("school_id")&")"
	cn.execute sql 
	
	'3 delete class
	rs.Open "select ID from CLASS where SCHOOLID="&request("school_id")&"",cn
	count=0
	cmd=""
	do while not rs.eof
		cmd=cmd+cstr(rs("ID"))+";"
		rs.movenext
		count=count+1
	loop
	rs.close
	acman.DelClass session("username"), session("Userpassword"), server_ip, server_port, count, cmd

	sql="delete from CLASS where SCHOOLID="&request("school_id")&""
	cn.execute sql 
	
	'4 delete user
	rs.Open "select ID from "&TBL_USER&" where SCHOOLID="&request("school_id")&"",cn
	count=0
	cmd=""
	do while not rs.eof
		cmd=cmd+cstr(rs("ID"))+";"
		rs.movenext
		count=count+1
	loop
	rs.close
	acman.DelUser session("username"), session("Userpassword"), server_ip, server_port, count, cmd

	sql="delete from "&TBL_USER&" where SCHOOLID="&request("school_id")&""
	cn.execute sql 

	set acman=nothing
	cn.close
	Response.redirect "list.asp"
%>