<!--#include file="QvodCms_Conn.asp"-->
<!--#include file="QvodCms_Check.asp"-->
<%
dim action,id,reurl,elite_id,maxid
dim name_id,class_id,server_id,data_name,data_actor,data_director,data_erea,data_elite,data_hits,data_status,data_picurl,data_intro,data_inputer,data_lastdate,data_color,data_picsmall,LianZai,data_vip,data_cu
reurl=Request.ServerVariables("Http_Referer")'来源地址
If reurl="" Then reurl="qvodcms_user.asp"
action=Trim(Request.QueryString("action"))
id=Clng(Request.QueryString("id"))
allid=Trim(Request.Form("allid"))'批量影片ID
Call OpenConn()
Sub User_Del '作用:删除会员信息信息 
    If allid<>"" then '批量删除会员信息
	ad=Split(allid,",")
	  for bd=0 to Ubound(ad)
	    conn.execute(" delete from qvodcms_user where uid="&ad(bd)&" ")'删除会员信息
	  next
	  Response.Redirect(reurl)
	Elseif id>0 Then
      conn.execute(" delete from qvodcms_user where uid="&id&" ")'删除会员信息
	  Response.Redirect(reurl)
	Else
	  Call jaja_err_b("没有选择参数:"&Err.Number&" ！","qvodcms_user.asp") 
	End if  
End Sub


%>

<%
If action="del" then 
    Call User_Del		
Else
   Call QvodCms_Err("请检查你提交的参数是否正确！")
   Response.End
End if
Call CloseConn()
%>