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

'03 联盟作者管理
if not checkflag("03") then
  call mb("对不起，您没有联盟作者管理的权限！","",0)
end if

dim username
username=request("username")
if username="" then
  call mb("请指定要删除联盟作者！","",0)
end if

set rs=server.createobject("adodb.recordset")
sql="select * from author where username='"&username&"'"
rs.open sql,conn,1,3

if rs.bof and rs.eof then
  call mb("对不起，找不到您要删除联盟作者！","",0)
else
  
  '删除作者发布的作品
  conn.execute("delete from flash where username='"&username&"'")
  
  '删除作者信息
  rs.delete
  rs.update
end if
rs.close
set rs=nothing
conn.close
set conn=nothing

call mb("删除联盟作者成功！","admin_author.asp",1)
%>
