CDSN上一页下一页功能模仿

本篇文章主要介绍了"CDSN上一页下一页功能模仿"，主要涉及到方面的内容，对于ASPjrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播感兴趣的同学可以参考一下： 从后台读取记录，如果数据过多，就需要划分多页去显示，本章就是模仿CDSN来实现该功能的，采用asp动态语言实现的，求喷我，css这部分我完全是copy过来的，只...

从后台读取记录，如果数据过多，就需要划分多页去显示，本章就是模仿CDSN来实现该功能的，采用asp动态语言实现的，求喷我，css这部分我完全是copy过来的，只改了一点，我主要完成的是asp后面的代码。本章也是做一个记录，方便后面项目中使用，如上图所示。

新建pagelist.css文件：

/* CSS Document */
.pagelist{clear:both;padding:15px 0;color:#666;font:normal 12px/24px Arial;text-align:center}
.pagelist a{display:inline-block;height:22px;margin:0 2px;padding:0 8px;border:solid 1px #dbe5ee;background:#fff;color:#333;font:normal 12px/22px Arial,Helvetica,sans-serif;cursor:pointer;text-decoration : none;}
.pagelist strong{display:inline-block;height:24px;margin:0 3px;padding:0 8px;border:0;background:#07519a;color:#fff;font-weight:normal;line-height:24px;text-decoration:none}
.pagelist a:hover{height:24px;margin:0 3px;border:0;background:#07519a;color:#fff;line-height:24px;text-decoration:none}
.pagelist a.select{cursor:default}

	<%@LANGUAGE='VBSCRIPT' CODEPAGE='65001'%>
	

	<%
		dim page,startPos,endPos
		dim url
		url = "main.asp?page="
		page = cint(request.QueryString("page"))
		set conn=Server.CreateObject("ADODB.Connection")
		conn.open"provider=microsoft.jet.oledb.4.0;data source="&server.mappath("info.mdb")
		set rs=server.createobject("adodb.recordset")
		sql = "select * from client"
		rs.open sql,conn,1,3
		rs.pagesize = 2							'每页有多少数据，这里设置为2主要是方便测试
		allpage = rs.pagecount					'一共有多少页
		if page < 1 then page = 1
		if page > allpage then page = allpage
		rs.absolutepage=page
		response.Write(" " & cstr(rs.recordcount) & "条数据  共" & cstr(allpage) & "页" & "" + vbcrlf)
		if page > 1 then
			response.Write("首页" + vbcrlf)
			response.Write("上一页" + vbcrlf)
		end if
		startPos = page - 3						'该数字可以更改，自己试试看，我就不表达了，意会就行了
		endPos = page + 3
		if startPos < 1 then
			startPos = 1
		elseif startPos > 1 then
			response.Write("..." + vbcrlf)
		end if
		if endPos > allpage then
			endPos = allpage
		end if
		for i = startPos to endPos
			if i = page then
				response.Write("" & cstr(i) & "")
			else
				response.Write("" & cstr(i) & "" + vbcrlf)
			end if
		next
		if endPos < allpage then
			response.Write("..." + vbcrlf)
		end if
		if page <> allpage then
			response.Write("下一页" + vbcrlf)
			response.Write("尾页" + vbcrlf)
		end if
		rs.close
		conn.close
	%>