<% call ShowTop(3,3,"") Dim con_ Dim rst_ Dim uppage Dim downpage Dim lngPageNum Dim lngTNum Dim lngPNum Dim lngTemp_jy Dim strSort strSort=request("strSort") lngPageNum=request("lngPageNum") If strSort = "" Then strSort = "招聘.Id desc" Set con_ = Server.CreateObject("ADODB.CONNECTION") Set rst_ = Server.CreateObject("ADODB.recordset") con_.Open con_zhaop If lngPageNum = "" Then lngPageNum = 1 rst_.Open "select count(*) as num from 招聘", con_, 2, 4 lngTNum = rst_("num") rst_.Close Set rst_ = Nothing con_.Close Set con_ = Nothing If lngTNum Mod lngPerPageNum = 0 Then lngPNum = lngTNum / lngPerPageNum Else lngPNum = Int(lngTNum / lngPerPageNum) + 1 End If uppage = 0 downpage = 0 If CLng(lngPageNum) < lngPNum Then downpage = lngPageNum + 1 If CLng(lngPageNum) > 1 Then uppage = lngPageNum - 1 Response.Write "
" Call ShowTop_GD Call Show_List((lngPageNum - 1) * lngPerPageNum + 1, lngPerPageNum) Call ShowTop_GD Sub Show_List(lngStart, lngNum) %> <% Dim con_ Dim rst_ Dim lngTemp Dim lngTemp1 Set con_ = Server.CreateObject("ADODB.CONNECTION") Set rst_ = Server.CreateObject("ADODB.recordset") con_.Open con_zhaop rst_.Open "select 招聘.*,公司.公司名称 from 招聘,公司 where 招聘.用户代号=公司.用户代号 order by " & strSort, con_, 2, 4 If Not rst_.EOF Then For lngTemp = 1 To lngStart - 1 If Not rst_.EOF Then rst_.MoveNext Else Exit For End If Next lngTemp = 0 Do Until rst_.EOF %> <% rst_.MoveNext lngTemp = lngTemp + 1 If lngTemp = lngNum Then Exit Do Loop End If %>

公司	招聘行业	招聘职务	人数	日期
<%= rst_("公司名称")%>	<%= rst_("招聘行业")%>	<%= rst_("招聘职务")%>	<% select case rst_("招聘人数") case 0 Response.Write "无限制" case else Response.Write rst_("招聘人数") end select %>	<%= month(rst_("发表日期")) & "月" & day(rst_("发表日期")) & "日"%>

<% rst_.Close Set rst_ = Nothing con_.Close Set con_ = Nothing End Sub sub ShowTop_GD() %> <%if uppage<>0 then%> <%else%> <%end if%> <%if downpage<>0 then%> <%else%> <%end if%>

记录总数：<%= lngTNum%>

总页数：<%= lngPNum%>

当前页：<%= lngPageNum%>

[到上一页]

[到上一页]

[到下一页]

[到下一页]

跳到第 页

<% end sub %>