代码如下：
<%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编辑过]

那你好像没有对rsa进行是否为空的处理吧?

我在表里面加了一条默认的记录，就是说这个记录集肯定不会为空的！

if rsb.bof and rsb.eof then
response.Write("对不起，您尚未取得在该栏目下发表文章的权限，请与管理员联系")
response.end
else

...

end if

if rsb.eof or rsb.bof then
response.Write("对不起，您尚未取得在该栏目下发表文章的权限，请与管理员联系")
else
...
end if

[此贴子已经被作者于2006-10-25 11:48:43编辑过]