<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../conn.asp" -->
<!--#include file="logout.asp" -->
<%
dim action
action=request("action")
if action="delnews" then call delnews()
if action="p_delnews" then call p_delnews()
if action="delzy" then call delzy()
if action="p_delzy" then call p_delzy()
if action="delbm" then call delbm()
if action="p_delbm" then call p_delbm()
if action="delfaq" then call delfaq()
if action="p_delfaq" then call p_delfaq()
'=====删除新闻======
sub delnews()
id=request("id")
url=request("url")
url2=request("url2")
conn.execute("delete from news where id="&id)
call mb("恭喜!删除成功！","1",""&url2&"?"&url&"")
end sub
'=====删除新闻======
sub delfaq()
id=request("id")
url=request("url")
url2=request("url2")
conn.execute("delete from news where id="&id)
call mb("恭喜!删除成功！","1",""&url2&"?"&url&"")
end sub

sub p_delfaq()
id=request("delid")
if id="" then
call mb("至少选择一条记录！","0","")
end if
url=request("url")
url2=request("url2")
conn.execute("delete from news where id in("&id&")")
call mb("恭喜!删除成功！","1",""&url2&"?"&url&"")
end sub

sub p_delnews()
id=request("delid")
if id="" then
call mb("至少选择一条记录！","0","")
end if
url=request("url")
url2=request("url2")
conn.execute("delete from news where id in("&id&")")
call mb("恭喜!删除成功！","1",""&url2&"?"&url&"")
end sub
'=====删除专业======
sub delzy()
id=request("id")
url=request("url")
url2=request("url2")
conn.execute("delete from zhuanye where id="&id)
call mb("恭喜!删除成功！","1",""&url2&"?"&url&"")
end sub
sub p_delzy()
id=request("delid")
if id="" then
call mb("至少选择一条记录！","0","")
end if
url=request("url")
url2=request("url2")
conn.execute("delete from zhuanye where id in("&id&")")
call mb("恭喜!删除成功！","1",""&url2&"?"&url&"")
end sub

'=====删除作品======
sub delbm()
id=request("id")
url=request("url")
url2=request("url2")
conn.execute("delete from zxbm where id="&id)
call mb("恭喜!删除成功！","1",""&url2&"?"&url&"")
end sub
sub p_delbm()
id=request("delid")
if id="" then
call mb("至少选择一条记录！","0","")
end if
url=request("url")
url2=request("url2")
conn.execute("delete from zxbm where id in("&id&")")
call mb("恭喜!删除成功！","1",""&url2&"?"&url&"")
end sub
%>
