用排序串字段实现树状结构（例程——显示树）

　2000-08-08 10:08:14　来源：WEB开发网　闂傚倸鍊搁崐鎼佸磹妞嬪孩顐芥慨姗嗗厳缂傛氨鎲稿鍫罕闂備礁婀遍搹搴ㄥ窗閺嶎偆涓嶆い鏍仦閻撱儵鏌ｉ弴鐐测偓鍦偓姘炬嫹

闂傚倸鍊搁崐鎼佸磹妞嬪海鐭嗗〒姘ｅ亾妤犵偛顦甸弫鎾绘偐閹绘帞鈧參姊哄Ч鍥х仼闁诲繑鑹鹃悾鐑藉蓟閵夛妇鍘甸梺瑙勵問閸犳牠銆傛總鍛婄厱閹艰揪绱曟牎闂侀潧娲ょ€氫即鐛幒妤€绠ｆ繝闈涘暙娴滈箖鏌ｉ姀鈶跺湱澹曟繝姘厵闁绘劦鍓氶悘杈ㄤ繆閹绘帞澧涚紒缁樼洴瀹曞崬螖閸愬啠鍓濈换娑樼暆婵犱胶鏁栫紓浣介哺閹瑰洤鐣烽幒鎴僵闁瑰吀鐒﹂悗鎼佹⒒娴ｇ儤鍤€闁搞倖鐗犻獮蹇涙晸閿燂拷

濠电姷鏁告慨鐑藉极閸涘﹥鍙忔い鎾卞灩缁狀垶鏌涢幇闈涙灈鐎瑰憡绻冮妵鍕箻鐎靛摜鐣奸梺纭咁潐濞茬喎顫忕紒妯肩懝闁逞屽墮宀ｈ儻顦查悡銈夋煏閸繃鍋繛宸簻鎯熼梺瀹犳〃閼冲爼宕濋敃鈧—鍐Χ閸℃鐟愰梺鐓庡暱閻栧ジ宕烘繝鍥у嵆闁靛骏绱曢崢顏堟⒑閹肩偛鍔楅柡鍛⊕缁傛帟顦寸紒杈ㄥ笚濞煎繘鍩℃担閿嬵潟闂備浇妗ㄩ悞锕傚箲閸ヮ剙鏋侀柟鍓х帛閺呮悂鏌ㄩ悤鍌涘闂傚倸鍊搁崐鎼佸磹妞嬪孩顐芥慨姗嗗厳缂傛氨鎲稿鍫罕闂備礁婀遍搹搴ㄥ窗閺嶎偆涓嶆い鏍仦閻撱儵鏌ｉ弴鐐测偓鍦偓姘炬嫹　　闂傚倸鍊搁崐鎼佸磹閻戣姤鍤勯柤鍝ユ暩娴犳氨绱撻崒娆掑厡缂侇噮鍨堕妴鍐川閺夋垹鍘洪悗骞垮劚椤︻垶宕￠幎鑺ョ厪闊洦娲栨牎闂佽瀵掗崜鐔奉潖閾忓湱纾兼俊顖氭惈椤矂姊洪崷顓涙嫛闁稿妫濋幆鈧い蹇撴祩濡嫰姊洪崫鍕拱婵炲弶岣块幑銏犫攽婵犲嫮鏉搁梺鍝勬川婵兘鎮伴妷鈺傗拻濞达絽鎼敮璺侯熆閻熷府鏀荤紒鍌氱Т楗即宕煎锝呬壕闁哄啫鐗嗙粈鍐┿亜韫囧海顦﹀ù婊堢畺閺屻劌鈹戦崱娑扁偓妤€顭胯閸犳牠婀侀梺缁樕戦悷銉р偓姘煎枤缁粯銈ｉ崘鈺冨幈濡炪倖鍔戦崐鏇㈠几鎼淬劍鐓熼煫鍥ь儏閸旀粓鏌曢崶褍顏€殿喗娼欒灒闁告繂瀚濠碉紕鍋戦崐鎴﹀垂濞差亝鍋￠柍鍝勬噹缁犳牠鏌嶉埡浣告殲闁稿海鍠栭弻鏇㈠炊瑜嶇花濠氭煙閸戙倖瀚�

核心提示：程序index.asp功能：显示目录树<%pageno=request("pageno")searchtype=request("searchtype")searchnr=

程序index.asp
功能：显示目录树

