deleteclass.asp

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

<%
' 参数列表
' server_ip, server_port
' class_id
'
'
%>

<!--#include file="Const.asp"-->

<%
	if WRITE_ACLASS_DB=true then
		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 
		cn.close
		set cn=nothing
	end if

	set acman=server.CreateObject("ACManCOM.ACMan")
	acman.DelClass ADMIN_NAME, ADMIN_PASSWORD, request("server_ip"), clng(request("server_port")), 1, ""&request("class_id")&";"
	set acman=nothing
%>