我的代码中加上这条语句"myconn.absolutepage=pageNum"就会报错,请问该怎么办?谢谢
报错的内容:
ADODB.Recordset 错误 '800a0cb3 '
当前 Recordset 不支持书签。这可能是提供者或选定的光标类型限定的。
我的代码:
<%
<!--#include file= "Connections/gym.asp " -->
public myDSN
Set myDSN=Server.CreateObject( "ADODB.connection ")
'connStr= "DBQ= "+server.mappath( "dbdata.mdb ")+ ";DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes; "
'myDSN.Open connStr
'myDSN.Open gym_conn,3,2
pageSize=9
if request( "pagenum ")= " " then
pageNum=1
else
pageNum=CInt(request( "pagenum "))
end if
fileName=split(request.ServerVariables( "URL "), "/ ")
pageName=fileName(UBound(fileName))& "? "
classID=CInt(request( "classID "))
classSuperID=CInt(request( "classSuperID "))
%>
<% sub newsList(classID,classSuperID) %>
<style type= "text/css ">
.list {
font-size: 12px;
color: #7C7C7C;
text-decoration: none;
}
.font5 {
font-size: 12px;
color: #666666;
text-decoration: none;
}
</style>
<table width= "568 " border= "0 " cellspacing= "0 " cellpadding= "0 ">
<tr>
<td height= "22 " valign= "top " style= "background-repeat:no-repeat;background-position:0cm 0.05cm " align= "right " id= "topBar " class= "fon5 "> </td>
</tr>
<tr>
<td valign= "top ">
<TABLE width=95% border=0 align= "center " cellPadding=2 cellSpacing=0>
<tr>
<td height= "7 "> </td>
</tr>
<tr>
<td>
<% set myconn=server.createobject( "