admin_flashdel.asp

俄罗斯方块源码 俄罗斯方块源码 俄罗斯方块源码

<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%
if session("admin")="" then
  response.redirect "admin_login.asp"
end if

'02 Flash管理
if not checkflag("02") then
  call mb("对不起，您没有Flash管理的权限！","",0)
end if

dim id
id=request("id")
if not isinteger(id) then
  call mb("请指定要删除的Flash的ID参数！","",0)
end if
set rs=server.createobject("adodb.recordset")
sql="select * from flash where id="&id
rs.open sql,conn,1,3

if rs.bof and rs.eof then
  call mb("对不起，找不到您要删除的Flash！","",0)
else
  '重新统计大类Flash数
  conn.execute("update bigclass set flashcount=flashcount-1 where bigclassid="&rs("bigclassid")&" and flashcount>0")
  '重新统计小类Flash数
  conn.execute("update smallclass set flashcount=flashcount-1 where smallclassid="&rs("smallclassid")&" and flashcount>0")
  
  '删除Flash
  rs.delete
  rs.update
end if
rs.close
set rs=nothing
conn.close
set conn=nothing

call mb("删除Flash成功！","admin_flash.asp",1)
%>