
<%
Server.ScriptTimeOut = 600

if Request.Cookies("admindj")<>"1" then
   Response.Write "<BR><BR><BR><BR><center>权限不足，你没有此功能的管理权限"
   Response.end
end if
%>
<!--#include file = admin_chk.asp -->
<!--#include file = admin_conn.asp -->
<!--#include file = titleb.asp -->
<html>

<head>
<!--#include file = language.asp -->
<STYLE type="text/css">
<!--
a:link       {text-decoration: none; font-family: AdobeSm; color: #000000 }
a:visited    {text-decoration: none; color: #000000 }
A:hover      {COLOR: green; FONT-FAMILY: "宋体,MingLiU"; TEXT-DECORATION: underline}
body         {font-size: 9pt; font-family: 宋体,MingLiU, Arial;color: #000000}
TD           {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000;table-layout:fixed;word-break:break-all}
input        {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
body         {margin-top: 0; margin-bottom: 0;margin-left:0;margin-right:0; color: #000000}
select       {FONT-SIZE: 9PT;}
option       {FONT-SIZE: 9pt;}
textarea     {FONT-SIZE: 9pt;}
-->
</STYLE>
</head>
<body>
<%
lm=chkhtm(trim(request("lm")))
html=1
iii=0
jjj=0
if (not isNumeric(lm)) then
  Response.Write "<Script Language=JavaScript>alert('栏目参数错误或有非法字符或没指定参数，请勿随意提交数据！');</Script>"
  response.end  
end if
set rshtml = Server.CreateObject("ADODB.RecordSet")
rshtml.Open "select * from [News] where ( LM='"&lm&"' or lm2='"&lm&"' or lm3='"&lm&"' ) and sh=1 order by id desc",conn,1,1
while not rshtml.eof
	filename=rshtml("filename")
	if filename<>"0" then
		sdDel(filename)
		conn.Execute "update [news] set [filename]='0',[html]=0 where id="&clng(rshtml("id"))
		iii=iii+1
	else
		jjj=jjj+1
	end if
	
rshtml.movenext
wend
rshtml.close:set rshtml=nothing
%>
</body>
<script>alert('共有新闻<%=iii+jjj%>条，取消静态新闻<%=iii%>条');</script>
<meta http-equiv='refresh' content='0; url=javascript:window.history.go(-1);'>
</html>

<%
conn.close:set conn=nothing
%>