ASP+ACCESS网上招聘网站开发+ER图+用例图(34)
</tr>
</table>
<%rs.close%>
<table width="90%" border="0" cellspacing="1" cellpadding="0" bgcolor="#F1F1F1" align=center>
<tr height="30">
<td align="center" width="110">招聘职位</td>
<td align="center" width="40">人数</td>
<td align="center" width="60">状态</td>
<td align="center" width="50">浏览数</td>
<td align="center" width="50">收到简历</td>
<td align="center" width="130">更新时间</td>
<td align="center" width="80">截止时间</td>
<td align="center" width="30">操作</td>
<td align="center" width="30">选中</td>
</tr>
<tr>
<td height="1" bgcolor="#cccccc" colspan="9"></td>
</tr>
<%
dim i,page
if request("act")="sch" then
if request("posStates")="0" then
sql="select * from worksite where user_id='"&session("company_id")&"' order by addtime desc"
elseif request("posStates")="1" then
sql="select * from worksite where user_id='"&session("company_id")&"' and stop<>1 and datediff(day,getdate(),dateadd(d,fulltime,addtime))>0 order by addtime desc"
elseif request("posStates")="2" then
sql="select * from worksite where user_id='"&session("company_id")&"' and stop=1 order by addtime desc"
else
sql="select * from worksite where user_id='"&session("company_id")&"' and datediff(day,getdate(),dateadd(d,fulltime,addtime))<0 order by addtime desc"
end if
else
sql="select * from worksite where user_id='"&session("company_id")&"' order by addtime desc"
end if
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">