怎么做分页代码

来源：百度知道 编辑：UC知道 时间：2024/07/02 14:58:19
我希望分页代码是这样的：首先有<<[1].......[10] >>只有十个页码显示。具体情况请到http://www.jxh07.com.cn/newspaper.htm下页显示<<[2]......[11]>>.怎么实现。好的多给积分！

<%
strSQL = "SELECT * FROM [SFCMS_Article_News] WHERE News_Class=%News_Class_Id% ORDER BY News_Id DESC"
strSQL = Replace(strSQL,"%News_Class_Id%",News_Class_Id)
Set rs = conn.Execute(strSQL)
If rs.RecordCount = 0 Then
%>
未添加任何信息
<%
Else
rs.PageSize = 30

If page <= 1 Then page = 1

If rs.AbsolutePage >= rs.pageCount Then page = rs.PageCount

rs.AbsolutePage = page
%>
<%
For i = 1 to rs.PageSize
If rs.EOF Then Exit For
%>
显示数据
<%
rs.MoveNext
If rs.EOF Then Exit For
Next
%>
<%
For i = 0 To 9
If i = 0 Then
Response.Write(Page & " ")
Else
Response.Write("<a href='xxx.asp?page='" & Page + i & ">" & Page + i & "</a> ")
End If
Next
%>