eof 或bof有一个为真的错误!
代码如下:<%wenzhangtitle=trim(request.Form("wenzhangtitle"))
writter=trim(request.Form("writter"))
specialname=request.Form("specialname")
conter=request.Form("content1")
%>
<% set conn=server.createobject("ADODB.CONNECTION")
path=server.MapPath("data/lovesnow.mdb")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&path&""
sqla="select * from special where special_name='" & specialname & "'"
set rsa=server.CreateObject("adodb.recordset")
set rsa=conn.execute(sqla)
a=rsa("special_id")
set rsb=server.CreateObject("adodb.recordset")
sqlb="select * from specialer where special_id=" & a & " and special_user='" & writter & "'"
set rsb=conn.execute(sqlb)
if rsb.bof and rsb.eof then
response.Write("对不起,您尚未取得在该栏目下发表文章的权限,请与管理员联系") '是这里有问题
else
sql="insert into wenzhang(wenzhang_title,wenzhang_writter,wenzhang_conter,special_name) values('" & wenzhangtitle & "','" & writter & "','" & conter & "','" & specialname & "')"
conn.execute(sql)
end if
%>
错误提示:ADODB.Field (0x80020009)
BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录。
我想实现的功能是:在rsb里查找用户权限记录,如果有该条记录,允许插入,否则提示错误!
在数据库里加上一条记录后,后面的语句是能够执行的!
[此贴子已经被作者于2006-10-25 10:21:00编辑过]