  <% 
	data_path="../../" 'ACC连接数据库路径，对SQL无效
	numid="16"
	dir="../err.asp" 
  %>
  <!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
  <!--#include file="../rolecheck.asp"-->
 <%
dim jobuserid,action 
jobuserid=Replace_Text(request("jobuserid"))
action=Replace_Text(request("action"))
 idlist=replace_text(request("jobuserid"))
 idlist=Trim(idlist)
 if jobuserid="" then
response.Write("<script >alert('对不起！参数传递错误!');history.back(-1);</script>")
response.End()
end if
 if action="del" then
  	if instr(idlist,",")>0 then

  	 idArr=split(idlist,",")
 		for i = 0 to ubound(idArr)
              call jobuser(idArr(i))	
 	         
 		next
	 else
             call jobuser(idlist)	
			  
 	 end if
	 response.Redirect(request.ServerVariables("HTTP_REFERER"))
   end if

 




sub jobuser(id)
conn.execute "delete from Websen_jobuser where id="&id
end sub
 %>