ADODB.recordost 错误'800a0e78' 对象关闭时,不允许操作
[P]<!--#include file=./inc/dataset.asp-->
<!--#include file=./inc/checkpower.asp-->
<%
' set rec=server.CreateObject("adodb.recordset")
dim xtqx
xtqx=session("xtqx")
if application("oamis")="yes" then
xtqx=xtqx+","+session("power")
end if
sql="select xh,qx,da,url,disptext,helptext,parent,ilevel,isleaf from menu where (da='1') and (lb='' or lb is null or lb like '%"+session("jglb")+"%') order by bm"
' sql="select xh,da,url,disptext,helptext,parent,ilevel,isleaf from menu where (da='1') and (lb='' or lb is null or lb like '%"+session("jglb")+"%')"
' sql=sql +" and (qx='' or qx is null or charindex(rtrim(qx),'"+xtqx+"')>0) order by bm"[/P][P]' rec.Open sql,conn,1,3
set rec = conn.execute(sql)
dim i,str
tmpstr=" menuItems = new Array();"
tmpstr = tmpstr +" menuItems0 = new Array();"
i=0
do while not rec.bof and not rec.eof
if rTrimH(rec("da"))="1" and (rtrimh(rec("qx"))="" or checkpower(session("czyh"),""&rec("qx"))) then
tmpstr = tmpstr + "menuItems["
' tmpstr = tmpstr + rTrimH(rec("xh")) + "] = new MItem("""
tmpstr = tmpstr + cstr(i)+ "] = new MItem("""
tmpstr = tmpstr + rTrimH(rec("url")) + ""","""
tmpstr = tmpstr + rTrimH(rec("disptext")) + ""","""
tmpstr = tmpstr + rTrimH(rec("helptext")) + ""","
tmpstr = tmpstr + rTrimH(rec("xh")) + ","
tmpstr = tmpstr + rTrimH(rec("parent")) + ","
tmpstr = tmpstr + rTrimH(rec("ilevel")) + ","
tmpstr = tmpstr + rTrimH(rec("isleaf")) +" );"
i=i+1
end if
rec.MoveNext
loop[/P][P] rec.close
set rec=nothing
%>
IIS浏览说15行 set rec = conn.execute(sql) 有错误 不知道错在哪里[/P]