<!--#include file="../../Include/Const.asp" -->
<!--#include file="../../Include/Conn1.asp" -->
<!--#include file="../CheckAdmin.asp"-->
<%
Result=request.QueryString("Result")
SelectID=request.Form("selectID")

select case Result
 	case "Article"
If  SelectID<>"" then
Dim Newslists,i
Newslists=split(SelectID,",")
for i=0 to ubound(Newslists) 
Call FileDelHtml("/newsshow/News",Newslists(i))
Next
End If 
if SelectID<>"" then conn.execute "delete from Angel_Article where id in ("&SelectID&")"
'response.write "<script>window.location.href='ArticleList.asp';</script>"
response.redirect request.servervariables("http_referer")
	case "ArticleSortList"
		if SelectID<>"" then  conn.execute "delete from Angel_ArticleSort where id in ("&SelectID&")"
    	response.redirect request.servervariables("http_referer")
    case else
end Select
%>