untop.asp

这是ASP的OA

<!-- #include file="const.asp" -->
<!-- #include file="power_func.asp" -->
<%
dim id,sql,rs,FID,rootid,purl,page
id=nrequest("id")
rootid=nrequest("rootid")
purl=trim(request.QueryString("purl"))
page=trim(request.QueryString("page"))
if id="" then
	response.Redirect("error.asp?id=3")
	response.End()
else
	call opendb()
	if isadmin()=1 then
		sql="update m3_bbs set istop=0 where id="&id&""
		conn.execute(sql)
	else
		checkuser()
		sql="select FID from m3_bbs where id="&id&""
		set rs=server.CreateObject("adodb.recordset")
		rs.open sql,conn,1,1
		if rs.eof and rs.bof then
			rs.close
			set rs=nothing
			call closedb()
			response.Redirect("error.asp?id=2")
			response.End()
		else
			FID=rs("FID")
		end if
		rs.close
		set rs=nothing
		if havepower(FID)=1 then
			sql="update m3_bbs set istop=0 where id="&id&""
			conn.execute(sql)
		else
			call closedb()
			response.Redirect("error.asp?id=1")
			response.End()
		end if
	end if
	call closedb()
	response.write("<script>alert('操作成功 !');location.href='"&purl&".asp?id="&rootid&"&page="&page&"';</script>")
	response.End()
end if
%>