<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
 <!--#include file="../checkrole.asp"-->

<%
  Response.Buffer = true
  Response.ExpiresAbsolute=now()-1
  Response.Expires=0
  Response.CacheControl="no-cache"
 
  call checkuser("cp")

if Not ChkPost then 
		response.write "<script language='javascript'>"
		response.write"parent.location.href='"&HOPE_InstallDir&"login/login1.asp';</SCRIPT>"
		response.end
end if


 
if not isempty(request("id")) then
newsidlist=request("id")
if instr(newsidlist,",")>0 then
dim newsidarr
newsidArr=split(newsidlist)
dim log_newsid
for i = 0 to ubound(newsidarr)
log_newsid=clng(newsidarr(i))
call deleteannounce(log_newsid)
next
else
call deleteannounce(clng(newsidlist))
end if
end if
sub deleteannounce (id)
set rs=server.createobject("adodb.recordset")
sql="select * from Yixiang_productshow where id="&id 
 rs.open sql,conn,1,3
 if not rs.eof then 
rs("html_pass")=0
rs("idate")=now()
rs.update
rs.close
set rs=nothing
end if
end sub
conn.close
set conn=nothing
response.Redirect(request.ServerVariables("HTTP_REFERER"))

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>操作成功</title>
<link href="../../images/css.css" rel="stylesheet" type="text/css">
<meta HTTP-EQUIV=refresh Content='1;url=edit.asp'>
</head>
 <table border="0" cellspacing="0" width="100%" cellpadding="0" height="418" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td width="100%" height="418" valign="middle" align="center">
<b>此信息重发成功！<a href="edit.asp">返回</a></b></td>
</tr>
</table>
</body>
</html>