<%
action=request("action")
if action="" then
set rs=server.createobject("adodb.recordset")
sqltext="select * from job order by id desc"
rs.open sqltext,conn,1,1
dim MaxPerPage
MaxPerPage=10
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
call list
If Rs.recordcount > MaxPerPage then
call showpages
end if
'显示帖子的子程序
Sub list()%>
|
ID |
招聘对象 |
招聘人数 |
发布时间 |
有效期限 |
操作 |
操作 |
<%
if not rs.eof then
i=0
do while not rs.eof
%>
| <%=rs("id")%> |
<%=rs("Duix")%> |
<%=rs("Rens")%>人 |
<%=rs("Time")%> |
<%=rs("Qix")%>天 |
|
|
<%
i=i+1
if i >= MaxPerpage then exit do
rs.movenext
loop
end if
%>
|
<%
Response.write "-> 全部-"
Response.write "共" & "" & Cstr(Rs.RecordCount) & "" & "条招聘信息 "
Response.write "第" & "" & Cstr(CurrentPage) & "" & "/" & Cstr(rs.pagecount) & " "
If currentpage > 1 Then
response.write "首页 "
Response.write "上一页 "
Else
Response.write "上一页 "
End if
If currentpage < Rs.PageCount Then
Response.write "下一页 "
Response.write "尾页 "
Else
Response.write ""
Response.write "下一页 "
End if
%>
|
<%
End sub
rs.close
set rs = nothing
end if
if action="readd" then
call edit_job()
end if
if action="add" then
call job_add()
end if
if action="zhaop" then
call job_zhaop()
end if
%>
|