<!-- #include file="common.asp" -->
<!-- #include file="isadm.asp" -->
<%
  Dim idList, StrSQL, StrSQL2, OpAction
  OpAction = Trim(Request.Form("OpAction"))
  idList   = Request.Form("id")
  idList   = Replace( idList, " ", "" )
%>
<%
  If OpAction="Del" Then
    StrSQL2 = "Delete * from reply where GuestID in (" & idList & ")"
	StrSQL  = "Delete * from guest where id in (" & idList & ")"
	conn.Execute(StrSQL2)
	conn.execute(StrSQL)
	
  ElseIf OpAction="SetPass" Then
	StrSQL  = "update [Guest] set ifHadDealAuditing=1,ifHadPassAuditing=1 where id in (" & idList & ")"
	conn.Execute(StrSQL)
	
  ElseIf OpAction="UnPass" Then
	StrSQL  = "update [Guest] set ifHadDealAuditing=1,ifHadPassAuditing=0 where id in (" & idList & ")"
	conn.Execute(StrSQL)  
	
  ElseIf OpAction="SetTop" Then
	StrSQL  = "update [Guest] set TopG=1 where id in (" & idList & ")"
	conn.Execute(StrSQL)  
	
  ElseIf OpAction="UnTop" Then
	StrSQL  = "update [Guest] set TopG=0 where id in (" & idList & ")"
	conn.Execute(StrSQL)
	
  End If

  conn.Close
  Set conn = Nothing 

Response.Write("<script language=javascript>alert('操作成功！');location.href='admglist.asp?pn="&Request("pn")&"';</script>")
Response.Write("操作成功！点击<a href='admglist.asp?pn="&Request("pn")&"'>返回</a>")
%>
