主页

请问为什么运行到此就出错.

wkl_allen 2004-04-12 12:11:31

前题:数据库是从access导入到sql server中的.

sql="select ClassID,OrderID,child,ParentPath,PrevID,NextID From

ArticleClass where ParentID="&ParentID&" and OrderID<"&OrderID&"

order by OrderID desc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
i=1
do while not rs.eof
tOrderID=rs(1)
conn.execute("update ArticleClass set

OrderID="&tOrderID+oldorders+i&" where ClassID="&rs(0))
if rs(2)>0 then
ii=i+1
set trs=conn.execute("select ClassID,OrderID From

ArticleClass where ParentPath like '%"&rs(3)&","&rs(0)&"%'

order by OrderID")
if not (trs.eof and trs.bof) then
do while not trs.eof
conn.execute("update ArticleClass set

OrderID="&tOrderID+oldorders+ii&" where ClassID="&trs(0))

ii=ii+1
trs.movenext
loop
end if
trs.close
set trs=nothing
end if
i=i+1
if i>MoveNum then
rs(4)=ClassID
rs.update

我进行了断点调试
程序总是执行到rs(4)=ClassID出错,敬请各位帮忙,解决问题者,一定多给分
总的报错:
Microsoft VBScript 编译器错误错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

ADODB.Recordset 错误 '800a0cb3'

当前记录集不支持更新。这可能是提供程序的限制，也可能是选定锁定类型的限制。

/km/Admin_ClassOrderN.asp，行117

...全文