delete.asp

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

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

	' delete class
	sql="delete from CLASS where ID="&request("class_id")&""
	cn.execute sql 
	'delete classuser_info
	sql="delete from CLASSUSER where CID="&request("class_id")&""
	cn.execute sql 

	set acman=server.CreateObject("ACManCOM.ACMan")
	acman.DelClass session("username"), session("Userpassword"), IA_Server_IP(cn), IA_Server_PORT(cn), 1, ""&request("class_id")&";"
	set acman=nothing

	cn.close
	Response.redirect "list.asp"
%>