<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Option Explicit %>

<!--#include file="../Include/ConnSiteData.asp" -->
<!--#include file="../Include/Const.asp" -->
<!--#include file="CheckAdmin.asp"-->
<%
dim Action,rs,sql,ID,rs1,sql1,no,urll,Meid,j,Mvcheck,nots,SelectID
nots=int(request("nots"))
Action=request("Action")
ID=request("ID")
no=request.form("no")
Mvcheck=request("plcheck")
SelectID=request.Form("SelectID")
select case Action
case "pl"
      set rs = server.createobject("adodb.recordset")
	  sql="select * from ameav_pl where ID="&ID
      rs.open sql,conn,1,3
	  if Mvcheck=1 then
        rs("sh")=0
	  else
        rs("sh")=1
	  end if
	  rs.update
      Conn.close
      Set conn=nothing
    response.write"<SCRIPT language=JavaScript>alert('审核修改成功！');location.href=""ProductListpr.asp"";"
    response.write "</SCRIPT>"
case "Vote"
	set rs=server.createobject("adodb.recordset")
	rs.Open "Update ameav_pl set sh=1 where id in("&SelectID&")",conn,1,3
	rs.Close
    response.write"<SCRIPT language=JavaScript>alert('审核修改成功！');location.href=""ProductListpr.asp"";"
    response.write "</SCRIPT>"
 case else
end select
%>