|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来;server|window关头代码:
<%
setconn=server.createobject("ADODB.CONNECTION")
connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};"
conn.openconnstr
functionmenu(id)
setrs=server.CreateObject("adodb.recordset")
sql="select*frommenuwhereid1="&id&"orderbyurl,id"
rs.opensql,conn,1,1
ifrs.recordcount=0then
rs.close
setrs=nothing
exitfunction
endif
response.write("<tableborder=0cellspacing=0cellpadding=0>")
i=1
whilenotrs.eof
iflen(rs("url"))>0then
ifi=rs.recordcountthen
menutype="file1"
else
menutype="file"
endif
menuname="<ahref="&rs("url")&"target=_blank>"&rs("menuname")&"</a>"
onmouseup=""
else
ifi=rs.recordcountthen
menutype="menu3"
listtype="list1"
onmouseup="with(eval(id"&rs("id")&"))if(style.display==){style.display=none;this.className=menu3;}else{style.display=;this.className=menu4;}"
else
menutype="menu1"
listtype="list"
onmouseup="with(eval(id"&rs("id")&"))if(style.display==){style.display=none;this.className=menu1;}else{style.display=;this.className=menu2;}"
endif
menuname=rs("menuname")
endif
%>
<tr>
<tdclass="<%=menutype%>"onMouseUp="<%=onmouseup%>"><%=menuname%></td>
</tr>
<%iflen(rs("url"))<3then%>
<trid="id<%=rs("id")%>"style="display:none">
<tdclass="<%=listtype%>"><%menu(rs("id"))%></td>
</tr>
<%
endif
rs.movenext
i=i+1
wend
response.write("</table>")
rs.close
setrs=nothing
endfunction
%>
<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<title>=========无穷级目次树=========http://bbs.asp2004.net</title>
<styletype="text/CSS">
<!--
.menu1{
background-image:url(folder1.gif);
background-repeat:no-repeat;
height:17px;
left:32px;
padding-left:32px;
cursor:hand;
}
.menu2{
background-image:url(folder2.gif);
background-repeat:no-repeat;
height:17px;
left:32px;
padding-left:32px;
cursor:hand;
}
.menu3{
background-image:url(folder3.gif);
background-repeat:no-repeat;
height:17px;
left:32px;
padding-left:32px;
cursor:hand;
}
.menu4{
background-image:url(folder4.gif);
background-repeat:no-repeat;
height:17px;
left:32px;
padding-left:32px;
cursor:hand;
}
.list{
padding-left:20px;
background-image:url(list.gif);
background-repeat:repeat-y;
}
.list1{
padding-left:20px;
}
.file{
background-image:url(file.gif);
background-repeat:no-repeat;
height:16px;
cursor:hand;
padding-left:32px;
}
.file1{
background-image:url(file1.gif);
background-repeat:no-repeat;
height:16px;
cursor:hand;
padding-left:32px;
}
body{
font-size:9pt;
color:#000000;
background-color:#FFFFFF;
}
a:link{
font-size:9pt;
color:#000000;
text-decoration:none;
}
a:visited{
font-size:9pt;
color:#000000;
text-decoration:none;
}
a:hover{
font-size:9pt;
color:#0000FF;
text-decoration:none;
position:relative;
right:1px;
bottom:1px;
}
a:active{
font-size:9pt;
color:#000000;
text-decoration:none;
}
-->
</style>
<metaname="keywords"content="asp2004,树,菜单,无穷级">
<metaname="author"content="小灰,quxiaohui_0@163.com">
</head>
<body>
<ahref="http://bbs.asp2004.net/"target="_blank">http://bbs.asp2004.net/</a>提</p>国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了 |
|