知识大全 asp无限级分类支持js收缩伸展

Posted 2022-07-17 知

篇首语：人生要事在于树立一个伟大的目标，并决心实现它。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 asp无限级分类支持js收缩伸展相关的知识，希望对你有一定的参考价值。

　　<! #include file="adoconn asp" > <style> dotted_class border bottom: px dotted # ; dotted_class a text decoration:none; font size: px; td font size: px; </style> <script language="javascript教程"> function $$(id) return document getElementById(id);

　　function fd(id num) t=$$("d_"+id) src; if(t indexOf("+ gif")> ) t ="block"; t ="images/ gif"; else t ="none"; t ="images/+ gif"; for(i= ;i<=num;i++) $$("c"+id+"_"+i) style display=t ; $$("d_"+id) src=t ;

　　</script>

　　<% catstr="" depath= Call cat ( ) %> <TABLE width= > <TR> <TD><%=catstr%></TD> </TR> </TABLE> <% function cat (parent_id tid stype) set rs =server createobject("adodb recordset") sql="select cat_name cat_id parent_id from category where parent_id="&parent_id&" and u_id="&stype&" and is_show=order by cat_order asc" set rs =conn execute(sql) If rs eof Then Else if(depath> ) then display ="none" else display ="block" end if dim j j= do while not rs eof cat_name = rs ("cat_name") cat_id = rs ("cat_id") parent_id =rs ("parent_id") ******************下面是你要显示的****************** m = sql ="select count(cat_id) as t from category where parent_id="&cat_id &" and u_id="&stype&"" set rs =server createobject("adodb recordset") set rs =conn execute(sql ) if not rs eof then m =rs ("t") else m = end if rs close if(depath<= ) then mgif="images/ gif" a="block" else if(m > ) then mgif="images/+ gif" else mgif="images/ gif" end if if(depath= ) Then a="block" else a="none" end if end If If cat_id = or cat_id = Then a="block" mgif="images/+ gif" ElseIf cat_id > Then a="none" mgif="images/ gif" else End if catstr=catstr & "<tr id=""c"&parent_id&"_"&j&""" display:"&a&"""><td align=center"" valign=""middle"" dotted_class""> </td><td dotted_class leftcatcss教程"">" for i= to depath catstr=catstr&" " Next catstr=catstr&"<img src="&mgif&""" id=""d_"&cat_id &"""> " if(m > ) then catstr=catstr&"<a href=""javascript:void( );"" onclick=""fd("&cat_id &" "&m &" )"">" &vbnewline else catstr=catstr&"<a href=""products asp?id="&cat_id &""">"&vbnewline end if If depath= Then cat_name ="<span font size: px; font weight:bold;"">"&cat_name &"</span>" End If catstr=catstr&cat_name &"</a></td></tr>"&vbnewline m = sql ="select cat_name cat_id from category where parent_id="&parent_id &" and u_id="&stype&" order by cat_order asc" set rs =server createobject("adodb recordset") set rs =conn execute(sql ) if not rs eof then depath=depath+ call cat (cat_id tid stype) end if rs close set rs =nothing depath=depath ******************上面是你要显示的****************** j=j+ rs movenext loop

　　 End If rs close set rs =nothing end Function %>

　　数据库教程连接文件adoconn asp

　　<%@LANGUAGE="VBSCRIPT" CODEPAGE=" "%> <% response Charset="utf " response codepage=" "

　　DB="db mdb"

cha138/Article/program/net/201311/14405