matrix3_del.asp

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

<!-- #include file="const.asp" -->
<%
call opendb()
checkadmin()
dim id,sql,rs,rootid,fid,n
id=nrequest("id")
if id="" then
	response.Redirect("error.asp?id=3")
	response.End()
else
	sql="select rootid,fid from m3_bbs where id="&id&""
	set rs=server.CreateObject("adodb.recordset")
	rs.open sql,conn,1,3
	if rs.eof and rs.bof then
		response.Redirect("error.asp?id=2")
		response.End()
	else
		rootid=rs("rootid")
		fid=rs("fid")
		rs.delete
		rs.update
	end if
	rs.close
	set rs=nothing
	if cint(rootid)=cint(id) then
		sql="select id from m3_bbs where rootid="&id&""
		set rs=server.CreateObject("adodb.recordset")
		rs.open sql,conn,1,3
		n=cint(rs.recordcount)
		rs.close
		set rs=nothing
		sql="delete from m3_bbs where rootid="&rootid&""
		conn.execute(sql)
		sql="update m3_forum set topic=topic-1,post=post-"&trim(n)&" where FID="&fid&""
		conn.execute(sql)
		sql="update m3_forum set lasttopic='' where topicid="&id&""
		conn.execute(sql)
	else
		sql="update m3_bbs set re=re-1 where id="&rootid&""
		conn.execute(sql)
		sql="update m3_forum set post=post-1 where FID="&fid&""
		conn.execute(sql)
		sql="update m3_forum set lasttopic='' where topicid="&id&""
		conn.execute(sql)
	end if
	response.write("<script>alert('删除成功 !');window.close();self.opener.location.reload();</script>")
end if
call closedb()
%>