---------------------------<Start> 
<% 
Set kc = Server.CreateObject("ADODB.Connection") 
'建立信息库连结对象 
Set RS = Server.CreateObject("ADODB.Recordset") 
'打开存取数据库的对象 
kc.Open 数据库 
'打开数据库 
SQL ="Select * From 数据库里的资料表名称Order By 时间 Desc" 
'打开后按照时间排序 
RS.Open SQL, kc, 3, 2 

page = Clng(Request("usrpage")) 
'使用者传回的页数参数 
RS.PageSize = 5 
'定义每一页显示几笔资料 
If page <1 Then page = 1 
'假如参数小于1,重新定义 page=1 
If page > RS.PageCount Then page = RS.PageCount 
'假如参数大于最大页数,重新定义 page= 最大页数 
RS.AbsolutePage = page 
'将 page 造成定位 
%> 
<%For i = 1 To RS.PageSize%> 
'放入要显示的资料 
<% 
RS.MoveNext 
'移到下一笔资料 
If RS.EOF Then Exit For 
'假如资料已到达最后一笔,离开循环 
Next 
%> 
<% 
If page <> 1 Then 
'假如传回值不等于1时 
Response.Write "<font size=2 color=silver>" &_ 
"<a href=你ㄉASP檔?usrpage=1>第一页</a>" 
'显示第一页 
Response.Write "<font size=2 color=silver>" &_ 
"<a href=你ㄉASP檔?usrpage=" & (page - 1) & ">上一页</a>" 
'和显示上一页 
End If 
If page <> RS.PageCount Then 
'假如传回值不超过总页数时 
Response.Write "<font size=2>" &_ 
"<a href=show.asp?usrpage=" & (page + 1) & ">下一页</a>" 
'显示下一页 
Response.Write "<font size=2>" &_ 
"<a href=show.asp?usrpage=" & RS.PageCount & ">最后一页</a>" 
'和显示最后一页 
End If 
%> 
页数:<font color=red> <%=page%>/ 
'目前第几页 
总页数<%=RS.PageCount%> 
'总页数 
跳页: 
<form action="你的ASP檔" method="get" name="form"> 
'传送位置 
<select name="usrpage" size=1 onchange="document.form.submit()"> 
<%For ks = 1 To RS.PageCount%> 
<option value="<%=ks%>" <%If page=ks Then>Selected<%End If%>>第<%=ks%>页</option> 
<%Next%> 
</select> 
'假如传入值(page)等于 ks 的某一项那造成某一项为默认值 Selected 
<% 
RS.Close 
'关毕 Recordset 对象 
conn.Close 
'关毕 Connection 对象 
Set kc = Nothing 
'一定要设这一行,意思是 释放 connection 对象 
Set RS = Nothing 
'释放 connection 对象 
%> 
------------------------<END> 
这是我第一次写作,假如有缺失请各位高手多多包含~~~ 
有问题的话可以写信给我或来我的留言板留言...就酱!

标签：