<TABLE cellSpacing=0 cellPadding=0 width="90%" align=center border=0> <TBODY> <TR> <TD style="WORD-BREAK: break-all">&lt;!--#include file="conn.asp"--&gt; <BR>&lt;％ <BR>dim str <BR>function menu(id) <BR>set rs=server.CreateObject("adodb.recordset") <BR>sql="select * from menu where id1="&amp;id&amp;" order by url,id" <BR>rs.open sql,conn,1,1 <BR>str=str+"&lt;table border='0' cellspacing='0' cellpadding='0'&gt;"+chr(13) <BR>i=1 <BR>while not rs.eof <BR>ChildCount=conn.execute("select count(*) from menu where id1="&amp;rs("id"))(0) <BR>if ChildCount=0 then <BR>if i=rs.recordcount then <BR>menutype="file1" <BR>else <BR>menutype="file" <BR>end if <BR>menuname="&lt;a href='"&amp;rs("url")&amp;"' target='_blank'&gt;"&amp;rs("menuname")&amp;"&lt;/a&gt;" <BR>onmouseup="" <BR>else <BR>if i=rs.recordcount then <BR>menutype="menu3" <BR>listtype="list1" <BR>onmouseup=" onMouseUp=change1('a"&amp;rs("id")&amp;"','b"&amp;rs("id")&amp;"');" <BR>else <BR>menutype="menu1" <BR>listtype="list" <BR>onmouseup=" onMouseUp=change2('a"&amp;rs("id")&amp;"','b"&amp;rs("id")&amp;"');" <BR>end if <BR>menuname=rs("menuname") <BR>end if <BR>str=str+"&lt;tr&gt;&lt;td id='b"&amp;rs("id")&amp;"' class='"&amp;menutype&amp;"'"&amp;onmouseup&amp;"&gt;"&amp;menuname&amp;"&lt;/td&gt;&lt;/tr&gt;"+chr(13) <BR>if ChildCount&gt;0 then <BR>str=str+"&lt;tr id='a"&amp;rs("id")&amp;"' style='display:none'&gt;&lt;td class='"&amp;listtype&amp;"'&gt;"+chr(13) <BR>menu(rs("id")) <BR>str=str+"&lt;/td&gt;&lt;/tr&gt;"+chr(13) <BR>end if <BR>rs.movenext <BR>i=i+1 <BR>wend <BR>str=str+"&lt;/table&gt;"+chr(13) <BR>rs.close <BR>set rs=nothing <BR>end function <P></P> <P>menu(0) </P> <P>set fso=server.CreateObject("scripting.filesystemobject") <BR>set f1=fso.opentextfile(server.MapPath("demo.htm"),2,true) <BR>f1.write("&lt;!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN' <A href="http://www.w3.org/TR/html4/loose.dtd'%3E" target=_blank><FONT color=#0000ff>http://www.w3.org/TR/html4/loose.dtd'&gt;</FONT></A>;") <BR>f1.write("&lt;html&gt;") <BR>f1.write("&lt;head&gt;") <BR>f1.write("&lt;meta http-equiv='Content-Type' content='text/html; charset=gb2312'&gt;") <BR>f1.write("&lt;title&gt;哈哈~~~！这回速度超快了吧？&lt;/title&gt;") <BR>f1.write("&lt;meta name='keywords' content='asp2004,树,菜单,无限级'&gt;") <BR>f1.write("&lt;meta name='author' content='小灰,quxiaohui_0@163.com'&gt;") <BR>f1.write("&lt;link href='style.css' rel='stylesheet' type='text/css'&gt;") <BR>f1.write("&lt;script language='javascript' src='function.js'&gt;&lt;/script&gt;") <BR>f1.write("&lt;/head&gt;") <BR>f1.write("&lt;body&gt;") <BR>f1.write("&lt;a href=<A href="http://asp2004.net'" target=_blank><FONT color=#0000ff>http://asp2004.net'</FONT></A> target='_blank'&gt;<A href="http://asp2004.net%3c/" target=_blank><FONT color=#0000ff>http://asp2004.net&lt;</FONT></A>;/a&gt;提供最新下载《&lt;a href='menu.asp'&gt;管理&lt;/a&gt;》&lt;br&gt;") </P> <P>f1.write(str) </P> <P>f1.write("&lt;/body&gt;") <BR>f1.write("&lt;/html&gt;") <BR>f1.close <BR>set fso=nothing </P> <P>response.Redirect("demo.htm") <BR>％&gt; <BR></P></TD></TR></TBODY></TABLE>