关于asp分页的小问题

来源：百度知道 编辑：UC知道 时间：2024/05/12 16:03:06
我的代码请看：Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_conn_STRING
Recordset1.Source = "SELECT * FROM cs WHERE text3 LIKE '%" + Replace(Recordset1__MMColParam, "'", "''") + "%' or text2 LIKE '%" + Replace(Recordset1__MMColParam, "'", "''") + "%'"
Recordset1.CursorType = 3
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
中间省略大约200行 问题在下面：
当前页为： <%=Recordset1.absolutepage%>

****这里取到的数值恒定为-1<%=Recordset1.absolutepage%> ***
我很想不通。

这是我用DREAMWEAVER作了个搜索模块，然后改了改，加了个分页，快照功能什么的，总之其他功能都正常，就这里不正常。
补充一下： 就是<%=Recordset1.absolutepage%> 这个代码，取到的值，永远是-1。 而我认为这个应当取得是当前第几页。

我不会asp，不知道怎样取得当前是第几页，所以只会用上面的代码。可上面的代码又不能正确取到直

if rs.eof and rs.bof then
response.Write("no record")
else

'-------------------------------分页部分参数--------------------------------

rs.pagesize=10 '每页记录条数
curpage=Request.QueryString("curpage") '将URL参数curpage传给curpage变量
if curpage="" then curpage="1" end if '初始化页数
rs.absolutepage=curpage '将本页设为curpage设置的页数

for i= 1 to rs.pagesize
if rs.eof then
exit for
end if
%>
内容
<%
rs.movenext
next
end if

希望这段能对你有帮助

没有明白你的意思，帮顶吧。。^)^

absolutepage 是你要去设置的。