28,391
社区成员
发帖
与我相关
我的任务
分享
<%
dim i,intPage,page,pre,last,filepath
set rs = server.CreateObject("adodb.recordset")
sql="select * from job order by bh desc"
rs.PageSize = 10
rs.CursorLocation = 3
rs.Open sql,conn,0,2,1
pre = true
last = true
page = trim(Request.QueryString("page"))
if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) = < 1 then
intpage = 1
pre = false
else
if cint(page) >= rs.PageCount then
intpage = rs.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rs.eof then
rs.AbsolutePage = intpage
end if
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
%>
<tr class="jobx" align="center">
<td class="jobx"><%=i%> </td>
<td class="jobx"> <%=Rs("name")%> </td>
<td class="jobx"> <%=Rs("bumen")%> </td>
<td class="jobx"> <%=Rs("renshu")%> </td>
<td class="jobx"> <%=Rs("didian")%> </td>
<td class="jobx"> </td>
</tr>
<%
rs.movenext
next
%>