|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的对照复杂的一个页面,相似csdn论坛在ns下的右边列表
形貌:
1.
数据名:tree.mdb
表名:tree
表布局:id(自编)pid(数字)content(文本)link(文本)
2.
图片:endnode.gifcollapsed.gifback.gif(均在img目次下,可自行修正)
3.
代码:
<!--#includefile="conn.inc"-->
<HTML>
<HEAD>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<METANAME="GENERATOR"Content="MicrosoftFrontPage4.0">
<TITLE>无穷级列表</TITLE>
<!--
byfason(2003-5-12)
-->
<style>
.node{
font-size:12px;
padding:0020;
margin-left:10;
height:22px;
}
img{
vertical-align:middle;
width:11px;
height:11px;
}
a{text-decoration:none;font-size:12px;color:black}
.deeptree{
width:100%;
height:100%;
backgound-color:#f2f2f2;
overflow:auto;
}
</style>
</HEAD>
<BODYbgcolor=#f2f2f2>
<nobr>
<divclass="deeptree">
<%
newid=Request.QueryString("id")
ifnewid=""orCInt(newid)<0thennewid=0
ifisNumeric(newid)then
listTree(CInt(newid))
endif
functionlistTree(id)
dimrs
dimimgFolder,imgFile
dimlink,href,parentHref
dimtarget,ahref,click
target="main"所指定的框架名
imgFolder="img/"默许路径
setrs=conn.execute("select*,(selectcount(*)fromtreewherepid=T.id)aschildren,(selectpidfromtreewhereid="&id&")asparentfromtreeTwherepid="&id)
ifnotrs.eofthen
parentHref=Request.ServerVariables("URL")&"?id="&rs("parent")
ifid0thenResponse.Write"<divclass=nodenowrap=true><ahref="&parentHref&"border=0></a>"&link&"</div>"
rs.movenext
loop
rs.close:setrs=nothing
endif
endfunction
conn.close:setconn=nothing
%>
</div>
</nobr>
</BODY>
</HTML>
conn.inc:
<%
dimconn
setconn=Server.CreateObject("ADODB.Connection")
conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.mappath("tree.mdb")&";PersistSecurityInfo=False"
%>
4.测试:ie6,ns7,mozilla下测试经由过程
道理对照复杂,有错请人人斧正,感谢
</p>asp对于服务器的要求较高,一般的服务器如果访问量一大就垮了,不得不重启。 |
|