ASP+ACCESS网上招聘网站开发+ER图+用例图(26)
时间:2017-02-12 16:32 来源:毕业论文 作者:毕业论文 点击:次
</tr> </table> <table width="90%" border="0" cellspacing="1" cellpadding="0" bgcolor="#F1F1F1" align=center> <tr height="30"> <td align="center">应聘职位</td> <td align="center" width="60">姓名</td> <td align="center" width="40">性别</td> <td align="center" width="40">年龄</td> <td align="center" width="100">学历</td> <td align="center" width="100">专业</td> <td align="center" width="150">毕业学校</td> <td align="center" width="50">操作</td> </tr> <tr> <td height="1" bgcolor="#cccccc" colspan="8"></td> </tr> <% dim i,page sql="select reg_person.user_id,reg_person.name,reg_person.sex,reg_person.byear,reg_person.degree,reg_person.major,reg_person.job1,reg_person.schoolname,Sendappl.id,Sendappl.worksite_id from reg_person,Sendappl where reg_person.user_id=Sendappl.person_id and Sendappl.user_id="&session("company_id")&" and reg_person.archives<>0 order by Sendappl.addtime desc" set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,1,3 'response.write sql page=trim(request("page")) rs.pagesize=20 page=clng(request("page")) if page<1 then page=1 end if if page>rs.pagecount then page=rs.pagecount end if if not (rs.bof or rs.eof) then rs.absolutepage=page end if for i=0 to 19 if rs.eof then exit for%> <tr bgcolor=ffffff height="26"> <td align=center> <% dim rswork,sqlwork set rswork=server.CreateObject("adodb.recordset") sqlwork="select worksite from worksite where id = "&rs("worksite_id")&"" rswork.open sqlwork,conn,1,1 if not rswork.eof then response.write rswork("worksite") else response.write "岗位已删除" end if%></td> <td align=center> <a href="javascript:seeResume(<%=rs("user_id")%>)"><%=rs("name")%></a></td> <td align=center> <%=rs("sex")%></td> <td align="center"><%=year(date())-rs("byear")%></td> <td align="center"><%select case rs("degree") case 8 %> (责任编辑：qin) |