asp网站分页代码(asp网站分页代码怎么写)

记录集名为rs，粘贴上就能用 lt rsPageSize = 2 #39每页显示记录数 Page = CLngRequestquotPagequotIf Page lt 1 Then Page = 1 If Page rsPageCount Then Page = rsPageCount i=page+page1*。

end function 调用方法lt% call PageNumPage，PageSum，Act % 其中page是当前页数，PAGESUM是页面总数，ACT是点击连接的URL包括PAGE变量名称例lt% call PageNum1，PageSum，quotinfoasp？id=1page=quot %。

ltform action=quot页面asp？Page=lt%=Page%quot 共lt%=RsCount%个记录，第lt%=Page%页共lt%=PageCount%页 lt%If PageCount1 Then% lt% If Page 1 Then % 首页 lta href=quot页面asp？Page=lt%=Page1%。

quotlta href=#39？page_no=lt%=page_count %#39quot 尾页 quotquotelse responsewrite quot下一页尾页quotend if end if rsclose set rs=nothing connclose set conn=nothing 现给你打的代码，可能有错误。

lta href=quotviewasp？id=lt%=rsquotidquot%quot target=quot_blankquotlt%=rsquottitlequot% lta href=quoteditasp？id=quotlt%=rsquotidquot%修 改 lta href=quotdeletasp？id=quotlt%=rsquotidquot%删 除 lt%RSMoveNext Nu。

rsopen quotselect * from b1 quot，conn，1，1 先改成rsopen quotselect * from b1 quot，conn，1，3’需要支持分页显示 打开表后加上下面的一句 rspagesize=20 当显示地n页时，加上rsabsolutepage=n while not rsEOF。

只要理解了asp的rs做分页其实很简单的，Recordset对象方法 Open方法 recordsetOpen Source，ActiveConnection，CursorType，LockType，Options Source Recordset对象可以通过Source属性来连接Command对象Source参数可以是一个Command对象名称。