<!--#include file="Inc/Conn.asp"-->
<!--#include file="Inc/eshopcode.asp"-->
<!--#include file="Inc/Code.asp"-->
<!--#include file="Head.asp"-->
<%
Set rs=Server.CreateObject("Adodb.RecordSet")
Sql = "Select * From [Job] Order By [JTime] desc"
rs.Open Sql,Conn,1,1
dim MaxPerPage
MaxPerPage=3

Dim text,checkpage
text="0123456789"
Rs.PageSize=MaxPerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next

If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if

Function JobShow()
Dim JobH
If rs.Eof Then
JobH = JobH & "没有招聘信息!"
Else
i=0
Do While Not rs.Eof
JobH = JobH & "<br> <table width=80% border=0 align=center cellpadding=2 cellspacing=1 bgcolor=#d8d8d8>"
JobH = JobH & "<tr>" 
JobH = JobH & "<td width=25% bgcolor=#FFFFFF> <div align=center>招聘对象</div></td>"
JobH = JobH & "<td width=75% bgcolor=#FFFFFF>"&rs("JObject")&"</td>"
JobH = JobH & "</tr>"
JobH = JobH & "<tr>" 
JobH = JobH & "<td bgcolor=#FFFFFF> <div align=center>招聘人数</div></td>"
JobH = JobH & "<td bgcolor=#FFFFFF>"&rs("JRenshu")&"</td>"
JobH = JobH & "</tr>"
JobH = JobH & "<tr>" 
JobH = JobH & "<td bgcolor=#FFFFFF> <div align=center>工作地点</div></td>"
JobH = JobH & "<td bgcolor=#FFFFFF>"&rs("JPlace")&"</td>"
JobH = JobH & "</tr>"
JobH = JobH & "<tr>" 
JobH = JobH & "<td bgcolor=#FFFFFF> <div align=center>工资待遇</div></td>"
JobH = JobH & "<td bgcolor=#FFFFFF>"&rs("JMoney")&"</td>"
JobH = JobH & "</tr>"
JobH = JobH & "<tr>" 
JobH = JobH & "<td bgcolor=#FFFFFF> <div align=center>发布时间</div></td>"
JobH = JobH & "<td bgcolor=#FFFFFF>"&rs("JTime")&"</td>"
JobH = JobH & "</tr>"
JobH = JobH & "<tr>" 
JobH = JobH & "<td bgcolor=#FFFFFF> <div align=center>有效期限</div></td>"
JobH = JobH & "<td bgcolor=#FFFFFF>"&rs("JShixian")&"</td>"
JobH = JobH & "</tr>"
JobH = JobH & "<tr>" 
JobH = JobH & "<td height=22 bgcolor=#FFFFFF> <div align=center>招聘要求</div></td>"
JobH = JobH & "<td bgcolor=#FFFFFF>"&rs("JRequest")&"</td>"
JobH = JobH & "</tr>"
JobH = JobH & "<tr>" 
JobH = JobH & "<td height=22 bgcolor=#FFFFFF>&nbsp;</td>"
JobH = JobH & "<td bgcolor=#FFFFFF><div align=right><a href=AcceptJob.asp?id="&rs("ID")&">应聘此岗位</a></div></td>"
JobH = JobH & "</tr>"
JobH = JobH & "</table><br>"
	  i=i+1 
If i >= MaxPerpage Then Exit do 
rs.MoveNext
loop
End if
JobShow = JobH
End Function

Dim Paha 
Paha = Paha & "共 <font color='#ff0000'>" & Cstr(Rs.RecordCount) & "</font> 条信息&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
Paha = Paha & "第 " & Cstr(CurrentPage) & "/" & Cstr(rs.pagecount) & "&nbsp;"
If currentpage > 1 Then
If Request.QueryString("tit")="" Then 
Paha = Paha & "<a href='Job.asp?page="+cstr(1)+"'>首页 </a>&nbsp;"
Paha = Paha & "<a href='Job.asp?page="+Cstr(currentpage-1)+"'> 上一页 </a>&nbsp;"
Else
Paha = Paha & "<a href='Job.asp?tit=" &Trim(Request.QueryString("tit"))& "&page="+cstr(1)+"'>首页 </a>&nbsp;"
Paha = Paha & "<a href='Job.asp?tit=" &Trim(Request.QueryString("tit"))& "&page="+Cstr(currentpage-1)+"'> 上一页 </a>&nbsp;"
End if
Else
Paha = Paha & " 上一页 "
End if
If currentpage < Rs.PageCount Then
If Request.QueryString("tit")="" Then 
Paha = Paha & "<a href='Job.asp?page="+Cstr(currentPage+1)+"'> 下一页</a>&nbsp;"
Paha = Paha & "<a href='Job.asp?page="+Cstr(Rs.PageCount)+"'> 尾页</a>&nbsp;&nbsp;"
Else
Paha = Paha & "<a href='Job.asp?tit=" &Trim(Request.QueryString("tit"))& "&page="+Cstr(currentPage+1)+"'> 下一页 </a>&nbsp;"
Paha = Paha & "<a href='Job.asp?tit=" &Trim(Request.QueryString("tit"))& "&page="+Cstr(Rs.PageCount)+"'> 尾页</a>&nbsp;&nbsp;"
End if
Else
Paha = Paha & "下一页&nbsp;&nbsp;"
End if
Paha = Paha & "</td><td align='right'>"
Paha = Paha & "转到：<input type='text' name='pp' size=4 maxlength=4 class=smallInput value="&Currentpage&">&nbsp;"
Paha = Paha & "<input type='submit'  value='Go'  name='cndok'>&nbsp;&nbsp;"

Dim JobHtml
JobHtml = application("JaJob")
JobHtml = Replace(JobHtml,"{用户登陆}",UserLogin())
JobHtml=replace(JobHtml,"{新闻信息}",TopJob("Job_ID"))
JobHtml = Replace(JobHtml,"{用户搜索}",FindProd())
JobHtml = Replace(JobHtml,"{用户投票}",ShowVote())
JobHtml = Replace(JobHtml,"{招聘信息}",JobSHow())
JobHtml = Replace(JobHtml,"{分页信息}",Paha)
Response.Write JobHtml
rs.Close
Set rs=Nothing
%>

<!--#Include File="bottom.Asp"-->