ASP+ACCESS网上招聘网站开发+ER图+用例图(26)
</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 %>