<%
pageno=request("pageno")
searchtype=request("searchtype")
searchnr=rtrim(request("searchnr"))
set guestconn=Server.CreateObject("ADODB.connection")
guestconn.Open lybstr
set guestrs=server.createobject("ADODB.recordset")
sqlstr="SELECT * FROM guestbook"
if searchnr<>"" then sqlstr=sqlstr&" where "&searchtype&" like '%%"&replace(searchnr,"'","''")&"%%'"
sqlstr=sqlstr&" order by rootid+(1-sign(rootid))*lybid desc,orderstr,lybid desc"
guestrs.open sqlstr,guestconn,1,1
rowcount=25
if pageno="" then pageno=1
if not guestrs.eof then
　if IsNumeric(pageno) then
　　guestrs.pagesize=rowcount
　　if pageno+1>guestrs.pagecount+1 then pageno=guestrs.pagecount
　else
　　pageno=1
　end if
　guestrs.AbsolutePage=pageno
else
　pageno=1
end if
%><html>
<head><title>软件使用留言薄</title>
<style TYPE="text/CSS">

</style>
<script language="javaScript1.2">
function d(sp,t,a,d,ti,l,id,rid,pn)
{
document.write("<tr><td>"+sp+"<a href='disPRec.asp?
keyid="+id+"&rootid="+rid+"&pageno="+pn+"'>"+t+"</a></td>");
document.write("<td align=right>"+a+" </td>");
document.write("<td nowrap align=center>"+d+" "+ti+"</td>");
document.write("<td align=right>"+l+" </td>");
document.write("<td align=right>"+id+" </td>");
document.write("</tr>");
}
</script>
</head>
<body topmargin=16>
<form name='index' method='POST' action='index.asp'>
<table width=100% align=center>
　<tr>
　 <td align=center style='font-size:16px;background-color:ffffff;color:red' height=35 valign=top>软件使用
留言薄</td>
　 <td align=center colspan=3 style='font-size:13px;background-color:ffffff' valign='bottom'>共<font
style='font-size:16px;color:red'><% =guestrs.recordcount %></font>条留言<font style='font-
size:16px;color:red'><% =guestrs.pagecount %></font>页目前第<font style='font-size:16px;color:red'><%
=pageno %></font>页</td>
　 <td style='background-color:ffffff' valign=bottom><a href="/wen/swuselyb/index.asp">旧留言薄
</a></td></tr>
　<tr>
　 <td class='td2' align='center'>搜索贴子
　　<select name='searchtype' class='small1'>
　　 <option value='guestname' <% if searchtype="guestname" then response.write("selected") %>>贴子作者
</opion>
　　 <option value='guestcomm' <% if searchtype="guestcomm" then response.write("selected") %>>贴子内容
</opion>
　　</select> <input type='text' name='searchnr' size=14 class='small1' value='<% =searchnr %>'> <a
href='Javascript:document.index.submit();'>开始搜索</a>
　 </td>
　 <td colspan=3 class='td2' align='center'><% if pageno+1>2 then %><a
href='javascript:document.index.pageno.value--;document.index.submit();'>上一页</a><% else %>上一页<% end
if %>　<% if pageno+1<guestrs.pagecount+1 then %><a
href='javascript:document.index.pageno.value++;document.index.submit();'>下一页</a><% else %>下一页<% end
if %>　到<input type='text' name='pageno' size=6 class='small1' value=<% =pageno %>>页</td>
　 <td class='td2' align=center><a href='revert.asp?type=post'>发贴子</a></td>
　</tr>
　<tr style="color:red">
　 <td align=center class='td1'>留言标题</td>
　 <td align=center width=70 class='td1'><img src='http://www.cncms.com/edit.gif'>作　者</td>
　 <td align=center width=100 class='td1'>发表时间</td>
　 <td align=center width=60 class='td1' nowrap>贴子字数</td>
　 <td align=center width=60 class='td1' nowrap>贴子序号</td>
　</tr>
<%
do while true
　if guestrs.eof then exit do
　if guestrs("rootid")=0 then exit do
　guestrs.movenext
loop
do while not guestrs.eof and rowcount>0 %><script>d('<% =replace(space(2*len(guestrs
("orderstr")))," "," ") %>','<% =guestrs("guestitle") %>','<% =guestrs("guestname") %>','<% =guestrs
("putdate") %>','<% =guestrs("puttime") %>',<% =len(guestrs("guestcomm")) %>,<% =guestrs("lybid") %>,<%
=guestrs("rootid") %>,<% =pageno %>)</script>
<%
rowcount=rowcount-1
guestrs.movenext
if not guestrs.eof then
　if guestrs("rootid")<>0 and rowcount=0 then rowcount=1
end if
loop
guestrs.close
set guestrs=nothing
guestconn.close
set guestconn=nothing
%>
</table>
</form>
<br><br><br>
</body>
</html>