用排序串字段实现树状结构（例程——显示贴子内容）
2016-01-29 18:00
用排序串字段实现树状结构（例程——显示贴子内容）,用排序串字段实现树状结构（例程——显示贴子内容）
功能：显示贴子具体内容
<!-- #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="http://img.jcwcn.com/attachment/portal/jcwcj/2005-12/10/0512100100388671.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("ro
