ADODB.Recordset (0x800A0BCD) BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录。
错误类型:ADODB.Recordset (0x800A0BCD)
BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录。
源代码:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="Conn.asp" -->
<%
dim boardname,newboardname,master,boarddescription
boardname=request.Form("boardname")
newboardname=request.Form("newboardname")
master=request.Form("master")
boarddescription=request.Form("description")
dim s,rs
s="BBSForumID"
set rs=server.CreateObject("adodb.recordset")
rs.open s,conn,1,2,2
rs.find "版块名称='"&boardname&"'"
rs("版块名称")=newboardname
if rs("BorderUserName")<>"" then
rs("BorderUserName")=rs("BorderUserName")&","&master
else
rs("BorderUserName")=master
end if
rs("版块说明")=boarddescription
rs.update
dim s1,rs1
s1="Users"
set rs1=server.CreateObject("adodb.recordset")
rs1.open s1,conn,1,2,2
rs1.find "UserName='"&master&"'"
rs1("UserGroupID")=2
rs1("UserGroupClassID")=2
rs1("UserGroup")="年级主任"
rs1("UserGroupClass")="版主"
rs1.update
response.Redirect("board.asp")
%>