ASP数字分页显示代码实例
ASP 分页显示 记录集
＜a href=linkadmin.asp?page=＜%=pagenum%＞＞尾页＜/a＞ |
页次:＜%=page%＞/＜%=pagenum%＞页 |
If rs1.recordcount＞0 Then ' 记录集不为空则处理记录
rs1.pagesize = 10 ' 设置每页显示的记录数
num=rs1.recordcount ' 记录总数
pagenum=rs1.pagecount ' 页总数
page=request("page") ' 获取页码的原始信息
%＞
＜!--判断当前页是否是最后一页，并根据判断设置记录的重复显示--＞
＜% if page＜＞pagenum then
lablenum=rs1.pagesize
else
lablenum=num-(page-1)*rs1.pagesize
end if
for i=1 to lablenum
＜/div＞＜/td＞
＜/tr＞
＜%
end if
rs1.Close()
Set rs1 = Nothing
%＞
好了，很简单吧！只要简单地修改一下就能插入到你的网页显示记录的地方了，赶快试试吧！
%＞
＜tr bgcolor="#FFFFFF"＞
＜td height="25"＞＜div align="center"＞＜%=(rs1.Fields.Item("id").Value)%＞＜/div＞＜/td＞
ASP 数据的分页显示
ASP 数据的分页显示
在ASP中，数据的分页显示非常实用，它的应用可以使数据表中的多条数据实现分页显示，使数据的显示更加条理清晰。
本扩展练习的目的是：使数据表messageTable中的数据实现分页显示，并实现数据的翻页功能。
（1）创建一个命名为Message.asp的ASP页面，主要实现留言内容的添加。
左键单击【文件】|【新建】命令，弹出【新建文档】对话框，在对话框的【文件类型】中选择【ASP VbScript】，【布局】中选择【无】，单击【创建】按钮。
（2）左键单击【文件】|【保存】命令，弹出另存为对话框。
在对话框的【文件名】中输入Message.asp，【保存类型】的下拉列表框中选择“Active Server Pages(*.asp;*.asa)”，单击【保存(S)】按钮。
库驱动程序，然后建立链接并查询数据返回结果集rs
（5）向ASP文件中，添加表格，并在表格中输出数据。
首先向表格中添加标
（7）关闭数据库链接，代码如下所示。
.
图9-5 分页显示。
asp分页
<%Const maxPagesize=1000 '设置分页字数Function InsertPageBreak(strText)Dim strPagebreak,s,ssDim i,IsCount,c,iCount,strTemp,Temp_String,Temp_ArraystrPagebreak="[hiweb_break]"s=strTextIf Len(s)<maxPagesize ThenInsertPageBreak=sEnd Ifs=Replace(s, strPagebreak, "")s=Replace(s, " ", "< >")s=Replace(s, ">", "<>>")s=Replace(s, "<", "<<>")s=Replace(s, """, "<">")s=Replace(s, "'", "<'>")If s<>"" and maxPagesize<>0 and InStr(1,s,strPagebreak)=0 thenIsCount=TrueTemp_String=""For i= 1 To Len(s)c=Mid(s,i,1)If c="<" ThenIsCount=FalseElseIf c=">" ThenIsCount=TrueElseIf IsCount=True ThenIf Abs(Asc(c))>255 TheniCount=iCount+2ElseiCount=iCount+1End IfIf iCount>=maxPagesize And i<Len(s) ThenstrTemp=Left(s,i)IfCheckPagination(strTemp,"table|a|b>|i>|strong|div|span") thenTemp_String=Temp_String & Trim(CStr(i)) & ","iCount=0End IfEnd IfEnd IfEnd IfNextIf Len(Temp_String)>1 Then Temp_String=Left(Temp_String,Len(Temp_String)-1)Temp_Array=Split(Temp_String,",")For i = UBound(Temp_Array) To LBound(Temp_Array) Step -1ss = Mid(s,Temp_Array(i)+1)If Len(ss) > 380 Thens=Left(s,Temp_Array(i)) & strPagebreak & ssElses=Left(s,Temp_Array(i)) & ssEnd IfNextEnd Ifs=Replace(s, "< >", " ")s=Replace(s, "<>>", ">")s=Replace(s, "<<>", "<")s=Replace(s, "<">", """)s=Replace(s, "<'>", "'")InsertPageBreak=sEnd FunctionFunction CheckPagination(strTemp,strFind)Dim i,n,m_ingBeginNum,m_intEndNumDim m_strBegin,m_strEnd,FindArraystrTemp=LCase(strTemp)strFind=LCase(strFind)If strTemp<>"" and strFind<>"" thenFindArray=split(strFind,"|")For i = 0 to Ubound(FindArray)m_strBegin="<"&FindArray(i)m_strEnd ="</"&FindArray(i)n=0do while instr(n+1,strTemp,m_strBegin)<>0n=instr(n+1,strTemp,m_strBegin)m_ingBeginNum=m_ingBeginNum+1Loopn=0do while instr(n+1,strTemp,m_strEnd)<>0n=instr(n+1,strTemp,m_strEnd)m_intEndNum=m_intEndNum+1LoopIf m_intEndNum=m_ingBeginNum thenCheckPagination=TrueElseCheckPagination=FalseExit FunctionEnd IfNextElseCheckPagination=FalseEnd IfEnd FunctionFunction ContentPagination(hiwebstr)Dim ContentLen, maxperpage, PaginateDim arrContent, strContent, iDim m_strFileUrl,m_strFileExt,ArticleIDArticleID=Request.QueryString("ID")strContent = InsertPageBreak(hiwebstr)strContent = Replace(strContent, "[hiweb_break]", "[hiweb_break]")ContentLen = Len(strContent)CurrentPage=Request.QueryString("Page")If CurrentPage="" Then CurrentPage=0If InStr(strContent, "[hiweb_break]") <= 0 ThenArticleContent = "<div id=""NewsContentLabel"" class=""NewsContent"">" & strContent & "</div><div id=""Message"" class=""Message""></div>"ElsearrContent = Split(strContent, "[hiweb_break]")Paginate = UBound(arrContent) + 1If CurrentPage = 0 ThenCurrentPage = 1ElseCurrentPage = CLng(CurrentPage)End IfIf CurrentPage < 1 Then CurrentPage = 1If CurrentPage > Paginate Then CurrentPage = PaginatestrContent = "<div id=""NewsContentLabel"" class=""NewsContent"">"& arrContent(CurrentPage - 1)ArticleContent = ArticleContent & strContentIf UserArticle = True ThenArticleContent = ArticleContent & "</p></div><div id=""Message"" class=""Message""></div><p align=""center""><b>"ElseArticleContent = ArticleContent & "</p></div><p align=""center""><b>"End IfIf IsURLRewrite Thenm_strFileUrl = ArticleID & "_"Elsem_strFileExt = ""m_strFileUrl = "?id=" & ArticleID & "&Page="End IfIf CurrentPage > 1 ThenIf IsURLRewrite And (CurrentPage-1) = 1 ThenArticleContent = ArticleContent & "<a href="""& ArticleID & m_strFileExt & """>上一页</a> "ElseArticleContent = ArticleContent & "<a href="""& m_strFileUrl & CurrentPage - 1 & m_strFileExt & """>上一页</a> "End IfEnd IfFor i = 1 To PaginateIf i = CurrentPage ThenArticleContent = ArticleContent & "<font color=""red"">[" & CStr(i) & "]</font> "ElseIf IsURLRewrite And i = 1 ThenArticleContent = ArticleContent & "<a href="""& ArticleID & m_strFileExt & """>[" & i & "]</a> "ElseArticleContent = ArticleContent & "<a href="""& m_strFileUrl & i & m_strFileExt & """>[" & i & "]</a> "End ifEnd IfNextIf CurrentPage < Paginate ThenArticleContent = ArticleContent & " <a href="""& m_strFileUrl & CurrentPage + 1 & m_strFileExt & """>下一页</a>"End IfArticleContent = ArticleContent & "</b></p>"End IfResponse.Write(ArticleContent)End Function%>１．下载附件中的文件，将它解压上传到您的网站根目录２．在需要分页的页面最顶部调用刚刚上传的文件。
ASP.NETMVC5实现分页查询的示例代码
MVC5实现分页查询的⽰例代码对于⼤量数据的查询和展⽰使⽤分页是⼀种不错的选择，这篇⽂章简要介绍下⾃⼰实现分页查询的思路。
分页需要三个变量：数据总量、每页显⽰的数据条数、当前页码。
//数据总量int dataCount;//每页显⽰的数据条数int pageDataCount;int pageNumber;根据数据总量和每页显⽰的数据条数计算出总页数，根据当前页码和每页显⽰的数据条数计算出从数据库中读取数据的起始⾏号和结束⾏号。
//总页数int pageCount = (int)Math.Ceiling(dataCount/ (pageDataCount* 1.0));int startLine = (pageNumber - 1) * PageDataCount + 1;int endLine=startLine + PageDataCount - 1;对于数据库的查询操作使⽤轻量级ORM框架Dapper来实现，具体代码如下：protected IDbConnection CreateConnection(){IDbConnection dbConnection = new SqlConnection(ConnectionString);dbConnection.Open();return dbConnection;}//获取数据库中数据的总条数public virtual int QueryDataCount(string tableName){using (IDbConnection dbConnection = CreateConnection()){var queryResult = dbConnection.Query<int>("select count(Id) from " + tableName);if (queryResult == null || !queryResult.Any()){return 0;}return queryResult.First();}}public virtual IEnumerable<T> RangeQuery<T>(string tableName, int startline, int endline){if (string.IsNullOrEmpty(tableName)){throw new ArgumentNullException("表名不得为空或null");}if (startline <= 0){throw new ArgumentOutOfRangeException("起始⾏号必须⼤于0");}if (endline - startline < 0){throw new ArgumentOutOfRangeException("结束⾏号不得⼩于起始⾏号");}using (IDbConnection dbConnection = CreateConnection()){var queryResult = dbConnection.Query<T>("select top " + (endline - startline + 1) + " * from " + tableName + " where Id not in (select top " + (startline - 1) + " Id from " + tableName + " order by Id desc) order by Id desc"); if (queryResult != null && queryResult.Any()){return queryResult;}}return null;}绘制分页按钮在App_Code⽂件夹中添加PageHelper.cshtml⽂件封装绘制按钮的代码，这⾥需要注意⼀点，使⽤VS发布站点时App_Code⽂件夹中的⽂件不会被打包，需要⼿动拷贝App_Code⽂件夹中的⽂件到站点中。
ASP 分页显示数据
ASP 分页显示数据ADO的Recordset对象可以容纳一个来自数据库表的记录集，并且一个Recordset对象由记录和列（字段）组成。
在练习5-1中掌握了从RecordSet对象中获取并显示数据库中的数据，而在练习5-2里学习了通过RecordSet对象修改数据的方法，本次练习仍以该对象为主。
当在数据库中存储的信息可能有成千上万条，如果一次全部显示会既耗费时间又不便于浏览。
而如果能实现数据的分页显示就能很好地解决这个问题，这也是本次练习要解决的问题，介绍怎样实现数据的分页显示。
实现思路：要想把一个记录集分成多个页进行显示，需要先使用PageSize属性指定一页中的记录个数，然后再使用AbsolutePage属性移动到一个特定的页，最后根据PageCount 属性来返回分成的总页面。
首先打开练习5-2中使用的ASP文件以ShowBookPages.asp为名进行另存。
这样，可以在检索数据库中数据的基础上进行操作，即对这些数据在RecordSet对象中进行分页并单独显示。
下面重点介绍实现代码：（1）由于本文件是基于练习5-2的，找到文件中如下的代码进行修改，使RecordSet中循环显示每一项记录，但开始之前先判断记录集中是否有数据，及总记录和当前页开始的（4）在满足了以上这些条件之后，就可以正确显示记录了，同时这里也要判断是否到（5）添加上述步骤的代码后，程序就实现了简单以每页显示5条数据进行浏览。
但是还在还不能在各个页面之间进行跳转，即翻页功能。
最后，在页面需要显示翻页的位置添加如下的实现代码：（6）保存所有步骤中所添加的代码再运行ShowBookPages.asp文件，运行后默认仅显示了5条数据，在页面底部单击“下一页”链接来查看第2页的数据，同时在底部还显示了总页数、当前页以及页的跳转链接等，如图5-5所示。
图5-5 分页显示数据效果。
用AspNetPager分页实例代码
很多刚学.NET的童鞋和培训学校出来的童鞋都会对数据分页而头疼，今天我把我写的一个利用AspNetPager控件分页的代码和大家分享，下面是一个类库，你直接把代码复制进去就能生成成功！using System;using System.Collections.Generic;using System.Linq;using System.Text;using System.Data;//添加System.Web引用using System.Web.UI.WebControls;using System.Web;//引用AspNetPager.dllnamespace Common{public class PageHelper{public PageHelper(){PageSize = 10;PageNumHtml = new System.Text.StringBuilder();UrlPageIndexName = "page";}private int _pageCount;private int _currentPageIndex;private int _recordCount;private int _pageSize;public string _urlRewritePattern;public System.Text.StringBuilder _pageNumHtml;public DataSet _dataSource;public string _customInfoHTML;public string _urlPageIndexName;public PagedDataSource Page(){PagedDataSource pagedDataSource = new PagedDataSource();pagedDataSource.DataSource =DataSource.Tables[0].DefaultView;pagedDataSource.AllowPaging = true;RecordCount = DataSource.Tables[0].Rows.Count;pagedDataSource.PageSize = PageSize;CurrentPageIndex = GetInt(UrlPageIndexName, 1);pagedDataSource.CurrentPageIndex = CurrentPageIndex - 1;int nextPageIndex = 0;int prevPageIndex = 0;int startcount = 0;int endcount = 0;if (CurrentPageIndex < 1){CurrentPageIndex = 1;}//计算总页数if (PageSize != 0){PageCount = (RecordCount / PageSize);PageCount = ((RecordCount % PageSize) != 0 ? PageCount + 1 : PageCount);PageCount = (PageCount == 0 ? 1 : PageCount);}nextPageIndex = CurrentPageIndex + 1;prevPageIndex = CurrentPageIndex - 1;startcount = (CurrentPageIndex + 5) > PageCount ? PageCount - 9 : CurrentPageIndex - 4;//中间页起始序号//中间页终止序号endcount = CurrentPageIndex < 5 ? 10 : CurrentPageIndex + 5;if (startcount < 1){startcount = 1;}//为了避免输出的时候产生负数，设置如果小于1就从序号1开始if (PageCount < endcount){endcount = PageCount;}//页码+5的可能性就会产生最终输出序号大于总页码，那么就要将其控制在页码数之内if (string.IsNullOrEmpty(CustomInfoHTML)){CustomInfoHTML = "当前页:<font color='red'><b>" + CurrentPageIndex + "</b></font> 总页数:<b>" + PageCount + "</b> 总记录数:<b>" + RecordCount + "</b> ";}PageNumHtml.Append(CustomInfoHTML);if (string.IsNullOrEmpty(UrlRewritePattern)){UrlRewritePattern =HttpContext.Current.Request.CurrentExecutionFilePath.Substring(1, stIndexOf(".") - 1) + "-{0}.aspx";}PageNumHtml.Append(CurrentPageIndex > 1 ? "<a href=\"" + string.Format(UrlRewritePattern, "1") + "\">首页</a> <a href=\"" + string.Format(UrlRewritePattern, prevPageIndex.ToString()) + "\">上一页</a>" : "首页上一页");//中间页处理，这个增加时间复杂度，减小空间复杂度for (int i = startcount; i <= endcount; i++){PageNumHtml.Append(CurrentPageIndex == i ? " <font color=\"#ff0000\">" + i + "</font>" : " <a href=\"" +string.Format(UrlRewritePattern, i.ToString()) + "\">" + i + "</a>"); }PageNumHtml.Append(CurrentPageIndex != PageCount ? " <a href=\"" + string.Format(UrlRewritePattern, nextPageIndex.ToString()) + "\">下一页</a> <a href=\"" + string.Format(UrlRewritePattern, PageCount) + "\">末页</a>" : " 下一页末页");return pagedDataSource;}/// <summary>/// 获得指定Url或表单参数的int类型值, 先判断Url参数是否为缺省值, 如为True则返回表单参数的值/// </summary>/// <param name="strName">Url或表单参数</param>/// <param name="defValue">缺省值</param>/// <returns>Url或表单参数的int类型值</returns>public static int GetInt(string strName, int defValue){if (GetQueryInt(strName, defValue) == defValue){return GetFormInt(strName, defValue);}else{return GetQueryInt(strName, defValue);}}/// <summary>/// 获得指定表单参数的int类型值/// </summary>/// <param name="strName">表单参数</param>/// <param name="defValue">缺省值</param>/// <returns>表单参数的int类型值</returns>public static int GetFormInt(string strName, int defValue){return StrToInt(HttpContext.Current.Request.Form[strName], defValue);}/// <summary>/// 获得指定Url参数的int类型值/// </summary>/// <param name="strName">Url参数</param>/// <param name="defValue">缺省值</param>/// <returns>Url参数的int类型值</returns>public static int GetQueryInt(string strName, int defValue){returnStrToInt(HttpContext.Current.Request.QueryString[strName], defValue); }/// <summary>/// 将对象转换为Int32类型/// </summary>/// <param name="expression">要转换的字符串</param>/// <param name="defValue">缺省值</param>/// <returns>转换后的int类型结果</returns>public static int StrToInt(object expression, int defValue) {return StrToInts(expression, defValue);}/// <summary>/// 将对象转换为Int32类型/// </summary>/// <param name="strValue">要转换的字符串</param>/// <param name="defValue">缺省值</param>/// <returns>转换后的int类型结果</returns>public static int StrToInts(object expression, int defValue) {if (expression != null){return StrToInt(expression.ToString(), defValue);}return defValue;}/// <summary>/// 总页数/// </summary>public int PageCount{get { return _pageCount; }set { _pageCount = value; }}/// <summary>/// 当前页/// </summary>public int CurrentPageIndex{get { return _currentPageIndex; }set { _currentPageIndex = value; }}/// <summary>/// 总记录数/// </summary>public int RecordCount{get { return _recordCount; }set { _recordCount = value; }}public int PageSize{get { return _pageSize; }set { _pageSize = value; }}/// <summary>/// 路径/// </summary>public string UrlRewritePattern{get { return _urlRewritePattern; }set { _urlRewritePattern = value; }}public System.Text.StringBuilder PageNumHtml {get { return _pageNumHtml; }set { _pageNumHtml = value; }}/// <summary>/// 数据源/// </summary>public DataSet DataSource{get { return _dataSource; }set { _dataSource = value; }}public string CustomInfoHTML{get { return _customInfoHTML; }set { _customInfoHTML = value; }}public string UrlPageIndexName{get { return _urlPageIndexName; }set { _urlPageIndexName = value; }}/// <summary>/// 分页/// </summary>/// <param name="dataTable">数据源</param>/// <param name="pageSize">每页多少条</param>/// <param name="currentPageIndex">当前页</param>/// <param name="pager"></param>public PagedDataSource PageDataSource(DataTable dataTable, int pageSize, int currentPageIndex, Wuqi.Webdiyer.AspNetPager pager){DataView dataView = dataTable.DefaultView;string sortExpression =HttpContext.Current.Request["sortExpression"];string sortDirection =HttpContext.Current.Request["sortDirection"];if ((!string.IsNullOrEmpty(sortExpression)) &&(!string.IsNullOrEmpty(sortDirection))){dataView.Sort = string.Format("{0} {1}", sortExpression, sortDirection);}PagedDataSource myPage = new PagedDataSource();myPage.DataSource = dataView;pager.RecordCount = dataTable.Rows.Count;myPage.AllowPaging = true;myPage.PageSize = pageSize;pager.PageSize = myPage.PageSize;pager.UrlPaging = true;pager.FirstPageText = "首页";pager.PrevPageText = "上一页";pager.NextPageText = "下一页";stPageText = "尾页";myPage.CurrentPageIndex = currentPageIndex - 1;return myPage;}}}准备的东西都做完了，那我们看一下在页面的后台我们该怎么去写呢？在页面的后台只需要写几行代码即可，实例代码如下：DataTable dt = 绑定的数据集；int currentPageIndex = Common.PageHelper.GetQueryInt("page", 1);得到当前页rep_pro.DataSource = newCommon.PageHelper().PageDataSource(dt, this.pages.PageSize, currentPageIndex, pages);rep_pro.DataBind();。
ASP分页代码详解
IF rs.eof or rs.bof Then ' 这里我们判断记录集是否为空，以防出错
response.write("暂无产品") '输出记录集为空时的内容
Else ' 如果记录集不为空则
rs.pagesize=30 '定义每页显示记录30条
<%end if%>
当前第<span class="red"><%=curpage%></span>页 '这里就是用curpage的变量实现当前第几页
共有<span class="red"><%=rs.pagecount%></span>页 '这个就是用rs.pagecount属性来实现共有多少页
curpage=request.QueryString("curpage") '获取地址栏curpage的值
ASP分页代码
ASP分页代码<!-- ＃i nclude file="../conn.asp" --> //（Yoko:路径按自己的设置好）<%dim i,intPage,page,pre,last,filepathset rs = server.CreateObject("adodb.recordset")sql="select * from user order by user_ID desc"rs.PageSize = 20 //（Yoko:这里设定每页显示的记录数rs.CursorLocation = 3rs.Open sql,conn,0,2,1 //（Yoko:'这里执行你查询SQL并获得结果记录集pre = truelast = truepage = trim(Request.QueryString("page"))if len(page) = 0 thenintpage = 1pre = falseelseif cint(page) =< 1 thenintpage = 1pre = falseelseif cint(page) >= rs.PageCount thenintpage = rs.PageCountlast = falseelseintpage = cint(page)end ifend ifend ifif not rs.eof thenrs.AbsolutePage = intpageend if%><!--循环开始--><%for i=1 to rs.PageSizeif rs.EOF or rs.BOF then exit for%>..................//（Yoko:要循环显示的内容）.....................................<%rs.movenextnext%><!--循环体结束分页部分：--><table width="99%" border="1" cellpadding="2" cellspacing="2" borderColorLi ght=#808080 borderColorDark=#ffffff><tr><%if rs.pagecount > 0 then%><td width="13%" align="left">当前页<%=intpage%>/<%=rs.PageCount%> </td><%else%><td width="41%" align="left">当前页0/0</td><%end if%><td width="46%" align="right"> <a href="本页.asp?page=1">首页</a>| <%if pre then%><a href="本页.asp?page=<%=intpage -1%>">上页</a>| <%end if%><%if last then%><a href="本页.asp?page=<%=intpage +1%>">下页</a> |<%end if%><a href="本页.asp?page=<%=rs.PageCount%>">尾页</a>|转到第<select name="sel_page" onchange="javascript:location=this.options[this.s electedIndex].value;"><%for i = 1 to rs.PageCountif i = intpage then%><option value="本页.asp?page=<%=i%>" selected><%=i%></option> <%else%><option value="本页.asp?page=<%=i%>"><%=i%></option><%end ifnext%></select>页</font></td></table>下面是CSDN的:<%dim Conn,RS,sqlStr,PageSize,RowCount,TotalPages,PageNo,Position,PageB egin,PageEndset Conn= Server.CreateObject("ADODB.Connection")set RS = Server.CreateObject("ADODB.RecordSet")Conn.open "provider=sqloledb;data source=127.0.0.1;user id=sa;passwo rd=;initial catalog=zjydata"sqlStr="select * from Items order by iID"RS.open sqlStr,Conn,1,1PageSize=10If RS.RecordCount=0 then%><TABLE WIDTH=100% BORDER=0 CELLPADDING=1 CELLSPACIN G=1 style='font-size:9pt'><TR bgcolor=#003366 height=20px><TD align=center><font color=#FFFFFF>商品代码</font></TD><TD align=center><font color=#FFFFFF>商品名称</font></TD><TD align=center><font color=#FFFFFF>型号规格</font></TD><TD align=center><font color=#FFFFFF>计量单位</font></TD><TD align=center><font color=#FFFFFF>参考进价</font></TD><TD align=center><font color=#FFFFFF>参考售价</font></TD><TD align=center><font color=#FFFFFF>备注</font></TR><TR height=20px><TD align=center>没有任何商品信息!</TD><TR></TABLE>elseRS.PageSize = Cint(PageSize)TotalPages=RS.PageCountPageNo=Request.QueryString("PageNo")if PageNo="" or PageNo<1 ThenPageNo = 1end ifRS.AbsolutePage = PageNoPosition=RS.PageSize*PageNoPageBegin=Position-RS.PageSize+1if Position <RS.RecordCount thenPageEnd=PositionelsePageEnd= RS.RecordCountend if%><TABLE WIDTH=100% BORDER=0 CELLPADDING=1 CELLSPACIN G=1 style='font-size:9pt'><TR><TD width=20%><%Response.Write "页："& PageNo &" / "& TotalPages &" | 记录："& PageBegin & " - " & PageEnd & " / " &RS.RecordCount%></TD><TD align=right><%if PageNo > 1 Thenresponse.write "<a href=list.asp?PageNo=1>首页</a> <a href=list.asp?PageNo=" & (PageNo-1) & ">上页</a> "end ifif TotalPages > 1 and cint(PageNo) <> cint(TotalPages) th enresponse.write "<a href=list.asp?PageNo=" & (PageNo +1) & ">下页</a> <a href=list.asp?PageNo=" & TotalPages & ">末页</ a> "end if%></TD></TR><TR bgcolor=#003366 height=20px><TD align=center width=20%><font color=#FFFFFF>商品代码</fo nt></TD><TD align=center width=30%><font color=#FFFFFF>商品名称</fo nt></TD><TD align=center width=8%><font color=#FFFFFF>型号规格</fon t></TD><TD align=center width=8%><font color=#FFFFFF>计量单位</fon t></TD><TD align=center width=8%><font color=#FFFFFF>参考进价</fon t></TD><TD align=center width=8%><font color=#FFFFFF>参考售价</fon t></TD><TD align=center width=18%><font color=#FFFFFF>备注</font> </TR><%RowCount = RS.PageSizedim color1,color2color1="#dddddd"color2="#eeeeee"Do While Not RS.EOF and RowCount > 0Response.Write "<TR height=20px bgcolor="%><%if RowCount mod 2=0 then:response.write color1 else:respo nse.write color2%><%Response.Write ">"%><TD><span><a href=manage.asp?id=<%=rs(0)%>><% =RS("v Code")%></a></span></td><TD><span><% =RS("vName")%></span></td><TD><span><% =RS("vSpec")%></span></TD><TD><span><% =RS("vUnit")%></span></td><TD><span><% =RS("fInPrice")%></span></td><TD><span><% =RS("fOutPrice")%></span></TD><TD><span><% =RS("vDescription")%></span></td></TR><%RowCount = RowCount - 1RS.MoveNextLoopConn.Closeset RS = nothingset Conn = nothing%><TR bgcolor=#003366 height=20px><TD align=center width=20%><font color=#FFFFFF>商品代码</fo nt></TD><TD align=center width=30%><font color=#FFFFFF>商品名称</fo nt></TD><TD align=center width=8%><font color=#FFFFFF>型号规格</fon t></TD><TD align=center width=8%><font color=#FFFFFF>计量单位</fon t></TD><TD align=center width=8%><font color=#FFFFFF>参考进价</fon t></TD><TD align=center width=8%><font color=#FFFFFF>参考售价</fon t></TD><TD align=center width=18%><font color=#FFFFFF>备注</font></TR><TR><TD><%For i=1 to TotalPagesif CInt(PageNo) = CInt(i) thenresponse.write "["&i&"]"elseresponse.write " <a href=list.asp?PageNo ="&i&">"&i&"</a> "end ifNext%></TD></TR></TABLE><%End if%>。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
ASP数字分页显示代码实例
网站建设ASP初级程序员基本技能--数字分页显示<br>
数据库mdb内容:表名=Diary;字段1=DiaryID int;字段2=DiaryName nvarchar;字段3=DiaryDate datetime
<%
'On Error Resume Next
Set Conn=Server.CreateObject("ADODB.Connection")
'ConnStr="Provider=SQLOLEDB;Data Source=Chinadad;Initial Catalog=Chinadad;UID=sa;PWD=;"
'ConnStr="Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("\")&"\Diary.mdb" ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("\")&"\Diary.mdb"
''Response.Write ConnStr&"<hr>"
Conn.Open ConnStr
Set Rs=Server.CreateObject("ADODB.Recordset")
sql="Select * from Diary order by DiaryID desc"
Rs.Open sql,Conn,1,1
n=0
if not rs.eof then
PageSize=10
Rs.PageSize=PageSize
RecordCount=Rs.RecordCount
PageNo=Request("PageNo")
if PageNo="" then
PageNo=1
elseif PageNo<=0 then
PageNo=1
else
PageNo=cint(PageNo)
if PageNo>rs.PageCount then PageNo=rs.PageCount
Rs.AbsolutePage=cint(PageNo)
%>
<form method=post action="<%=Request.ServerVariables("Script_Name")%>">
<%for i=1 to PageSize
Response.Write (PageNo*PageSize+n)&"行-->"&rs("DiaryID")&"."&rs("DiaryName")&rs("DiaryDate")&"<hr>"%>
<%rs.movenext
if rs.eof then exit for
n=n+1%>
<%next%>
<%=n%>
<a href="?PageNo=1">首页</a> <%if PageNo>1 then%><a href="?PageNo=<%=PageNo-1%>">上页</a><%else%>上页<%end if%>
<%for i=0 to PageSize-1%>
<%if PageNo+1>=int(PageNo/PageSize)*PageSize then%><a href="?PageNo=<%=int(PageNo/PageSize)*PageSize+i%>">[<%=int(PageNo/PageSize)*PageSize+i%> ]</a><%end if%>
<%next%>
<%if PageNo+1<Rs.PageCount+1 then%><a href="?PageNo=<%=PageNo+1%>">下页</a><%else%>下页<%end if%> <a href="?PageNo=<%=Rs.PageCount%>">尾页</a>
<input type="text" name="pageno" value=""><input type="submit" name="submit" value="转到页面"> </form>
<%end if
if Err.Number<>0 then
Response.Write "数据库连接失败："&Err.Description else
Response.Write "数据库连接成功："&ConnStr
end if
%>。