del.asp

来自「这是去年开发的中移鼎讯手机进销存系统 大家」· ASP 代码 · 共 37 行

<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%dim county,city,personid,id,power
county=GetCountyID
  city=GetCityID
  personid=GetUserGID
   if county=0 and city=0 then
  power=0
 elseif city>0 and county=0 then
  power=1
 elseif city>0 and county>0 then
  power=2
 end if
  id=request.querystring("id")
dim rsnews,sqlnews,powerart
  set rsnews=server.createobject("adodb.recordset")
  sqlnews="select * from T_News where newsid='"&id&"'"
  rsnews.open sqlnews,conn,3,3
  if rsnews("city")=0 and rsnews("county")=0 then
powerart=0
elseif rsnews("city")>0 and rsnews("county")=0 then
powerart=1
elseif rsnews("city")>0 and rsnews("county")>0 then
powerart=2
end if
if powerart<power then
call Msg("你不能删除你上级发布的公告！",1,"")
else
rsnews.delete
%>  <script>alert("删除公告成功");
  window.location="manage.asp";
  </script><%
rsnews.close
set rsnews=nothing
conn.close
set conn=nothing  %>
<%end if%>