gcr15废铁价格:一个网页代码错误的问题(梦痕网络文章).请教高手.

我用的是梦痕网络文章(新闻)更新系统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