gusucode.com > ASP+ACCESS在线人才招聘网(源代码+论文) > ASP+ACCESS在线人才招聘网(源代码+论文)\admin\ep_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
    ep_id=Request("checkbox_del"&i)
	if ep_id<> "" then
	sql="delete from enterprise where ep_id="&ep_id
	conn.Execute(sql)
	end if
   next
  '更改会员操作
  for i=1 to rowcount
    ep_id=Request("ep_id"&i)
	apc_num=Request("apc_num"&i)
	if Request("checkbox_acount"&i)<>"" then
	 sql="update enterprise set ep_acount=1 where ep_id="&ep_id
	else
	 sql="update enterprise set ep_acount=0 where ep_id="&ep_id
	end if
	'response.write sql
	conn.execute(sql)
  next
  '设为推荐企业操作
  for i=1 to rowcount
   ep_id=Request("ep_id"&i)
   if Request("checkbox_inde"&i)<>"" then    
    sql="update enterprise set ep_inde=1 , setinde_time=date() where ep_id="&ep_id
   else
    sql="update enterprise set ep_inde=0 , setinde_time=date() where ep_id="&ep_id
   end if
   'response.write sql
   conn.execute(sql)
   next
  result=Server.urlEncode("已经成功修改,请返回")
  Response.Redirect"result.asp?result="&result&"&gopage="&request("urlpath")
  %>
<html></html>