|
|
您的位置 : 首页 人力资源 |
|
<%
'读取招聘的属性,以确定显示那个字段
showAddress=GetKey("Address",WebUserID,"job_" & strCurrMenu )
showCount=GetKey("Count",WebUserID,"job_" & strCurrMenu )
showExpires=GetKey("Expires",WebUserID,"job_" & strCurrMenu )
showPay=GetKey("Pay",WebUserID,"job_" & strCurrMenu )
showDetail=GetKey("Detail",WebUserID,"job_" & strCurrMenu )
%>
<%
'从这开始读数据
strSQL="Select * From web_job Where mn_id=" & strCurrMenu & " " & strQuery & " Order by j_create Desc"
rs.open strSQL,conn,1,1
'分页显示初始化
page=GetVariable("page")
if page="" then
page=1
else
page=Cint(page)
end if
Section=GetVariable("section")
if Section="" then
Section=1
else
Section=Cint(Section)
end if
'变量赋值
intPageSize=6 '每页显示记录数
intSectionSize=5 '多少页为一段,像GOOGLE一样
PrevSectionText="7" '上一段的链接文字
NextSectionText="8" '下一段的链接文字
PrevPageText="3" '上页的链接文字
NextPageText="4" '下页的链接文字
strPageUrl="?t="
rs.pagesize=intPageSize
intCount=rs.RecordCount
intPageCount=rs.pagecount
intSectionCount=(intPageCount - 1) \ intSectionSize + 1
if intCount>0 then
rs.AbsolutePage=page
else
response.Write("暂时没有可看内容!")
end if
%>
<%
'开始输出最新新闻
for i=1 to intPageSize
if rs.eof then exit For
JobID=rs("id")
if i mod 2=0 then
strColor="#ACCDFF"
else
strColor="#FF9900"
end if
%>
○<%=trim(rs("j_title"))%> |
<% if showExpires<>"none" then%>
招聘期限:<%=trim(rs("j_expires"))%> |
<%end if%>
<% if showAddress<>"none" then%>
工作地点:<%=trim(rs("j_addr"))%> |
<%end if%>
<% if showCount<>"none" then%>
招聘人数:<%=trim(rs("j_count"))%> |
<%end if%>
<% if showPay<>"none" then%>
工资待遇: <%=trim(rs("j_pay"))%>
<%end if%>
|
|
<% if showDetail<>"none" then%>
详情信息>>>
<%end if%>
|
<%
rs.movenext
next
%>
共有<%=intCount%>记录,分<%=intPageCount%>页,当前页<%=Page%>,每页显示<%=intPageSize%>条记录
<%
'计算每一段的开始页
intStarPage=(Section-2) * intSectionSize + 1
'前一段
if Section<=1 then
response.Write(PrevSectionText & " ")
else
response.Write("" & PrevSectionText & " ")
end if
'显示页码列表
response.Write("第")
intStarPage=(Section-1) * intSectionSize + 1
for p=intStarPage to intStarPage + intSectionSize - 1
if p > intPageCount then exit for
if p=page then
response.Write("[" & p & "] ")
else
response.Write("[" & p & "] ")
end if
next
response.Write("页")
'后一段
intStarPage=(Section) * intSectionSize + 1
if Section>=intSectionCount then
response.Write(" " & NextSectionText)
else
response.Write(" " & NextSectionText & " ")
end if
%>
|
|
|
|
|
|
|