T
touchme_1
Unregistered / Unconfirmed
GUEST, unregistred user!
这段代码怎么objrec.AbsolutePage总是等于负数,不管给它赋数值。我使用Access97。
为什么?求教!
《%
select case trim(Request.QueryString("direction"))
case ""
session("currentpage")=1
case "next"
session("currentpage")=session("currentpage") + 1
case "previous"
session("currentpage")=session("currentpage") - 1
end select%>
《%
dim objconn
dim objrec
set objconn=server.CreateObject("adodb.connection")
set objrec=server.CreateObject("adodb.recordset")
objconn.Open "dbbook"
objrec.PageSize = 20
objrec.Open "select * from articles" ,objconn ,1
if objrec.EOF=false then
Response.Write(cstr(session("currentpage")))
objrec.AbsolutePage = clng(session("currentpage"))
Response.Write(cstr(objrec.AbsolutePage))
objrec.AbsolutePage = 2
Response.Write(cstr(objrec.AbsolutePage))
end if
%>
为什么?求教!
《%
select case trim(Request.QueryString("direction"))
case ""
session("currentpage")=1
case "next"
session("currentpage")=session("currentpage") + 1
case "previous"
session("currentpage")=session("currentpage") - 1
end select%>
《%
dim objconn
dim objrec
set objconn=server.CreateObject("adodb.connection")
set objrec=server.CreateObject("adodb.recordset")
objconn.Open "dbbook"
objrec.PageSize = 20
objrec.Open "select * from articles" ,objconn ,1
if objrec.EOF=false then
Response.Write(cstr(session("currentpage")))
objrec.AbsolutePage = clng(session("currentpage"))
Response.Write(cstr(objrec.AbsolutePage))
objrec.AbsolutePage = 2
Response.Write(cstr(objrec.AbsolutePage))
end if
%>