<%if session("Login")<>"" and session("Login") then%> <% dim bumen bumen="unkown" sqlstr="select*from zhaopin order by bumen desc" set rs=server.CreateObject("ADODB.recordset") rs.open sqlstr,conn,1,1 %>

<%if not rs.eof and not rs.bof then rs.movefirst while not rs.eof if bumen<>rs("bumen") then bumen=rs("bumen") %> <%end if%> <%rs.movenext wend%> <%else%> <%end if%>

利达集团人才招聘 后台管理
选中	编号	职位名称	发布日期	查看	修改	删除
<%=bumen%>
" value="on">	<%=rs("bianhao")%>	<%=rs("mingcheng")%>	<%=rs("Pdate")%>	查看	修改	)">
记录空！
添加

<% rs.close else response.write"你没有权限进入！" %> <%end if%> <% if Request.ServerVariables("REQUEST_METHOD")="POST" then sqlstr="select*from zhaopin order by bumen desc" rs.open sqlstr,conn,3,2 rs.movefirst do while not rs.eof n=trim(cstr(rs("id"))) if request.form(n)="on" then rs.delete rs.update end if rs.movenext loop response.redirect "manage.asp" rs.close end if response.flush %> <%set rs=nothing conn.close set conn=nothing %>