ASP+ACCESS网上招聘网站开发+ER图+用例图(35)
<td align="center"><%=rs("worksite")%></td>
<td align="center"><%
if rs("nums")<>"0" then response.write rs("nums") else response.write "若干"
%></td>
<td align="center"><%
if dateDiff("d", now(), formatdatetime(dateadd("d",rs("fulltime"),rs("addtime")),2)) < 0 then
Response.Write "<font color=red>已经过期</font>"
elseif Rs("Stop")="1" then
Response.Write "<font color=gray>暂时屏蔽</font>"
else
Response.Write "<font color=green>正在招聘</font>"
end if
%></td>
<td align="center"><%=Rs("borwsenum")%></td>
<td align="center"></td>
<td align="center"><%=Rs("addtime")%></td>
<td align="center"><%=formatdatetime(dateadd("d",rs("fulltime"),rs("addtime")),2)%></td>
<td align="center"><a href="modjob.asp?id=<%=Rs("id")%>">修改</a></td>
<td align="center"><input type="checkbox" name="cList" value=<%=Rs("id")%> ></td>
</tr>
<%rs.movenext
next%>
<tr>
<td colspan="9" bgcolor="#FFFFFF" align="right" height="30"> <input type="checkbox" name="cAll" value="ON" onClick="ChooseAll()">
全部选中
<%if page=1 or page=0 then%>
首页 上页