<%
set rs=server.createobject("adodb.recordset")
sql="select * from liuyan order by id desc"
rs.open sql,conn,1,1
lise=rs.RecordCount
if request("page")<>"" then
page=request("page")
else
page=1
end if
pagenum=int(lise/6)
if lise<>(pagenum*6) then
pagenum=pagenum+1
end if
%>
<td width="144" bgcolor="#6699cc">
<div align="center"><font color="#ffffff">共加入留言<%=lise%>条</font></div>
</td>
<td width="597" bgcolor="#ffcccc">
<div align="center">目前留言<%=lise%>条.
.本留言共<%=pagenum%>页
<%
if page>1 then
%>
<a href="l_yan.asp?page=<%=page-1%>">前一页</a>
<%
end if
if (pagenum-page)>0 then
%>
<a href="l_yan.asp?page=<%=page+1%>">后一页</a>
<%
end if
%>
<%if lise=0 then
response.Write"目前没有用户留言!"
else
for j=0 to ((page-1)*6-1)
rs.movenext
next
i=0
do while not rs.eof and i<6
%>
内容
<%i=i+1
rs.movenext
loop
set rs=nothing
end if
if page>1 then
%>
<a href="l_yan.asp?page=<%=page-1%>">前一页</a>
<%
end if
if (pagenum-page)>0 then
%>
<a href="l_yan.asp?page=<%=page+1%>">后一页</a>
<%end if
%>
rs.recordcount 共多少条记录<br>
<%
set conn=Server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&Server.Mappath("mydb.mdb")
set rs=Server.CreateObject("adodb.recordset")
sql="select * from mytable"
rs.open sql,conn,1,1
'***************以上不必多说了吧!!**********************
Rs.Pagesize=5 '设置一页显示多少条记录 如:5条
pnc=request.querystring("pnc")
if pnc<>"" then
rs.absolutepage=CInt(pnc) '当前显示第几页?
else
pnc=1
rs.absolutepage=CInt(pnc)
end if
%>
<table align="center" border="1" width="80%">
<%'*********************开始显示记录了****************
For I=1 To Rs.Pagesize
If Rs.Eof Then
Exit For
End If
%>
<tr>
<td>
<%=rs("username")%>
</td>
<td>
<%=rs("password")%>
</td>
</tr>
<%
next
%>
</table><br>
共有<%=rs.recordcount%>条记录 页号:
<%
if pnc<>1 then
response.write "<a href=""?pnc=1"">第一页</a> <a href=""?pnc="&pnc-1&""">上一页</a>"
end if
for j=1 to rs.pagecount
if j<>CInt(pnc) then '如果不是当前页有链接
%>
<a href="?pnc=<%=j%>">
<%
end if
response.write j
if j<>CInt(pnc) then
response.write "</a> "
end if
next
%>
<%
pnc=CInt(pnc)
if pnc<>rs.pagecount then
response.write "<a href=""?pnc="&pnc+1&""">下一页</a> <a href=""?pnc="&rs.pagecount&""">最后一页</a>"
end if
rs.close
set rs=nothing
<%
dim oConn, oRS
Set conn = Server.CreateObject("Adodb.Connection")
conn.Open Application("wf_Conniac_hrSQL")
set rs1=server.CreateObject("adodb.recordset")
'sql="select * from jobrequired WHERE enabled='Y' order by rewardmoney desc"
sql="select * from jobrequired WHERE enabled='Y' order by expiredate"
if rs1.RecordCount=0 then
Response.Write ("<p><center>對不起,沒有查到您要的數據!</center></p>")
else
pagen=request("tempage")
if pagen="" then
pagen=1
end if
sa=Request("sa")
if sa="上一頁" then
pagen=pagen-1
elseif sa="下一頁" then
pagen=pagen+1
elseif sa="確定" then
pagen=request("p")
if pagen="" then
pagen=1
end if
end if
rs1.AbsolutePage = pagen
pagebegin=rs1.PageSize*(pagen-1)+1
if rs1.PageSize*pagen<rs1.RecordCount then
pagend=rs1.PageSize*pagen
else
pagend=rs1.RecordCount
end if
end if
total=rs1.PageCount
recordtotal=rs1.RecordCount
<td width="11%">從事相關工作</td>
<td width="11%">其他</td>
<td width="7%">截止日期</td>
<td width="7%">推薦</td>
</tr>
<% RC=rs1.PageSize
do while not rs1.EOF and RC>0
For I = 1 To psize
If I/2 = INT(I/2) Then
BgColor = "#DFF3ee"
Else
BgColor = "#DFF3FF"
End If
if cint(rs1("rewardmoney")) = 0 then
BgColor = "darkseagreen"
end if
</tr>
</form>
</tr>
<%RC=RC-1
rs1.MoveNext
If rs1.EOF Then Exit for
Next
loop
%>
</table>
<form name="formn" action="listjob.asp" >
<% if all="on" then %>
<INPUT type="hidden" size="8" name="all" value="on">
<% end if %>
<INPUT type="hidden" size="8" name="name" value="<%=name%>">
<input type="hidden" name="tempage" value="<%=pagen%>">
<%
if pagen>1 then%>
<input type="submit" name="sa" value="上一頁" class=ButtonStyle>
<%end if
if pagen<total then %>
<input type="submit" name="sa" value="下一頁" class=ButtonStyle>
<%end if
if recordtotal>psize then%>
on error resume next
myconn="Provider=SQLOLEDB.1;Persist Security Info=True;User ID=baiyu;PWD=;Initial Catalog=baisun;Data Source=bfy"
set conn=server.createobject("adodb.connection")
conn.open myconn
set rs=server.createobject("adodb.recordset")
sql="select a,b,c, from bai"
rs.open sql,conn,1,1
......
<%
'-------
'分页bfy
'-------
%>
dim page,rscount,pagecount,SNO
const Url="baisun.asp?"
if session("screenWidth")=1024 and session("screenHeight")=768 then '根据分辨率设置显示行数
rs.pagesize=16
elseif session("screenWidth")=800 and session("screenHeight")=600 then
rs.pagesize=11
else
rs.pagesize=19
end if
rscount=rs.recordcount
'pagecount=rs.pagecount
pagecount=cint(rs.pagecount)
page=trim(request("page"))
if page="" then
page=1
end if
page=cint(page)
if page<1 then
page=1
end if
if page>pagecount then
page=pagecount
end if
if request("page")<>"" then rs.absolutepage=page
rowcount=rs.pagesize
if not rs.eof then
rs.movefirst
do while not rs.eof and rowcount>0
......
rowcount=rowcount-1
rs.MoveNext
loop
end if