gzfn.com

　　今天心情有点激动,想把"关于用DW+ASP实现分页技术的参考"分享给用DW+ASP做网页的朋友们.去掉只有"第一页,前一页,下一页,最后一页"的小痛苦 。
　　
　　用DW+ASP做网页时,在绑定记录集后,代码页里马上出现以下代码：
　　
　　以下是引用片段：
　　< %
　　Dim Recordset1
　　Dim Recordset1_numRows
　　Set Recordset1 = Server.CreateObject("ADODB.Recordset")
　　Recordset1.ActiveConnection = MM_数据库名_STRING
　　Recordset1.Source = "SELECT * FROM 表名"
　　Recordset1.CursorType = 0
　　Recordset1.CursorLocation = 2
　　Recordset1.LockType = 1
　　Recordset1.Open()
　　Recordset1_numRows = 0
　　%>
　　
　　现在我们要来对代码做点修改，请在上面代码中修改为如下的代码：
　　
　　以下是引用片段：
　　< %
　　Dim I
　　Dim RPP
　　Dim PageNo
　　I=1
　　RPP=50
　　PageNo=CInt(Request("PageNo"))
　　’上面即是新插入的，
　　Dim Recordset1
　　Dim Recordset1_numRows
　　Set Recordset1 = Server.CreateObject("ADODB.Recordset")
　　Recordset1.ActiveConnection = MM_数据库名_STRING
　　Recordset1.Source = "SELECT * FROM 数据库名" 1 2 3 4 5 6