这个递归出现的问题怎么解决,谢谢
tcmis 2005-12-05 09:59:00 <%
dim getSubFanceSql,DsSubFance,currentTypeid
sub writeSubFance(parentid)
getSubFanceSql = "select * from www_fance t where t.parenttypeid = '"&parentid&"' and t.isavailability = 'Y'"
set DsSubFance = conn.execute(getSubFanceSql)
if (not DsSubFance.eof) then
response.Write("<table>")
while (not DsSubFance.eof)
'currentTypeid = DsSubFance("TYPEID")
response.Write("<tr>")
response.Write("<td style=background-color:#003333 width=8> </td>")
response.Write("<td>")
response.Write(DsSubFance("TYPENAME"))
writeSubFance(DsSubFance("TYPEID"))
response.Write("</td></tr>")
DsSubFance.movenext()
wend
response.Write("</table>")
response.Write("</div>")
end if
end sub
%>
错误是:
ADODB.Recordset 错误 '800a0bcd'
BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录。
/test/dg.asp,行30