UC知道asp分页显示出错,当前记录集不支持书签。这可能是提供程序或选定的游标类型的限制
来源：百度知道 编辑：UC知道 时间：2024/06/01 04:40:12
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
ADODB.Recordset 错误 '800a0cb3'
当前记录集不支持书签。这可能是提供程序或选定的游标类型的限制。
/AdminUser.asp，行111
我将ACCS库转换为SQL库后出现的错误。
代码如下：
<% dim n,pagename,keyword,maxpagecount,TotalNumber
dim pagestart,pageend,strurl,ii
keyword=Trim(Request("keyword"))
if not isempty(request("page")) then
CurrentPage=cint(request("page"))
else
CurrentPage=1
end if
Set Rs = Server.CreateObject("ADODB.Recordset")
const MaxPerPage = 20 '###每页显示数
pagename = "AdminUser.asp"
if not isnull(keyword) and keyword<>"" then
keyword=replace(replace(replace(keyword,"'","‘"),"<","<"),">",">")
sql="sel
缺少 'End'
/iisHelp/common/500-100.asp，行242
ADODB.Recordset 错误 '800a0cb3'
当前记录集不支持书签。这可能是提供程序或选定的游标类型的限制。
/AdminUser.asp，行111
我将ACCS库转换为SQL库后出现的错误。
代码如下：
<% dim n,pagename,keyword,maxpagecount,TotalNumber
dim pagestart,pageend,strurl,ii
keyword=Trim(Request("keyword"))
if not isempty(request("page")) then
CurrentPage=cint(request("page"))
else
CurrentPage=1
end if
Set Rs = Server.CreateObject("ADODB.Recordset")
const MaxPerPage = 20 '###每页显示数
pagename = "AdminUser.asp"
if not isnull(keyword) and keyword<>"" then
keyword=replace(replace(replace(keyword,"'","‘"),"<","<"),">",">")
sql="sel
<%
dim n,pagename,keyword,maxpagecount,TotalNumber
dim pagestart,pageend,strurl,ii
keyword=Trim(Request("keyword"))
if not isempty(request("page")) then
CurrentPage=cint(request("page"))
else
CurrentPage=1
end if
Set Rs = Server.CreateObject("ADODB.Recordset")
const MaxPerPage = 20 '###每页显示数
pagename = "AdminUser.asp"
if not isnull(keyword) and keyword<>"" then
keyword=replace(replace(replace(keyword,"'","‘"),"<","<"),">",">")
sql="select * from [User] where UserName like '%"&keyword&"%'"
sql=sql&" order by RegTime desc"
else
sql = "select * from [User] order by RegTime desc"
end if
Rs.OPEN sql, Conn,1,3
if not(Rs.BOF or Rs.EOF) then
Rs.pagesize = MaxPerPage
ma