manage_jobbook.asp

BOB人才招聘系统

<%@ LANGUAGE="VBScript" %>
<!--#include file="admin.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="Inc/articlechar.inc"-->
<!-- #include file="Head.asp" -->
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="180" align="center" valign="top"><!-- #include file="left.asp" --></td>
    <td align="center" valign="top">
	<br>
      <table border="0" cellpadding="0" cellspacing="0"  class=tableBorder>
        <tr>
          <td  background=images/top_bg.gif height="25"><div align="center" style="color: #ffffFF; font-weight: bold;"><strong>应聘管理</strong></div></td>
        </tr>
        <tr> 
			<td><div align="center"> 
			<% 
const MaxPerPage=5 '分页显示的纪录个数 
dim sql 
dim rs 
dim totalPut 
dim CurrentPage 
dim TotalPages 
dim i,j 
 
 
if not isempty(request("page")) then 
currentPage=cint(request("page")) 
else 
currentPage=1 
end if 
set rs=server.createobject("adodb.recordset") 
sql="select * from jobbook order by id desc" 
rs.open sql,conn,1,1 
 
if rs.eof and rs.bof then 
response.write "<p align='center'>还没有任何应聘信息!</p>" 
else 
totalPut=rs.recordcount 
totalPut=rs.recordcount 
if currentpage<1 then 
currentpage=1 
end if 
if (currentpage-1)*MaxPerPage>totalput then 
if (totalPut mod MaxPerPage)=0 then 
currentpage= totalPut \ MaxPerPage 
else 
currentpage= totalPut \ MaxPerPage + 1 
end if 
end if 
if currentPage=1 then 
showpages 
showContent 
showpages 
else 
if (currentPage-1)*MaxPerPage<totalPut then 
rs.move (currentPage-1)*MaxPerPage 
dim bookmark 
bookmark=rs.bookmark 
showpages 
showContent 
showpages 
else 
currentPage=1 
showContent 
end if 
end if 
rs.close 
end if 
set rs=nothing 
conn.close 
set conn=nothing 
sub showContent 
dim i 
i=0 
do while not (rs.eof or err) %>
                
      <table width="100%" height="249" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#f1f3f5">
                <tr> 
                  <td width="17%" height="25"> <div align="center">应聘岗位</div></td>
                  <td colspan="2">&nbsp;&nbsp;<b><%=rs("jobname")%></b> 
                    &nbsp; </td>
                  <td><a href="Deljobbook.asp?id=<%=rs("ID")%>">删除</a>&nbsp;&nbsp;&nbsp;<a href="Sendmail.asp?email=<%=rs("email")%>">发信</a> 
                  </td>
                </tr>
                <%if rs("email")<>"" then%>
                <tr> 
                  <td height="10"> <div align="center">姓 名</div></td>
                  <td width="34%">&nbsp;&nbsp;<%=rs("mane")%></td>
                  <td width="13%"><div align="center">性 别</div></td>
                  <td width="36%"><%=rs("sex")%></td>
                </tr>
                <tr> 
                  <td height="22"> <div align="center">出生日期</div></td>
                  <td>&nbsp;&nbsp;<%=rs("birthday")%></td>
                  <td><div align="center">婚姻状况</div></td>
                  <td><%=rs("marry")%></td>
                </tr>
                <tr> 
                  <td height="22"><div align="center">毕业院校</div></td>
                  <td colspan="3">&nbsp;&nbsp;<%=rs("school")%></td>
                </tr>
                <tr> 
                  <td height="22"><div align="center">学 历</div></td>
                  <td>&nbsp;&nbsp;<%=rs("studydegree")%></td>
                  <td><div align="center">专 业</div></td>
                  <td><%=rs("specialty")%></td>
                </tr>
                <tr> 
                  <td height="22"><div align="center">毕业时间</div></td>
                  <td>&nbsp;&nbsp;<%=rs("gradyear")%></td>
                  <td><div align="center"><font color="#FF0000">应聘日期</font></div></td>
                  <td><font color="#FF0000"><%=rs("time")%></font></td>
                </tr>
                <tr> 
                  <td height="22"><div align="center">电 话</div></td>
                  <td colspan="3">&nbsp;&nbsp;<%=rs("telephone")%></td>
                </tr>
                <tr> 
                  <td height="22"><div align="center">E-mail</div></td>
                  <td colspan="3">&nbsp;&nbsp;<a href="Sendmail.asp?email=<%=rs("email")%>"><%=rs("email")%></a></td>
                </tr>
                <tr> 
                  <td height="22"><div align="center">联系地址</div></td>
                  <td colspan="3">&nbsp;&nbsp;<%=rs("address")%></td>
                </tr>
                <%end if%>
                <tr> 
                  <td height="25"><div align="center">水平与能力</div></td>
                  <td height="25" colspan="3">&nbsp;&nbsp;<%=rs("ability")%></td>
                </tr>
                <tr> 
                  <td height="25"> <div align="center">个人简历</div></td>
                  <td height="25" colspan="3">&nbsp;&nbsp;<%=rs("resumes")%></td>
                </tr>
              </table>
              </div></td>
        </tr>
      </table>
      <br>
      <table  class=tableBorder border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td><div align="center"><% i=i+1 
if i>=MaxPerPage then exit do 
rs.movenext 
loop 
end sub 
sub showpages() 
dim n 
if (totalPut mod MaxPerPage)=0 then 
n= totalPut \ MaxPerPage 
else 
n= totalPut \ MaxPerPage + 1 
end if 
if n=1 then 
response.write "留言簿管理界面" 
 
exit sub 
end if 
dim k 
response.write "<p align='left'>&gt;&gt; 留言分页 " 
for k=1 to n 
if k=currentPage then 
response.write "[<b>"+Cstr(k)+"</b>] " 
else 
response.write "[<b>"+"<a href='Manage_jobBook.asp?page="+cstr(k)+"'>"+Cstr(k)+"</a></b>] " 
end if 
next 
end sub 
%></div></td>
        </tr>
      </table> 
      <br>
      <br>
    </td>
  </tr>
</table>
<!-- #include file="Foot.asp" -->