gusucode.com > ASP+ACCESS在线人才招聘网(源代码+论文) > ASP+ACCESS在线人才招聘网(源代码+论文)\admin\person_list_update.asp

    <!--#include file="session.asp"-->
<!--#include file="../inc/conn.asp"-->
<%rowcount=Request("rowcount")
  if rowcount="" then
   result=Server.urlEncode("发生意外错误,请返回")
   Response.Redirect"result.asp?result="&result
  end if
  'for i=1 to rowcount
   'response.write Request("old_ep_acount"&i)&","&Request("checkbox_acount"&i)&";"
  'next
  'Response.end
  '删除到已删除表超作'
   for i=1 to rowcount
    per_id=Request("checkbox_del"&i)
	if per_id<> "" then
	sql="delete from job_person where per_id="&per_id
	conn.Execute(sql)
	end if
   next
  '更改会员操作
  for i=1 to rowcount
    per_id=Request("per_id"&i)
	if Request("checkbox_acount"&i)<>"" then
	 sql="update job_person set acount=1 where per_id="&per_id
	else
	 sql="update job_person set acount=0 where per_id="&per_id
	end if
	'response.write sql
	conn.execute(sql)
  next
  '设为推荐操作
  for i=1 to rowcount
   per_id=Request("per_id"&i)
   if Request("checkbox_inde"&i)<>"" then    
    sql="update job_person set inde=1 where per_id="&per_id
   else
    sql="update job_person set inde=0 where per_id="&per_id
   end if
   'response.write sql&"<br>"
   conn.execute(sql)
   next
   'Response.End
   '更改会员期限操作
   for i=1 to rowcount
    per_id=Request("per_id"&i)
	if Request("acountlong"&i)<>"" then
	 sql="update job_person set acountlong="&Request("acountlong"&i)&" where per_id="&per_id
	 conn.execute(sql)
	end if
	'response.write sql	
  next
  result=Server.urlEncode("已经成功修改,请返回")
  Response.Redirect"result.asp?result="&result&"&gopage="&request("urlpath")
  %>
<html></html>