matrix3_delf.asp

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

<!-- #include file="const.asp" -->
<%
call opendb()
checkadmin()
dim sql,FID
FID=nrequest("FID")
if FID="" then
	call msg("出错：缺少论坛ID")
else
	sql="delete from m3_forum where FID="&FID&""
	conn.execute(sql)
	sql="delete from m3_bbs where FID="&FID&""
	conn.execute(sql)
	response.Redirect "matrix3_admin.asp"
end if
call closedb()
%>