matrix3_delc.asp

来自「这是ASP的OA」· ASP 代码 · 共 28 行

<!-- #include file="const.asp" -->
<%
call opendb()
checkadmin()
dim sql,CID,rs
CID=nrequest("CID")
if CID="" then
	call msg("出错：缺少分区ID号")
else
	sql="select * from m3_forum where CID="&CID&""
	set rs=server.CreateObject("ADODB.RecordSet")
	rs.open sql,conn,1,1
	if not (rs.eof and rs.bof) then
		rs.close
		set rs=nothing
		call closedb()
		call msg("请先把分区里的所有论坛删除！")
		response.End()
	else
		rs.close
		set rs=nothing
		sql="delete from m3_category where CID="&CID&""
		conn.execute(sql)
		response.Redirect "matrix3_admin.asp"
	end if
end if
call closedb()
%>