<% '输出页码信息
sub page_select() '首页 上一页 下一页 尾页 页面跳转选择
pageurl=Request.ServerVariables("SCRIPT_NAME") '取得当前文件名称
if page_now>1 then
response.Write "<a href="&PageUrl&"?page_now=1"&">首页</a>"
else
response.Write "首页"
end if
response.Write " "
if page_now>1 then
response.Write "<a href="&PageUrl&"?page_now="&page_now-1&">上一页</a>"
else
response.Write "上一页"
end if
response.Write " "
if page_now<page_total then
response.Write "<a href="&PageUrl&"?page_now="&page_now+1&">下一页</a>"
else
response.Write "下一页"
end if
response.Write " "
if page_now<page_total then
response.Write "<a href="&PageUrl&"?page_now="&page_total&">尾页</a>"
else
response.Write "尾页"
end if
response.Write " "
response.Write "第"&page_now&"页/共"&page_total&"页"
response.Write " "
tiao="跳到<select name='pageSelect' onChange='document.location=this.value'>"
for i=1 to page_total ' 跳转选择
If i=page_now Then
tiao=tiao&"<option value="&PageUrl&"?page_now="&i&" selected>"&i&"</option>"
Else
tiao=tiao&"<option value="&PageUrl&"?page_now="&i&">"&i&"</option>"
End If
Next
response.Write tiao
end sub
%>
<%
' -------------------------- 数据库分页简单例子-----------------------
set rs=server.CreateObject("Adodb.recordset")'
sql="select * from workname "
rs.open sql,conn,1,1
if not rs.bof and not rs.eof then
if request.QueryString("page_now")="" then
page_now=1
else
page_now=cint(request.QueryString("page_now"))
end if
page_size=3
rs.pagesize=page_size '每页的数目
page_total=rs.pagecount '共分成多少页
rs.absolutepage=page_now '当前页
dim i '------------- 输出控制
i=page_size
do while not rs.eof and i>0
i=i-1
%>
<% response.Write rs("workname")&"</br>" ' 循环体%>
<%
rs.movenext
loop '循环体
%>
<%
call page_select ' 页面选择输出
%>
<%
else '数据库为空
response.Write "数据库为空!"
end if
rs.close
set rs=nothing
%>