用排序串字段实现树状结构(例程??显示贴子内容)
类别: ASP教程 
程序：disprec.asp
功能：显示贴子具体内容
<!-- #include file="lybcon.inc" -->
<%
keyid=request("keyid")
rootid=request("rootid")
pageno=request("pageno")
if rootid=0 then rootid=keyid
set guestconn=Server.CreateObject("ADODB.connection")
guestconn.Open lybstr
set guestrs=server.createobject("ADODB.recordset")
sqlstr="SELECT * FROM guestbook where lybid="&rootid&" or rootid="&rootid
sqlstr=sqlstr&" order by orderstr,lybid desc"
guestrs.open sqlstr,guestconn,1,1
%>
<html>
<head><title>软件使用留言薄</title>
<style TYPE="text/css">
<!--
a { text-decoration: none}
body {line-height:18px;font-size:9pt;font-family:宋体}
a:hover {color:#FF0000;text-decoration:none}
td {font-family: 宋体; font-size: 9pt;background-color:ECF7FF}
.td1 {font-family: 宋体; font-size: 9pt;background-color:A2C8F2}
.td2 {font-family: 宋体; font-size: 9pt;background-color:E9EDE0}
.small1 {font-family: 宋体; font-size: 9pt;background-color:ffffff;line-height:9pt}
-->
</style>
</head>
<body topmargin=16 background=\'topbg.gif\'>
<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=2 style=\'background-color:ffffff\' valign=\'bottom\'>相关留言共<font style=\'font-
size:16px;color:red\'><% =guestrs.recordcount %></font>条</td>
<td style=\'background-color:ffffff\' valign=bottom align=center><a href=\'index.asp?pageno=<% =pageno %>\'>
留言列表</a></td>
<td style=\'background-color:ffffff\' valign=bottom align=center><a href=\'revert.asp?type=post\'>发贴子
</a></td>
</tr>
<tr style="color:red">
<td align=center class=\'td1\' width=70%>留言标题</td>
<td align=center width=70 class=\'td1\' nowrap><img src=\'edit.gif\'>作 者</td>
<td align=center width=100 class=\'td1\' nowrap>发表时间</td>
<td align=center width=60 class=\'td1\' nowrap>贴子字数</td>
<td align=center width=60 class=\'td1\' nowrap>贴子序号</td>
</tr>
<% do while not guestrs.eof %>
<tr>
<td><% if guestrs("rootid")<>0 then response.write(replace(space(len(guestrs("orderstr")))," "," ")) %
><% if guestrs("lybid")+1=keyid+1 then
if guestrs("rootid")=0 then
rootid=guestrs("lybid")
else
rootid=guestrs("rootid")
end if
lybid=guestrs("lybid")
guestitle=guestrs("guestitle")
guestname=guestrs("guestname")
guestemail=guestrs("guestemail")
guestcomm=guestrs("guestcomm")
putdate=guestrs("putdate")
puttime=guestrs("puttime")
emailflag=guestrs("emailflag")
%><% =guestrs("guestitle") %><% else %><a href=\'disprec.asp?keyid=<% =guestrs("lybid") %>&rootid=<%
=guestrs("rootid") %>&pageno=<% =pageno %>\'><% =guestrs("guestitle") %></a><% end if %></td>
<td align=right nowrap><% =guestrs("guestname") %> </td>
<td nowrap align=center nowrap><% =guestrs("putdate")&" "&guestrs("puttime") %></td>
<td align=right nowrap><% =len(guestrs("guestcomm")) %> </td>
<td align=right nowrap><% =guestrs("lybid") %> </td>
</tr>
<%
guestrs.movenext
loop
guestrs.close
set guestrs=nothing
guestconn.close
set guestconn=nothing
%>
<tr><td height=20 colspan=5 style="background-color:ffffff"></td></tr>
<tr>
<td style="color:red" align=center><% =guestitle %></td>
<td align=right width=70><% =guestname %> </td>
<td width=100><% =putdate&" "&puttime %></td>
<td align=right width=60><% =len(guestcomm) %> </td>
<td align=right width=60><% =lybid %> </td>
</tr>
<tr><td colspan=5 style="background-color:f3F7FF" height=50 valign=top><% =guestcomm %><p align=right><a
href=\'delrec.asp?type=revert&keyid=<% =keyid %>&pageno=<% =pageno %>\'>删除留言</a> <a href=\'revert.asp?
type=revert&keyid=<% =lybid %>&pageno=<% =pageno %>\'>回复作者</a> </td></tr>
</table>
</form>
</body>
</html>
功能：显示贴子具体内容
<!-- #include file="lybcon.inc" -->
<%
keyid=request("keyid")
rootid=request("rootid")
pageno=request("pageno")
if rootid=0 then rootid=keyid
set guestconn=Server.CreateObject("ADODB.connection")
guestconn.Open lybstr
set guestrs=server.createobject("ADODB.recordset")
sqlstr="SELECT * FROM guestbook where lybid="&rootid&" or rootid="&rootid
sqlstr=sqlstr&" order by orderstr,lybid desc"
guestrs.open sqlstr,guestconn,1,1
%>
<html>
<head><title>软件使用留言薄</title>
<style TYPE="text/css">
<!--
a { text-decoration: none}
body {line-height:18px;font-size:9pt;font-family:宋体}
a:hover {color:#FF0000;text-decoration:none}
td {font-family: 宋体; font-size: 9pt;background-color:ECF7FF}
.td1 {font-family: 宋体; font-size: 9pt;background-color:A2C8F2}
.td2 {font-family: 宋体; font-size: 9pt;background-color:E9EDE0}
.small1 {font-family: 宋体; font-size: 9pt;background-color:ffffff;line-height:9pt}
-->
</style>
</head>
<body topmargin=16 background=\'topbg.gif\'>
<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=2 style=\'background-color:ffffff\' valign=\'bottom\'>相关留言共<font style=\'font-
size:16px;color:red\'><% =guestrs.recordcount %></font>条</td>
<td style=\'background-color:ffffff\' valign=bottom align=center><a href=\'index.asp?pageno=<% =pageno %>\'>
留言列表</a></td>
<td style=\'background-color:ffffff\' valign=bottom align=center><a href=\'revert.asp?type=post\'>发贴子
</a></td>
</tr>
<tr style="color:red">
<td align=center class=\'td1\' width=70%>留言标题</td>
<td align=center width=70 class=\'td1\' nowrap><img src=\'edit.gif\'>作 者</td>
<td align=center width=100 class=\'td1\' nowrap>发表时间</td>
<td align=center width=60 class=\'td1\' nowrap>贴子字数</td>
<td align=center width=60 class=\'td1\' nowrap>贴子序号</td>
</tr>
<% do while not guestrs.eof %>
<tr>
<td><% if guestrs("rootid")<>0 then response.write(replace(space(len(guestrs("orderstr")))," "," ")) %
><% if guestrs("lybid")+1=keyid+1 then
if guestrs("rootid")=0 then
rootid=guestrs("lybid")
else
rootid=guestrs("rootid")
end if
lybid=guestrs("lybid")
guestitle=guestrs("guestitle")
guestname=guestrs("guestname")
guestemail=guestrs("guestemail")
guestcomm=guestrs("guestcomm")
putdate=guestrs("putdate")
puttime=guestrs("puttime")
emailflag=guestrs("emailflag")
%><% =guestrs("guestitle") %><% else %><a href=\'disprec.asp?keyid=<% =guestrs("lybid") %>&rootid=<%
=guestrs("rootid") %>&pageno=<% =pageno %>\'><% =guestrs("guestitle") %></a><% end if %></td>
<td align=right nowrap><% =guestrs("guestname") %> </td>
<td nowrap align=center nowrap><% =guestrs("putdate")&" "&guestrs("puttime") %></td>
<td align=right nowrap><% =len(guestrs("guestcomm")) %> </td>
<td align=right nowrap><% =guestrs("lybid") %> </td>
</tr>
<%
guestrs.movenext
loop
guestrs.close
set guestrs=nothing
guestconn.close
set guestconn=nothing
%>
<tr><td height=20 colspan=5 style="background-color:ffffff"></td></tr>
<tr>
<td style="color:red" align=center><% =guestitle %></td>
<td align=right width=70><% =guestname %> </td>
<td width=100><% =putdate&" "&puttime %></td>
<td align=right width=60><% =len(guestcomm) %> </td>
<td align=right width=60><% =lybid %> </td>
</tr>
<tr><td colspan=5 style="background-color:f3F7FF" height=50 valign=top><% =guestcomm %><p align=right><a
href=\'delrec.asp?type=revert&keyid=<% =keyid %>&pageno=<% =pageno %>\'>删除留言</a> <a href=\'revert.asp?
type=revert&keyid=<% =lybid %>&pageno=<% =pageno %>\'>回复作者</a> </td></tr>
</table>
</form>
</body>
</html>
