这段asp代码有错吗？

答案:1 悬赏:80 手机版

解决时间 2021-08-12 07:27

提问者网友：两耳就是菩提
2021-08-11 16:16

<table width="100%" border="0" cellpadding="0" cellspacing="1" Class="border" align="center" >
    <tr class="title">
      <td width="30%"565>名称</td>
      <td width="40%"565>操作选项</td>
      <td width="30%"565>管理员</td>
    </tr>
<%
dim sql,rsBigClass,rsfysmallmxdq,rsfysmallmxdq2,ErrMsg
set rsBigClass=server.CreateObject("adodb.recordset")
sqlInfod = "Select * from mxdq order by sj desc"
rsBigClass.Open sqlInfod,Conn,1,1
do while not rsBigClass.eof
%>
    <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="30%"565><img src="../Images/tree_folder4.gif" width="15" height="15"><%=rsBigClass("Name")%></td>
      <td width="40%"565><a href="?bbaction=addsmallclass&BigClassName=<%=rsBigClass("Name")%>&dl=<%=rsBigClass("id")%>">添加二级子栏目</a>
            | <a href="?bbaction=editbigclass&BigClassID=<%=rsBigClass("ID")%>">修改</a>
            | <a href="?BigClassName=<%=rsBigClass("Name")%>&dl=<%=rsBigClass("id")%>&bbaction=deldldq" onclick="{if(confirm('确定删除吗?')){return true;}return false;}">删除</a>
    | <a href="?id=<%=rsBigClass("id")%>&bbaction=bb">排序</a></td>
      <td width="30%"565><%=rsBigClass("admin")%></td>
    </tr>
<%
   set rsfysmallmxdq=server.CreateObject("adodb.recordset")
   sqlInfosm = "Select * From fysmallmxdq Where dl='" & rsBigClass("name") & "' order by sj desc"
rsfysmallmxdq.Open sqlInfosm,Conn,1,1
   if not(rsfysmallmxdq.bof and rsfysmallmxdq.eof) then
  do while not rsfysmallmxdq.eof
%>
     <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
      <td width="30%"565>          <img src="../Images/tree_folder3.gif" width="15" height="15"><%=rsfysmallmxdq("SmallClassName")%></td>
      <td width="40%"565>         <a href="?bbaction=addsmallclass2&BigClassName=<%=rsBigClass("Name")%>&dl=<%=rsBigClass("id")%>">添加三级级子栏目</a>
            <a href="?bbaction=editsmallclass&SmallClassID=<%=rsfysmallmxdq("ID")%>&odl=<%=rsfysmallmxdq("dl")%>">修改</a>
            | <a href="?SmallClassID=<%=rsfysmallmxdq("ID")%>&SmallClassName=<%=rsfysmallmxdq("SmallClassName")%>&bbaction=delxldq" onClick="{if(confirm('确定删除吗?')){return true;}return false;}">删除</a>
    | <a href="?xlid=<%=rsfysmallmxdq("id")%>&bbaction=bbb">排序</a></td>
      <td width="30%"565>　</td>
    </tr>
<%
set fysmallmxdq2=server.CreateObject("adodb.recordset")
sqlInfod2 = "Select * from fysmallmxdq order by sj desc"
rsfysmallmxdq2.Open sqlInfod2,Conn,1,1
do while not fysmallmxdq2.eof
%>
<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
<td width="30%"565>                 <img src="../Images/tree_folder3.gif" width="15" height="15"><%=rsfysmallmxdq2("SmallClassName")%></td>
      <td width="40%"565>                
            <a href="?bbaction=editsmallclass2&SmallClass2ID=<%=rsfysmall2mxdq("ID")%>&odl2=<%=rsfysmall2mxdq("dl")%>">修改</a>
            | <a href="?SmallClass2ID=<%=rsfysmall2mxdq("ID")%>&SmallClass2Name=<%=rsfysmall2mxdq("SmallClassName")%>&bbaction=delxldq" onClick="{if(confirm('确定删除吗?')){return true;}return false;}">删除</a>
    | <a href="?xlid=<%=rsfysmall2mxdq("id")%>&bbaction=bbb">排序</a></td>
      <td width="30%"565>　</td>
    </tr>
<%
   rsfysmallmxdq.movenext
  loop
   end if
   rsfysmallmxdq.close
   set rsfysmallmxdq=nothing
   rsBigClass.movenext
loop
%><%
rsBigClass.close
set rsBigClass=nothing
conn.close
set conn=nothing
%>
</table>

最佳答案

五星知识达人网友：有你哪都是故乡
2021-08-11 16:49

有错，你的do while not fysmallmxdq2.eof 这句循环没结束语

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！