后台管理员加分程序出错,各位帮忙看看
我做的是一个后台管理系统,如果管理员将文章设置推荐或者置顶,就将文章发表者的增加相应的积分,可结果提示:ADODB.Field (0x800A0BCD)BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录。
/admin/eidt_news.asp, 第 79 行(红色部分)
明明是有记录的,就是运行不了,请各位帮我看看怎么改?
if jian1=0 and request("isjian")=1 then (管理员设置文章为推荐)
call jia(jian)
end if
if top1=0 and request("istop")=1 then (管理员设置文章为置顶)
call jia(top)
end if
sub jia(action) (加分程序)
set rss=server.CreateObject("adodb.recordset")
rss=conn.execute("select * from users where username='"&rs("username")&"'")
score=rss("score")
if rss("leixing")=1 then
set jf1=server.createobject("adodb.recordset")
sql3="select jifen_vip from jifen where sub='"&action&"'"
jf1.open sql3,conn,1,3
sql4="update users set score=(score+'"&jf1("jifen_vip")&"') where id="&rss("id")
conn.execute(sql4)
else
set jf1=server.createobject("adodb.recordset")
sql3="select jifen from jifen where sub='"&action&"'"
jf1.open sql3,conn,1,3
ji_fen=jf1("jifen")
sql4="update users set score=(score+'ji_fen') where id="&rss("id")
conn.execute(sql4)
end if
response.write "<script language='javascript'>"&"alert('已修改成功!');"&"location.href='edit_news.asp?id="&request("id")&"</script>"
end sub