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>