<% const MaxPerPage=17 dim totalPut dim CurrentPage dim TotalPages dim i if Chkrequest(request("page")) then currentPage=request("page") else currentPage=1 end if dim sql dim rs dim gsid,qymc gsid=session("id") sql="select * from work where gsid="&gsid&" order by info_ID desc" set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "" response.end else 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 showContent showpage totalput,MaxPerPage,"edit.asp" content else if (currentPage-1)*MaxPerPage

商务助手首页

发布商业信息

查看商业往来

我的会员资料

我的自助网站

帮助

<%sub content%>

<%do while not rs.eof%> <% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop rs.close set rs=nothing %>

招聘职位	发布日期	操作
")"><%=rs("showname")%>	<%=rs("dateandtime")%>	">	">

<% end sub function showpage(totalnumber,maxperpage,filename) dim n if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if response.write "

" if CurrentPage<2 then response.write "" response.write "" response.write "" response.write "" response.write "

" response.write "共"&n&"页第"&CurrentPage&"页 " response.write "共发布"&totalnumber&" 条信息" response.write "

" response.write "【最前页】【上一页】" else response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "


" response.write "共"&n&"页第"&CurrentPage&"页 " response.write "共发布"&totalnumber&" 条信息" response.write "	" response.write "【最前页】" response.write "【上一页】" end if if n-currentpage<1 then response.write "【下一页】【最后页】" else response.write "【" response.write "下一页】【最后页】" end if response.write "" response.write "

" end function %>

<%end sub%>