<!--#include file="../conn.asp"-->
<!--#include file="../SqlIn.Asp"-->
<!--#include file="../config.asp"-->
<!--#include file=cookies.asp-->
<%
'=====================================
'天天供求信息网站管理系统
'天天网络科技工作室出品
'客服中心:http://www.ip126.com
'微信公众号:ip126com
'QQ:530051328 mail:bbfhq@163.com
'=====================================
%>
<%Call OpenConn
dim id,str2,i
Server.ScriptTimeout=50000
id=trim(request("ID"))
if trim(id)="" Then
Response.Write ("<script language=javascript>alert('没有选择记录!');history.go(-1);</script>")
response.end
end If

If  Request("action")="del" Then
str2=split(id,",")
for i=0 to ubound(str2)'循环开始
set rs=server.createobject("adodb.recordset")
rs.open "delete from DNJY_news_pinglun where pinglunid="&cstr(str2(i)),conn,3
set rs=Nothing
Next'循环结束
response.write "<script language='javascript'>" & chr(13)
		response.write "alert('成功删除！');" & chr(13)
        If request.querystring("pl")="yes" Then
        response.write "window.document.location.href='admin_article_Comment.asp';"&chr(13)
		else
		response.write "window.document.location.href='admin_article_list.asp';"&chr(13)
		End if
		response.write "</script>" & chr(13)
response.End
End If
If  Request("action")="sh" Or Request("action") = "shno" Then

dim referer
referer = Request.ServerVariables("HTTP_REFERER")
	set rs=server.createobject("adodb.recordset")
	rs.open "select * from DNJY_news_pinglun where pinglunid="&request("id")&"",conn,1,3
If  Request("action") = "sh"  Then
	rs("sh")=1
	else
If  Request("action") = "shno"  Then
	rs("sh")=0
end If
end if
rs.update
Call CloseRs(rs)
response.redirect (referer)
End if
Call CloseDB(conn)%>