<% call ShowTop(2,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 = "求职.点击次数 desc" Set con_ = Server.CreateObject("ADODB.CONNECTION") Set rst_ = Server.CreateObject("ADODB.recordset") con_.Open con_qiuzh If lngPageNum = "" Then lngPageNum = 1 rst_.Open "select count(*) as num from 求职", con_, 0, 1 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_qiuzh Response.Flush rst_.Open "select 求职.*,个人.姓名,个人.最高教育学历 from 求职,个人 where 求职.用户代号=个人.用户代号 order by " & strSort, con_, 0, 1 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_("姓名")%>	<%if rst_("最高教育学历")<>"" then Response.Write rst_("最高教育学历") else Response.Write " "%>	<%= rst_("要求工作地点")%>	<%= rst_("应聘行业")%>	<%= rst_("应聘职务")%>	<%= rst_("点击次数")%>	<%= 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 %>