海南沉香工艺品图片:一个网页代码错误的问题(梦痕网络文章).请教高手.

我用的是梦痕网络文章(新闻)更新系统2.5
---
错误类型：
ADODB.Recordset (0x800A0BCD)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/reading/framesy.asp, 第 57 行
---
framesy.asp 文件的代码如下:
<!--#include file="const.asp"-->
<!--#include file="dsconn.asp"-->
<%
'***********接收参数
dim gonum,zhuanquid,num
langmuid=int(request("langmu"))
langmu2id=int(request("langmu2"))
gonum=int(request("gonum"))-1
zhuanquid=int(request("zhuanqu"))
num=int(request("num"))
if num=0 then num=1
set rs=server.createobject("adodb.recordset")
'****************判断是哪个栏目的调用
if langmuid=0 and langmu2id=0 then
set rs=dsconn.execute("select sytuwidth,sytuheight,sywenshu,sytitleshu,sytype,sycss,windows from [config] where langmu='all' and langmu2='all'")
sql="select id,title,sywz,tuxiang from [wenzhang] where shouye=1 order by id desc"
elseif langmuid<>0 then
set rs=dsconn.execute("select langmu from [langmu] where idl="&langmuid)
call checkurl
langmu=rs(0)
rs.close
set rs=dsconn.execute("select sytuwidth,sytuheight,sywenshu,sytitleshu,sytype,sycss,windows from [config] where langmu='"&langmu&"'")
sql="select id,title,sywz,tuxiang from [wenzhang] where shouye=1 and langmuid="&langmuid&" order by id desc"
elseif langmu2id<>0 then
set rs=dsconn.execute("select langmu2 from [langmu2] where idl="&langmu2id)
call checkurl
langmu2=rs(0)
rs.close
set rs=dsconn.execute("select sytuwidth,sytuheight,sywenshu,sytitleshu,sytype,sycss,windows from [config] where langmu2='"&langmu2&"'")
sql="select id,title,sywz,tuxiang from [wenzhang] where shouye=1 and langmu2id="&langmu2id&" order by id desc"
elseif zhuanquid<>0 then
set rs=dsconn.execute("select zhuanqu from [zhuanqu] where id="&zhuanquid)
call checkurl
zhuanqu=rs(0)
rs.close
set rs=dsconn.execute("select sytuwidth,sytuheight,sywenshu,sytitleshu,sytype,sycss,windows from [config] where zhuanqu='"&zhuanqu&"'")
sql="select top id,title,sywz,tuxiang from [wenzhang] where shouye=1 and zhuanqu="&zhuanquid&" order by id desc"
end if
'**************读取后台参数
dim sytuwidth,sytuheight,sywenshu,sytitleshu,sytype,sycss,windows,symb
sytuwidth=rs(0)
sytuheight=rs(1)
sywenshu=rs(2)
sytitleshu=rs(3)
sytype=rs(4)
sycss=rs(5)
windows=rs(6)
rs.close
if windows=false then
response.write "<script>function winp(url){window.open(url,'','');}</script>"
elseif windows=true then
response.write "<script>function winp(url){window.open(url,'','width=650,height=500,resizable=1,scrollbars=1');}</script>"
end if
response.write "<link rel='stylesheet' type='text/css' href='"&sycss&"'>"